Je cherche à écrire un code qui donnerait en français : "Tant que la valeur
de la cellule de la feuille active du classeur actif est différent de
qqchose, faire opération 1, puis boucler.
Ma syntaxe (fausse) de départ est :
While (ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> "NOMBRE DE
COLIS")
qqchose
Mais bien sûr, il y a une erreur....quelqu'un peut m'aider sur ça svp ?
Merci d'avance.
Par défaut, lorsque tu utilises l'objet Range sans nommer la feuille et le classeur, ce sont la feuille et le classeur actifs qui sont utilisés :
i = LigneDébut While Range("A" & i) <> "NOMBRE DE COLIS" ' Ton code i = i + 1 Wend
Amicalement Lionel
"Nesta" a écrit dans le message de news:
Bonsoir à tous,
Je cherche à écrire un code qui donnerait en français : "Tant que la valeur
de la cellule de la feuille active du classeur actif est différent de qqchose, faire opération 1, puis boucler.
Ma syntaxe (fausse) de départ est :
While (ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> "NOMBRE DE COLIS") qqchose
Mais bien sûr, il y a une erreur....quelqu'un peut m'aider sur ça svp ? Merci d'avance.
Cordialement, Nesta
michdenis
Bonjour Nesta,
Essaie ceci :
Dim i As Long i = 1 Do While ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> 5 a = a + 1 Loop
Attention au critère qui met fin à la boucle:
Si dans la colonne A, tu n'as pas une cellule qui est égale à 5, ta boucle va tourner jusqu'à la dernière cellule de la colonne A : A65536 et la procédure va planter car il n'y a pas de ligne 65537
Salutations!
"Nesta" a écrit dans le message de news: Bonsoir à tous,
Je cherche à écrire un code qui donnerait en français : "Tant que la valeur de la cellule de la feuille active du classeur actif est différent de qqchose, faire opération 1, puis boucler.
Ma syntaxe (fausse) de départ est :
While (ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> "NOMBRE DE COLIS") qqchose
Mais bien sûr, il y a une erreur....quelqu'un peut m'aider sur ça svp ? Merci d'avance.
Cordialement, Nesta
Bonjour Nesta,
Essaie ceci :
Dim i As Long
i = 1
Do While ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> 5
a = a + 1
Loop
Attention au critère qui met fin à la boucle:
Si dans la colonne A, tu n'as pas une cellule qui est égale à 5,
ta boucle va tourner jusqu'à la dernière cellule de la colonne A : A65536
et la procédure va planter car il n'y a pas de ligne 65537
Salutations!
"Nesta" <nestaman@hormail.com> a écrit dans le message de news: OldBJFeJGHA.500@TK2MSFTNGP15.phx.gbl...
Bonsoir à tous,
Je cherche à écrire un code qui donnerait en français : "Tant que la valeur
de la cellule de la feuille active du classeur actif est différent de
qqchose, faire opération 1, puis boucler.
Ma syntaxe (fausse) de départ est :
While (ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> "NOMBRE DE
COLIS")
qqchose
Mais bien sûr, il y a une erreur....quelqu'un peut m'aider sur ça svp ?
Merci d'avance.
Dim i As Long i = 1 Do While ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> 5 a = a + 1 Loop
Attention au critère qui met fin à la boucle:
Si dans la colonne A, tu n'as pas une cellule qui est égale à 5, ta boucle va tourner jusqu'à la dernière cellule de la colonne A : A65536 et la procédure va planter car il n'y a pas de ligne 65537
Salutations!
"Nesta" a écrit dans le message de news: Bonsoir à tous,
Je cherche à écrire un code qui donnerait en français : "Tant que la valeur de la cellule de la feuille active du classeur actif est différent de qqchose, faire opération 1, puis boucler.
Ma syntaxe (fausse) de départ est :
While (ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> "NOMBRE DE COLIS") qqchose
Mais bien sûr, il y a une erreur....quelqu'un peut m'aider sur ça svp ? Merci d'avance.
Cordialement, Nesta
Lionel
Bonsoir michdenis,
Euh... Le a = a + 1, c'est une étourderie je pense. Tu as dû vouloir écrire i = i + 1, non ?
Amicalement Lionel
"michdenis" a écrit dans le message de news:%23PAF%
Bonjour Nesta,
Essaie ceci :
Dim i As Long i = 1 Do While ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> 5 a = a + 1 Loop
Attention au critère qui met fin à la boucle:
Si dans la colonne A, tu n'as pas une cellule qui est égale à 5, ta boucle va tourner jusqu'à la dernière cellule de la colonne A : A65536 et la procédure va planter car il n'y a pas de ligne 65537
Salutations!
"Nesta" a écrit dans le message de news:
Bonsoir à tous,
Je cherche à écrire un code qui donnerait en français : "Tant que la valeur
de la cellule de la feuille active du classeur actif est différent de qqchose, faire opération 1, puis boucler.
Ma syntaxe (fausse) de départ est :
While (ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> "NOMBRE DE COLIS") qqchose
Mais bien sûr, il y a une erreur....quelqu'un peut m'aider sur ça svp ? Merci d'avance.
Cordialement, Nesta
Bonsoir michdenis,
Euh... Le a = a + 1, c'est une étourderie je pense. Tu as dû vouloir écrire
i = i + 1, non ?
Amicalement
Lionel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23PAF%23KeJGHA.3064@TK2MSFTNGP10.phx.gbl...
Bonjour Nesta,
Essaie ceci :
Dim i As Long
i = 1
Do While ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> 5
a = a + 1
Loop
Attention au critère qui met fin à la boucle:
Si dans la colonne A, tu n'as pas une cellule qui est égale à 5,
ta boucle va tourner jusqu'à la dernière cellule de la colonne A : A65536
et la procédure va planter car il n'y a pas de ligne 65537
Salutations!
"Nesta" <nestaman@hormail.com> a écrit dans le message de news:
OldBJFeJGHA.500@TK2MSFTNGP15.phx.gbl...
Bonsoir à tous,
Je cherche à écrire un code qui donnerait en français : "Tant que la
valeur
de la cellule de la feuille active du classeur actif est différent de
qqchose, faire opération 1, puis boucler.
Ma syntaxe (fausse) de départ est :
While (ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> "NOMBRE DE
COLIS")
qqchose
Mais bien sûr, il y a une erreur....quelqu'un peut m'aider sur ça svp ?
Merci d'avance.
Euh... Le a = a + 1, c'est une étourderie je pense. Tu as dû vouloir écrire i = i + 1, non ?
Amicalement Lionel
"michdenis" a écrit dans le message de news:%23PAF%
Bonjour Nesta,
Essaie ceci :
Dim i As Long i = 1 Do While ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> 5 a = a + 1 Loop
Attention au critère qui met fin à la boucle:
Si dans la colonne A, tu n'as pas une cellule qui est égale à 5, ta boucle va tourner jusqu'à la dernière cellule de la colonne A : A65536 et la procédure va planter car il n'y a pas de ligne 65537
Salutations!
"Nesta" a écrit dans le message de news:
Bonsoir à tous,
Je cherche à écrire un code qui donnerait en français : "Tant que la valeur
de la cellule de la feuille active du classeur actif est différent de qqchose, faire opération 1, puis boucler.
Ma syntaxe (fausse) de départ est :
While (ActiveWorkbook.ActiveSheet.Range("A" & i).Value <> "NOMBRE DE COLIS") qqchose
Mais bien sûr, il y a une erreur....quelqu'un peut m'aider sur ça svp ? Merci d'avance.
