XL 2016 [RESOLU] Besoin d'aide sur une boucle.

[Thhrsa]

Bonjour à tous.

Je m'arrache les cheveux depuis un certain temps sur une boucle.
Je fais donc appel à votre savoir !!!

Mon problème:
En colonne "C" je veux détecter la présence de "OUI"
Si j'ai un "OUI", je lance des instructions
Si pas de "OUI", je lance d'autres instructions

Par contre ma boucle ne s’arrête pas à la fin de mon tableau.


Ci-joint ligne de codes:
Sub test()

If Range("C3").Select Then
Do Until ActiveCell >= "OUI"
ActiveCell.Offset(1, 0).Select
Loop
GoTo Suite
Else
End If

Suite:
Range("C2").Select

End Sub

Et fichier test

Merci d'avance.

Thh

 

[job75]

Bonjour Thhrsa,

Une boucle très classique :

Sub test()
Dim c As Range
For Each c In Range("C3", Range("C" & Rows.Count).End(xlUp))
    If c = "OUI" Then
        'code
    Else
        'autre code
    End If
Next
End Sub

Edit pour repérer mon 28000 ème post, ça s'arrose 🙂

A+

 

[JBARBE]

Bonjour à tous,
Peut-être ceci :

Option Explicit

Sub test()
Dim i As Long
For i = 3 To 65536
If Cells(i, 3) = "" Then Exit Sub
If Cells(i, 3) = "OUI" Then
  'instruction
else
'instruction
End If
Next i
End Sub

Bonne journée
Bonjour Job Champagne !

 

[Usine à gaz]

Bonjour Gérard 🙂
Bravo pour tant de posts tjrs si efficaces.

28000... j'y suis pour pas mal LOL 😛

A bientôt les 20000.
Amicalement,
lionel,

 

[Thhrsa]

Merci pour vos réponses très rapide !!!!

Je suis un autodidacte à la VBA
Je me débrouille pas trop mal, mais j'ai aussi beaucoup de lacunes...

Encore merci pour ce bout de code.
Je vais pouvoir terminer ma VBA

Cordialement