A voir également:
- Besoin d'aide ! Je peine à me servir de la boucle "Do ... Loop"
- Redmi note 10 redemarre en boucle - Forum Xiaomi
- Xwxwxwxwv songs do 2023 ✓ - Forum Audio
- Boucle excel sans macro - Forum Excel
- Sad song - Forum Musique / Radio / Clip
- Boucle cmd - Forum Programmation
6 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
7 sept. 2014 à 12:56
7 sept. 2014 à 12:56
Bonjour,
Peu importe le langage, c'est une question d'algo. Les boucles Do ... Loop, While ... etc fonctionnent de la même manière quelque soit le langage.
Il faut qu'une condition soit remplie pour sortir d'une boucle.
Peu importe le langage, c'est une question d'algo. Les boucles Do ... Loop, While ... etc fonctionnent de la même manière quelque soit le langage.
Il faut qu'une condition soit remplie pour sortir d'une boucle.
Sonar97432
Messages postés
4
Date d'inscription
dimanche 7 septembre 2014
Statut
Membre
Dernière intervention
7 septembre 2014
7 sept. 2014 à 12:06
7 sept. 2014 à 12:06
Bonjour précisez le language
Bonjour Sonar97432 et Polux31
Désolé pour le manque de précision
le langage utilisé est le VBA sur EXCEL
Désolé pour le manque de précision
le langage utilisé est le VBA sur EXCEL
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
7 sept. 2014 à 16:27
7 sept. 2014 à 16:27
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour Polux31
au fait je souhaite faire en sorte qu'en cliquant sur ma checkbox1
que la textbox1 e 2 s'affichent.
qu'il aille trouver les informations dans la colonne B par exemple en partant du bas vers le haut.
la valeur trouvée, qu'il me l'affiche dans la textbox1 et dans la 2 celle de la cellule d'à coté.
si cette valeur est égale 0, qu'il se décale d'une cellule vers le haut et la valeur trouvée est différente de 0, qu'il me l'envoie dans la textbox1.
sinon qu'il continue à se décaler jusqu'à ce qu'il tombe sur une valeur différente de 0.
et c'est là que je bug.
j'espère que tu me comprendras, parce que j'avoue que ça m'a l'air tout simple à entendre , mais ça fait des jour que j'y suis et ça ne vas pas lol.
à plus et merci par avance
au fait je souhaite faire en sorte qu'en cliquant sur ma checkbox1
que la textbox1 e 2 s'affichent.
qu'il aille trouver les informations dans la colonne B par exemple en partant du bas vers le haut.
la valeur trouvée, qu'il me l'affiche dans la textbox1 et dans la 2 celle de la cellule d'à coté.
si cette valeur est égale 0, qu'il se décale d'une cellule vers le haut et la valeur trouvée est différente de 0, qu'il me l'envoie dans la textbox1.
sinon qu'il continue à se décaler jusqu'à ce qu'il tombe sur une valeur différente de 0.
et c'est là que je bug.
j'espère que tu me comprendras, parce que j'avoue que ça m'a l'air tout simple à entendre , mais ça fait des jour que j'y suis et ça ne vas pas lol.
à plus et merci par avance
ça y est
j'ai fini par la trouver cette boucle.
Pour l'instant elle s'excute comme je le souhaite et je suis content.
Pour les plus expérimentés, vous me direz qu'elle est un peu trop long,
ce qui doit être forcément vrai.
et je tiens à souligner que je reste toujours ouvert à l'idée de découvrir une nouvelle façon de faire ce que le code ci dessous fait.
"
'Selection de la Feuille, de la dernière cellule Non Vide de la colonne C
Sheets("DETAIL_RECEPTIONS").Select
Range("C1048576").End(xlUp).Select
'Si la valeur de la cellule seletionnée est égale = 0, se décaler sur celle du dessus
Do While ActiveCell.Value = 0
ActiveCell.Offset(-1, 0).Select
Loop
'Si la valeur trouvée est différent de 0, alors envoyer les valeurs dans les Textbox
If ActiveCell <> 0 Then
TextBox1.Value = ActiveCell.Value
TextBox10.Value = ActiveCell.Offset(0, -1).Value
TextBox19.Value = ActiveCell.Offset(0, 9).Value
End If
"
En tous les cas merci à ceux qui m'ont répondu et à bientôt
Bouzy
j'ai fini par la trouver cette boucle.
Pour l'instant elle s'excute comme je le souhaite et je suis content.
Pour les plus expérimentés, vous me direz qu'elle est un peu trop long,
ce qui doit être forcément vrai.
et je tiens à souligner que je reste toujours ouvert à l'idée de découvrir une nouvelle façon de faire ce que le code ci dessous fait.
"
'Selection de la Feuille, de la dernière cellule Non Vide de la colonne C
Sheets("DETAIL_RECEPTIONS").Select
Range("C1048576").End(xlUp).Select
'Si la valeur de la cellule seletionnée est égale = 0, se décaler sur celle du dessus
Do While ActiveCell.Value = 0
ActiveCell.Offset(-1, 0).Select
Loop
'Si la valeur trouvée est différent de 0, alors envoyer les valeurs dans les Textbox
If ActiveCell <> 0 Then
TextBox1.Value = ActiveCell.Value
TextBox10.Value = ActiveCell.Offset(0, -1).Value
TextBox19.Value = ActiveCell.Offset(0, 9).Value
End If
"
En tous les cas merci à ceux qui m'ont répondu et à bientôt
Bouzy