double condition dans un while

[David Jonc.]

Bonjour au forum,

J'ai une boucle while, la voici:

Do While ActiveCell.Value <> 1
ActiveCell.Offset(1, 0).Select
nbf = nbf + 1
Loop

mais j'aimerai aussi m'arreter a la condition "FIN". j'ai essayé ce code mais cela ne fonctionne pas:

Do While ActiveCell.Value <> 1 or ActiveCell.Value <> "FIN"
ActiveCell.Offset(1, 0).Select
nbf = nbf + 1
Loop

Est ce que c'est possible de faire ça? me serais je trompé dans la syntaxe?

Merci de me reponsdre

 

[jhocquevelt]

Bonjour David, bonjour le Forum,

En remplaçant le or par un And , les deux conditions sont testées.

Do While ActiveCell.Value <> 1 And ActiveCell.Value <> "FIN"
ActiveCell.Offset(1, 0).Select
nbf = nbf + 1
Loop

Bonne journée

Jhocquevelt.

 

[David Jonc.]

Bonjour Jhocquevelt; bonjour le forum,

je te remercie beaucoup, ça fonctionne, boinne journée

david