Discussion :

[Romanaxx]

Bonsoir,

J'aimerais exécuter une boucle while/end avec plusieurs conditions.

Code :

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

1
2
3
4
If (nom1 <> "") And (prenom1 <> "") And (num1 <> "") Then
    While ((Worksheets("FeuilGénéral").Cells(w, 1).Value <> nom1 And Worksheets("FeuilGénéral").Cells(w, 1).Value <> nom1) And (Worksheets("FeuilGénéral").Cells(w, 2).Value <> prenom1) And (Worksheets("FeuilGénéral").Cells(w, 5).Value <> num1) And (w < 500))
        w = w + 1
    Wend

Le problème est le suivant : Dans un userform je récupère le nom1, prenom1 et num1 correspondant à un nom en cellule(w,1) etc.
Cependant si dans ma feuille excel j'ai deux personnes : nom1 = a, prenom1 = b, num1 = c et nom1 = a, prenom1 = b, num1 = d et que je souhaite obtenir la ligne w de la personne nom1 = a, prenom1 = b, num1 = d (situer après dans la feuille) le w s'arrête à la ligne de à nom1 = a, prenom1 = b, num1 = c.

Après plusieurs recherche sur le web j'ai essayé de mettre après le while, des parenthèses générales, des parenthèses pour séparer les And mais rien n'y fait.
Quelqu'un aurait-il une solution ?
D'avance, merci.

[EngueEngue]

Tu as mis deux conditions égales... essaie de la forme, cela devrait marcher...

Code :

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

1
2
3
    While ((Worksheets("FeuilGénéral").Cells(w, 1).Value <> nom1) And (Worksheets("FeuilGénéral").Cells(w, 2).Value <> prenom1) And (Worksheets("FeuilGénéral").Cells(w, 5).Value <> num1) And (w < 500))
        w = w + 1
    Wend

[Romanaxx]

Merci pour ta réponse. Les deux conditions sur nom1 ne sont qu'une erreur de copier coller quand j'ai posté le code sur le forum.
Après plusieurs test, il ressort que le while s'arrête à la première condition. C'est à dire qu'il ne test pas toutes les conditions.

[EngueEngue]

Pas possible.

[Romanaxx]

Faut-il des parenthèses entre les AND ?

[EngueEngue]

Comme je l'ai écrit ça marche. La boucle va s'arrêter quand toutes les conditions sont à la fois validées.

[Romanaxx]

Je déclare mes variables comme ça :

Code :

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

1
2
3
Dim nom1 As String
Dim prenom1 As String
Dim num1 As String

Je récupère mes variables dans des TextBox d'un userform comme ça :

Code :

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

1
2
3
nom1 = suppression.nom.Value
prenom1 = suppression.prenom.Value
num1 = suppression.num.Value

Le type de mes cellules est Standard.

Est ce que tu vois une erreur de types ?

Merci de continuer à chercher !

[nibledispo]

bonjour,

comme l'a écrit Engue Engue : ce que tu affirmes ne peut être vrai.

redonne un extrait de code peut-être plus complet et sans erreur de transcription.

Cordialement,