Problème While Not

Bonjour, j'aimerais mettre deux conditions avec une boucle While Not mais cela ne fonctionne pas, ma deuxième condition n'ai pas trouvé alors qu'elle existe. Savez-vous d'où vient le problème ?

Merci

While Not ActiveCell.Offset(i2).Value Like "Prem*" Or ActiveCell.Offset(i2).Value Like "Deux*"

bonjour

je mettrais un AND plutôt qu'un OR pour lier les 2 conditions.

h2so4 a écrit :

bonjour

je mettrais un AND plutôt qu'un OR pour lier les 2 conditions.

Bonjour, oui mais les deux conditions ne sont pas liées. Elles sont indépendante l'une de l'autre.

Merci

Cela est-il possible ?

Merci

re-bonjour,

ta condition ressemble à ceci

a n'est pas égal à "A" [b]ou[/b] a n'est pas égal à "B" c'est toujours vrai.

je pense que tu veux dire

a n'est pas égal à "A" [b]et[/b] a n'est pas égal à "B" cela peut être vrai ou faux.,

je suppose que c'est donc cette condition que tu veux mettre. d'où ma suggestion de remplacer le OR par un AND.

h2so4 a écrit :

re-bonjour,

ta condition ressemble à ceci

a n'est pas égal à "A" [b]ou[/b] a n'est pas égal à "B" c'est toujours vrai.

je pense que tu veux dire

a n'est pas égal à "A" [b]et[/b] a n'est pas égal à "B" cela peut être vrai ou faux.,

je suppose que c'est donc cette condition que tu veux mettre. d'où ma suggestion de remplacer le OR par un AND.

Pas tout à fais, moi je voudrais cela :

Si "ma_variable" n'est pas égal à "A" alors on regarde si "ma_variable" est égal à "B"

Si les deux conditions sont réalisés en même temps, cela ne fonctionnera pas.

Merci

bonsoir,

à quels résultats t'attends-tu

si offset(i2)="prem"

si offset(i2)="deux"

si offset(i2)="autre chose" ?

h2so4 a écrit :

bonsoir,

à quels résultats t'attends-tu

si offset(i2)="prem"

si offset(i2)="deux"

si offset(i2)="autre chose" ?

Si prem saute une ligne

Si deux supprime une ligne

Si autre chose exit sub

Merci

bonsoir

si j'ai bien compris

While ActiveCell.Offset(i2).Value like "Prem*" Or ActiveCell.Offset(i2).Value Like "Deux*"
If ActiveCell.Offset(i2).Value = "prem" Then
 MsgBox "saute une ligne"
ElseIf ActiveCell.Offset(i2).Value = "deux" Then
 MsgBox "supprime une ligne"
End If
Wend

h2so4 a écrit :

bonsoir

si j'ai bien compris

While ActiveCell.Offset(i2).Value like "Prem*" Or ActiveCell.Offset(i2).Value Like "Deux*"
If ActiveCell.Offset(i2).Value = "prem" Then
 MsgBox "saute une ligne"
ElseIf ActiveCell.Offset(i2).Value = "deux" Then
 MsgBox "supprime une ligne"
End If
Wend

En fait j'ai réussi à trouver l'erreur, je ne devais pas mettre While Not mais While et en dessous c'était If Not.

Merci