La cellule suivante

6 réponses

Didier Novarin

09/04/2006 à 10:12

Bonjour
J'ai un tableau, dont les données partent de A3:D100
Je souhaite qu'après départ de la cellule A3, un msgbox "Toto" se lance,
puis passe à la cellule A4 le msgbox se lance puis la cellule A5 etc.
Je vous remercie beaucoup
Didier

6 réponses

gérard

09/04/2006 à 10:29

salut
avec une boucle for
For i = 1 To 100

Range("A" & i).Select
MsgBox "coucou, je suis en " & Range("A" & i).Address
Next i
a+

"Didier Novarin" a écrit dans le message de
news:

Bonjour
J'ai un tableau, dont les données partent de A3:D100
Je souhaite qu'après départ de la cellule A3, un msgbox "Toto" se lance,
puis passe à la cellule A4 le msgbox se lance puis la cellule A5 etc.
Je vous remercie beaucoup
Didier

Didier Novarin

09/04/2006 à 10:40

Bonjour et merci Gérard
ce n'est pas exactement ce que je souhaite en fait c'est que cela se fasse
sur les cellules de la plage A à partir de A3 qui sont non vide
Didier

"gérard" a écrit dans le message de news:
4438c5c9$0$20176$

salut
avec une boucle for
For i = 1 To 100

Range("A" & i).Select
MsgBox "coucou, je suis en " & Range("A" & i).Address
Next i
a+

"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai un tableau, dont les données partent de A3:D100
Je souhaite qu'après départ de la cellule A3, un msgbox "Toto" se lance,
puis passe à la cellule A4 le msgbox se lance puis la cellule A5 etc.
Je vous remercie beaucoup
Didier

Youky

09/04/2006 à 11:10

For Each c In Range("A3:A" & [A65536].End(3).Row)
If c.Value <> "" Then MsgBox "toto " & c.Address
Next
Youky
"Didier Novarin" a écrit dans le message de
news:

Bonjour et merci Gérard
ce n'est pas exactement ce que je souhaite en fait c'est que cela se fasse
sur les cellules de la plage A à partir de A3 qui sont non vide
Didier

"gérard" a écrit dans le message de news:
4438c5c9$0$20176$
salut
avec une boucle for
For i = 1 To 100

Range("A" & i).Select
MsgBox "coucou, je suis en " & Range("A" & i).Address
Next i
a+

"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai un tableau, dont les données partent de A3:D100
Je souhaite qu'après départ de la cellule A3, un msgbox "Toto" se lance,
puis passe à la cellule A4 le msgbox se lance puis la cellule A5 etc.
Je vous remercie beaucoup
Didier

gérard

09/04/2006 à 11:16

salut
ca demarre de 3 et ca ne met un message que si il y a quelque chose dans la
cellule

Private Sub Worksheet_Activate()
For i = 3 To 100

Range("A" & i).Select
If Range("A" & i).Value <> "" Then
MsgBox "coucou, je suis en " & Range("A" & i).Address
End If
Next i
End Sub

bon week
gerard
"Didier Novarin" a écrit dans le message de
news:

Bonjour et merci Gérard
ce n'est pas exactement ce que je souhaite en fait c'est que cela se fasse
sur les cellules de la plage A à partir de A3 qui sont non vide
Didier

"gérard" a écrit dans le message de news:
4438c5c9$0$20176$
salut
avec une boucle for
For i = 1 To 100

Range("A" & i).Select
MsgBox "coucou, je suis en " & Range("A" & i).Address
Next i
a+

"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai un tableau, dont les données partent de A3:D100
Je souhaite qu'après départ de la cellule A3, un msgbox "Toto" se lance,
puis passe à la cellule A4 le msgbox se lance puis la cellule A5 etc.
Je vous remercie beaucoup
Didier

Didier Novarin

09/04/2006 à 11:20

Bonjour Youky
Je vais adapter c'est excellent merci beaucoup
Didier

"Youky" a écrit dans le message de news:

For Each c In Range("A3:A" & [A65536].End(3).Row)
If c.Value <> "" Then MsgBox "toto " & c.Address
Next
Youky
"Didier Novarin" a écrit dans le message de
news:
Bonjour et merci Gérard
ce n'est pas exactement ce que je souhaite en fait c'est que cela se
fasse sur les cellules de la plage A à partir de A3 qui sont non vide
Didier

"gérard" a écrit dans le message de news:
4438c5c9$0$20176$
salut
avec une boucle for
For i = 1 To 100

Range("A" & i).Select
MsgBox "coucou, je suis en " & Range("A" & i).Address
Next i
a+

"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai un tableau, dont les données partent de A3:D100
Je souhaite qu'après départ de la cellule A3, un msgbox "Toto" se
lance, puis passe à la cellule A4 le msgbox se lance puis la cellule A5
etc.
Je vous remercie beaucoup
Didier

Didier Novarin

09/04/2006 à 11:21

Ok merci encore Gérard
Bon week-end également
Didier

"gérard" a écrit dans le message de news:
4438d0d2$0$29185$

salut
ca demarre de 3 et ca ne met un message que si il y a quelque chose dans
la cellule

Private Sub Worksheet_Activate()
For i = 3 To 100

Range("A" & i).Select
If Range("A" & i).Value <> "" Then
MsgBox "coucou, je suis en " & Range("A" & i).Address
End If
Next i
End Sub

bon week
gerard
"Didier Novarin" a écrit dans le message de
news:
Bonjour et merci Gérard
ce n'est pas exactement ce que je souhaite en fait c'est que cela se
fasse sur les cellules de la plage A à partir de A3 qui sont non vide
Didier

"gérard" a écrit dans le message de news:
4438c5c9$0$20176$
salut
avec une boucle for
For i = 1 To 100

Range("A" & i).Select
MsgBox "coucou, je suis en " & Range("A" & i).Address
Next i
a+

"Didier Novarin" a écrit dans le message de
news:
Bonjour
J'ai un tableau, dont les données partent de A3:D100
Je souhaite qu'après départ de la cellule A3, un msgbox "Toto" se
lance, puis passe à la cellule A4 le msgbox se lance puis la cellule A5
etc.
Je vous remercie beaucoup
Didier

La cellule suivante

6 réponses

Veuillez sélectionner un problème