Discussion :

[moilou2]

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.

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[moilou2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[moilou2]

Cela fonctionne, merci beaucoup.

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set C = Columns(1).Find

met ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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