Boucles avec conditions [Résolu]

Signaler
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
-
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
-
bonjour
je travaille dans excel. j'ai fait un petit programme en vba avec des boucles. je voudrais que la boucle se fasse sauf dans le cas où la cellule activée comprend le mot " ToTal"

Private Sub CommandButton1_Click()
Dim i As Integer
Range("A1").Select
Selection = "1"
For i = 1 To 50
ActiveCell.Offset(1, 0).Select
Selection = i
Next
End Sub

comment puis je indiquer cette condition dans mon programme ? ce que je voudrais en faite est que quand la cellule qui comprend le mot  "ToTal" est activée, le curseur l'ignore et passe à la cellule d'en dessous... c'est possible ? merci

2 réponses

Messages postés
682
Date d'inscription
vendredi 6 avril 2007
Statut
Membre
Dernière intervention
4 août 2012
6
Private Sub CommandButton1_Click()
Dim i As Integer
Range("A1").Select
Selection = "1"
For i = 1 To 50
ActiveCell.Offset(1, 0).Select
if activecell.value<>"Total" then Selection = i
Next
End Sub

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009

Bonjour
merci, cela a marché, seulement il y a juste un petit problème, cela m'a supprimé le nombre qui aurait du être à la place de Total.  le  nombre ne s'est pas mis en dessous il a tout bonnement été supprimé... mais sinon cela m'aide beaucoup.