Petite Macro Boucle While
Résolu/Fermé
A voir également:
- Petite Macro Boucle While
- Macro word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Petite croix snap - Forum Snapchat
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 747
6 oct. 2009 à 11:18
6 oct. 2009 à 11:18
Salut,
Comme ceci, tout simplement :
Do While [B29] <= [B30] - 2 'j'ai mis B30 - 2 car lors de l'essai, la macro s'arrétais à B30 +1
[B29] = [B29] + 1
Loop
Comme ceci, tout simplement :
Do While [B29] <= [B30] - 2 'j'ai mis B30 - 2 car lors de l'essai, la macro s'arrétais à B30 +1
[B29] = [B29] + 1
Loop
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
6 oct. 2009 à 11:24
6 oct. 2009 à 11:24
Bonjour,
Aucune difficulté majeur dans cet exercice :
Tant que la valeur de la cellule B29 est inférieur à la valeur de la cellule B30 - 1 Faire
Valeur cellule B29 + 1
Fin Tant que
Ce qui donne en VB:
Il n'y a pas besoin de déclarer une variable.
;o)
Aucune difficulté majeur dans cet exercice :
Tant que la valeur de la cellule B29 est inférieur à la valeur de la cellule B30 - 1 Faire
Valeur cellule B29 + 1
Fin Tant que
Ce qui donne en VB:
While Range("B29").Value < Range("B30").Value - 1 Range("B29").Value = Range("B29").Value +1 Wend
Il n'y a pas besoin de déclarer une variable.
;o)
Tout d'abord merci pour vos réponses ultra rapide !
En effet la boucle marche le plus simplement du monde ! Je m'étais embrouillé avec des trucs de fou...
Toutefois dans l'application que j'en fait, le résultat ne marche pas forcément, il s'arrête des fois à +1 de trop...
et aussi, je m'étais un peu trompé dans les cellules le vrai est :
Do While [B29] <= [C29] - 1
[B27] = [B27] + 1
Loop
en fait la valeur de B29 dépend pleinement de ma valeur en B27.
Mais je vous remercie quand même; j'ai des pistes, sympa...
Merci
En effet la boucle marche le plus simplement du monde ! Je m'étais embrouillé avec des trucs de fou...
Toutefois dans l'application que j'en fait, le résultat ne marche pas forcément, il s'arrête des fois à +1 de trop...
et aussi, je m'étais un peu trompé dans les cellules le vrai est :
Do While [B29] <= [C29] - 1
[B27] = [B27] + 1
Loop
en fait la valeur de B29 dépend pleinement de ma valeur en B27.
Mais je vous remercie quand même; j'ai des pistes, sympa...
Merci