boucle avec condition

[ngs]

Bonjour le forum,

je souhaite faire une boucle dans laquelle il ya une condition: si la cellule Bi (feuille1) est dans le range B3:B50 (Feuille2), alors mettre "oui' dans la colonne C (feuille1)
sinon mettre "non".

j'ai essayé un début de code mais je bloque.
Merci pour votre aide.

ps : fichier joint

 

[gbinforme]

Re : boucle avec condition

Bonjour ngs, le forum,

Pour que ta boucle fonctionne tu peux l'écrire comme ceci :

Sub recherche()
Dim i As Long, k As Long

Sheets("Feuil1").Activate
With Sheets("Feuil2")
    For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        For k = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row
            If Cells(i, 2) = .Cells(k, 2) Then
                Cells(i, 3) = "oui"
                Exit For
            End If
        Next k
        If k > .Cells(.Rows.Count, 1).End(xlUp).Row Then Cells(i, 3) = "non"
    Next i
End With
End Sub

 

[ngs]

Re : boucle avec condition

salut gbinforme,
çà fonctionne,
Merci ton aide.

 

[jebibo]

Re : boucle avec condition

Bonsoir

Essaie celle-ci

=SIERREUR(SI(RECHERCHEV(B3;Feuil2!B$3:B9;1;FAUX)=VRAI;"non";"oui");"")
au plaisir

 

[ngs]

Re : boucle avec condition

bonjour jebibo,
Merci pour ton aide. cependant, j'ai besoin d'automatiser çà sous VB.
Une question à gbinforme, j'ai testé le code sur un autre fichier mais aucune réponse apparait. pourrais-tu me pourquoi?
le fichier joint avec les onglets "MO" et "Suspens".
merci de ton aide

 

[ngs]

Re : boucle avec condition

bonjour jebibo,
Merci pour ton aide. cependant, j'ai besoin d'automatiser çà sous VB.
Une question à gbinforme, j'ai testé le code sur un autre fichier mais aucune réponse apparait. pourrais-tu me pourquoi?
le fichier joint avec les onglets "MO" et "Suspens".
merci de ton aide

 

[gbinforme]

Re : boucle avec condition

bonjour jebibo,

j'ai testé le code sur un autre fichier mais aucune réponse apparait. pourrais-tu me pourquoi?

Il faut aussi modifier les lignes de fin avec la bonne colonne :
Cells(.Rows.Count,6 ou 10 selon l'onglet et il y a 3 lignes concernées.

 

[ngs]

Re : boucle avec condition

merci de ton aide gbinforme!