Bienvenue invité ( Connexion | Inscription )
![]() ![]() |
02-04-2008 - 5:09
Message
#1
|
|
|
Membre Groupe : Membres Messages : 2 Inscrit : 02-04-2008 Membre n° 12 860 |
vous remerciants par avance tres tres debutant urgent |
|
|
|
24-04-2008 - 9:48
Message
#2
|
|
|
Membre Groupe : Membres Messages : 1 Inscrit : 24-04-2008 Membre n° 12 935 |
Bonjour, voici un code qui permet de faire une recherche dans la colonne A.
Le mot clé à chercher doit être entré en B2 Le nombre d'occurences trouvées s'affiche en B3 Les résultats s'affichent en D2... jusque D(?)... tout dépende du "nombre" de résultats à afficher Les champs vérifiés débutent en A5 et vont jusque A1000 (peut être modifié) CODE Sub recherche()
Dim compt As Integer Set Plage = Range("A6", "A1110") compt = 0 For I = 6 To 1110 If InStr(Plage.Cells(I).Text, Range("B2").Text) Then compt = compt + 1 Cells(1 + compt, 4) = Cells(I + 5, 1).Value End If Next I Cells(3, 2) = compt End Sub |
|
|
|
01-05-2008 - 1:14
Message
#3
|
|
![]() Modérateur loufoque et linuxien Groupe : Modérateurs Messages : 2 970 Inscrit : 26-11-2002 Lieu : Bruxelles Membre n° 148 |
Heu,... Il n'y aurait pas eu plus facile avec le masque de saisie et les tableaux croisés dynamique ? (ai pas regardé totalement...)
-------------------- |
|
|
|
![]() ![]() |
|
Version bas débit | Nous sommes le : 05-12-2008 - 3:25 |