annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Userform > Recherche d'un mot

Recherche d'un mot

Publié par veriland le 07-Aug-2013 12:20 (1668 lectures)

D'abord il faut créer un Userform...il vous faut à la base une "Textbox" et un bouton "Valider"

 

 

puis vous inscrivez ce code dans le module de cet Userform

 
 


Option Explicit
' Vériland décembre 2003
Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub AfficheListe_Click()
Dim WS As Worksheet
Dim Plage As Range
Dim Cherche, Adresse As String
Dim Ligne, Arrivee As Variant
Dim C As Object
Range("Zone").Clear
Cherche = TextBox1
Ligne = 5
    If Cherche = "" Then Exit Sub
        Range("F2").Value = Cherche
    For Each WS In Worksheets
            Set Plage = Worksheets(WS.Name).Range("B3:N50")
        With Plage
                Set C = .Find(Cherche)
            If Not C Is Nothing Then
                    Adresse = C.Address
                Do
                    Arrivee = Mid(C.Address, 3)
                    Worksheets(WS.Name).Range("B" & Arrivee & ":N" & Arrivee).Copy F4.Range("B" & Ligne)
                    Ligne = F4.Range("" & "B" & "65536").End(xlUp).Row + 1
                    Set C = .FindNext(C)
                Loop While Not C Is Nothing And C.Address <> Adresse
            End If
        End With
    Next WS
    'ici on refait une boucle sur feuille "recherche"
    'pour traiter la couleur de la cellule (rouge/gras)
    Set Plage = F4.Range("B3:N50")
        With Plage
                Set C = .Find(Cherche)
            If Not C Is Nothing Then
                    Adresse = C.Address
              Do
                Arrivee = Mid(C.Address, 3)
                    With F4.Range(C.Address)
                      .Font.Bold = True
                      .Font.ColorIndex = 3
                    End With
                Set C = .FindNext(C)
              Loop While Not C Is Nothing And C.Address <> Adresse
            End If
        End With
Unload Me
End Sub


Naviguer à travers les articles
Article précédent Afficher l'occurence
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013