Simple test VBA

Version imprimable

14/05/2013, 16h17
moilou2

Simple test VBA

Bonjour,

Je souhaiterais réaliser un test, je pense qu'il s'agit dune boucle, afin d'écrire une valeur dans une cellule en fonction du résultat d'une autre.

Par exemple :

Parcours toutes les cellules de la colonne A, si tu trouves la valeur X alors écris dans la colonne B sur la même ligne Y.

Je souhaiterais répeter ce test pour différentes conditions.

Merci d'avance.

Bonjour,

Voici une boucle. S'il y a beaucoup de valeurs X, il est préférable de faire un filtre automatique :

Code:

1
2
3
4
5
6
7
8
9
10
Sub Boucle()
    Dim C As Range, ResAdr As String
    Set C = Columns(1).Find("X", , , xlWhole)
    If C Is Nothing Then Exit Sub
    ResAdr = C.Address
    Do
        C.Offset(, 1) = "Y"
        Set C = Columns(1).FindNext(C)
    Loop While C.Address <> ResAdr
End Sub

Bonjour et merci pour la réponse,

Si je veux tester plusieurs valeurs, dois-je dupliquer la boucle autant de fois que j'ai de valeurs?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
    Dim C As Range, ResAdr As String
 
    Set C = Columns(1).Find("X", , , xlWhole)
       If C Is Nothing Then Exit Sub
             ResAdr = C.Address
          Do
             C.Offset(, 1) = "Y"
             Set C = Columns(1).FindNext(C)
         Loop While C.Address <> ResAdr
 
 
    Set C = Columns(1).Find("Z", , , xlWhole)
       If C Is Nothing Then Exit Sub
             ResAdr = C.Address
          Do
             C.Offset(, 1) = "A"
             Set C = Columns(1).FindNext(C)
         Loop While C.Address <> ResAdr

Car j'ai fais le test avec une valeur, ça fonctionne mais avec plusieurs tests je ne suis pas sur que cela fonctionne de la manière dont je l'ai configurer.

Je réessaye...

14/05/2013, 17h34
moilou2

Cela fonctionne, merci beaucoup.
14/05/2013, 17h36
patricktoulon

heu
Bonjour
moi je delimiterais la limite de la recherche en terme de ligne pluto que la colonne en entier
a la place de :

Code:

Set C = Columns(1).Find

met ceci

Code:

Set C = range("a1:a"& range("a"&rows.count).end(xlup).row).Find........

ensuite je preciserais le sheets au cas ou ta recherche ne s'effectuerait pas sur le sheets actif
Code:

1 2 3 4 5 with sheets("toto") Set C = .range("a1:a"& .range("a"&rows.count).end(xlup).row).Find....... 'suite du code end with
Au plaisir
14/05/2013, 20h06
Daniel.C

Bonjour Patrick,

N'étant pas convaincu par ton argumentaire, je viens faire des mesures :
Avec un seul "X en position A1000000, les temps d'exécution sont identiques (0,1562 sec). Avec un seul X en position A300, les résultats sont surprenants :
ta méthode (plage limitée) : 0,0234 sec
la colonne entière : 0,0078 sec.
les mesures ont été répétées mais elles ne s'écartent pratiquement pas de celles indiquées.
De plus, si tu tiens à préciser la feuille, il faut indiquer :

Code:

Set C = .Range("a1:a" & .Range("a" & .Rows.Count).End(xlUp).Row).Find("X", , , xlWhole)

au lieu de :

Code:

Set C = .Range("a1:a" & .Range("a" & Rows.Count).End(xlUp).Row).Find("X", , , xlWhole)
14/05/2013, 20h17
patricktoulon

re

bonsoir daniel

effectivement c'est surprenant
je n'ai pas mis le point a rows.count car on s'en fou c'est la limite la plus basse de n'importe quels sheets
soit 65536 pour 2003
plus de 10000 pour 2007 je crois
a moins que ca déclenche une erreur de type 1004 je n'ai pas tester
peut être a tu raison je te fais confiance
14/05/2013, 20h54
Daniel.C

Bon, c'est rare, il y a une erreur quand la feuille active est une feuille de graphique.