boucle avec condition

ngs · 8 Septembre 2013

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 · 8 Septembre 2013

Re : boucle avec condition

Bonjour ngs, le forum,

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

Code:

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 · 8 Septembre 2013

Re : boucle avec condition

salut gbinforme,
çà fonctionne,
Merci ton aide.

jebibo · 9 Septembre 2013

Re : boucle avec condition

Bonsoir

Essaie celle-ci

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

ngs · 9 Septembre 2013

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 · 9 Septembre 2013

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 · 10 Septembre 2013

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 · 13 Septembre 2013

Re : boucle avec condition

merci de ton aide gbinforme!

boucle avec condition

ngs

XLDnaute Junior

Pièces jointes

gbinforme

XLDnaute Impliqué

ngs

XLDnaute Junior

jebibo

XLDnaute Occasionnel

ngs

XLDnaute Junior

ngs

XLDnaute Junior

Pièces jointes

gbinforme

XLDnaute Impliqué

ngs

XLDnaute Junior

Discussions similaires