Boucle dans une plage de cellule

11 réponses

coco74

08/09/2005 à 11:59

Bonjour les bons !

Je sais (maintenant) effectuer une boucle dans une plage de cellule, par
exemple :
For Each d In ActiveSheet.Range("N26:N37")
If d.Value <> 0 Then
MsgBox (d.Value)
End If
Next d
Question : comment faire pour que le test est lieu dans le sens N37 vers N26
(inverser les adresses de cellules dans Range ne fonctionne pas) ?

Merci de votre aide

--
coco

10 réponses

1 2

Jacky

08/09/2005 à 12:15

Bonjour coco ;o)

Ceci pourrait faire l'affaire
'---------
For i = 37 To 26 Step -1
If Range("n" & i) <> o Then MsgBox Range("n" & i).Value
Next
'----------
Salutations
JJ

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

Bonjour les bons !

Je sais (maintenant) effectuer une boucle dans une plage de cellule, par
exemple :
For Each d In ActiveSheet.Range("N26:N37")
If d.Value <> 0 Then
MsgBox (d.Value)
End If
Next d
Question : comment faire pour que le test est lieu dans le sens N37 vers
N26

(inverser les adresses de cellules dans Range ne fonctionne pas) ?

Merci de votre aide

--
coco

Jacky

08/09/2005 à 12:30

Ouppss

Plutôt

If Val(Range("n" & i)) <> 0 Then MsgBox Range("n" & i).Value

JJ

"Jacky" a écrit dans le message de
news:ORsg$

Bonjour coco ;o)

Ceci pourrait faire l'affaire
'---------
For i = 37 To 26 Step -1
If Range("n" & i) <> o Then MsgBox Range("n" & i).Value
Next
'----------
Salutations
JJ

"coco74" a écrit dans le message de
news:
Bonjour les bons !

Je sais (maintenant) effectuer une boucle dans une plage de cellule, par
exemple :
For Each d In ActiveSheet.Range("N26:N37")
If d.Value <> 0 Then
MsgBox (d.Value)
End If
Next d
Question : comment faire pour que le test est lieu dans le sens N37 vers
N26

(inverser les adresses de cellules dans Range ne fonctionne pas) ?

Merci de votre aide

--
coco

michdenis

08/09/2005 à 15:23

Bonjour Coco74,

Il y a aussi cette présentation :

'----------------------------
dim Nb as long, a as long
With ActiveSheet
With .Range("N26:N37")
Nb = .Rows.Count
For a = Nb To 1 Step -1
If .Item(a, 1) <> 0 Then
MsgBox .Item(a, 1)
End If
Next
End With
End With
'----------------------------

Salutations!

"coco74" a écrit dans le message de news:
Bonjour les bons !

Je sais (maintenant) effectuer une boucle dans une plage de cellule, par
exemple :
For Each d In ActiveSheet.Range("N26:N37")
If d.Value <> 0 Then
MsgBox (d.Value)
End If
Next d
Question : comment faire pour que le test est lieu dans le sens N37 vers N26
(inverser les adresses de cellules dans Range ne fonctionne pas) ?

Merci de votre aide

--
coco

Jacky

08/09/2005 à 15:43

Bonsoir Michel

Il y a aussi cette présentation :

Oui, a condition que 'coco' n'entre pas de texte par inadvertance.

JJ

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

Bonjour Coco74,

Il y a aussi cette présentation :

'----------------------------
dim Nb as long, a as long
With ActiveSheet
With .Range("N26:N37")
Nb = .Rows.Count
For a = Nb To 1 Step -1
If .Item(a, 1) <> 0 Then
MsgBox .Item(a, 1)
End If
Next
End With
End With
'----------------------------

Salutations!

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

Bonjour les bons !

Je sais (maintenant) effectuer une boucle dans une plage de cellule, par
exemple :
For Each d In ActiveSheet.Range("N26:N37")
If d.Value <> 0 Then
MsgBox (d.Value)
End If
Next d
Question : comment faire pour que le test est lieu dans le sens N37 vers
N26

(inverser les adresses de cellules dans Range ne fonctionne pas) ?

Merci de votre aide

--
coco

michdenis

08/09/2005 à 16:14

Bonjour Jacky,

La question était :

| Question : comment faire pour que le test est lieu dans le sens N37 vers N26

Cela n'a rien a voir avec "le test" sur le contenu de la cellule !!! C'est simplement pour la forme !!!

Salutations!

"Jacky" a écrit dans le message de news:
Bonsoir Michel

Il y a aussi cette présentation :

Oui, a condition que 'coco' n'entre pas de texte par inadvertance.

JJ

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

Bonjour Coco74,

Il y a aussi cette présentation :

'----------------------------
dim Nb as long, a as long
With ActiveSheet
With .Range("N26:N37")
Nb = .Rows.Count
For a = Nb To 1 Step -1
If .Item(a, 1) <> 0 Then
MsgBox .Item(a, 1)
End If
Next
End With
End With
'----------------------------

Salutations!

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

Bonjour les bons !

Je sais (maintenant) effectuer une boucle dans une plage de cellule, par
exemple :
For Each d In ActiveSheet.Range("N26:N37")
If d.Value <> 0 Then
MsgBox (d.Value)
End If
Next d
Question : comment faire pour que le test est lieu dans le sens N37 vers
N26

(inverser les adresses de cellules dans Range ne fonctionne pas) ?

Merci de votre aide

--
coco

coco74

08/09/2005 à 16:36

Merci à tous, cela fonctionne parfaitement
--
coco

Ouppss

Plutôt

If Val(Range("n" & i)) <> 0 Then MsgBox Range("n" & i).Value

JJ

"Jacky" a écrit dans le message de
news:ORsg$
Bonjour coco ;o)

Ceci pourrait faire l'affaire
'---------
For i = 37 To 26 Step -1
If Range("n" & i) <> o Then MsgBox Range("n" & i).Value
Next
'----------
Salutations
JJ

"coco74" a écrit dans le message de
news:
Bonjour les bons !

Je sais (maintenant) effectuer une boucle dans une plage de cellule, par
exemple :
For Each d In ActiveSheet.Range("N26:N37")
If d.Value <> 0 Then
MsgBox (d.Value)
End If
Next d
Question : comment faire pour que le test est lieu dans le sens N37 vers
N26

(inverser les adresses de cellules dans Range ne fonctionne pas) ?

Merci de votre aide

--
coco

ClémentMarcotte

08/09/2005 à 18:59

Bonjour,

Moi, j'aime mieux avec cells().

for i = 37 to 26 step - 1
if cells(i,15).value <> 0 then
MsgBox (cells(i,15).value)
End If
Next

Jacky

08/09/2005 à 19:06

Bonsoir

Ma toubib m'a interdit le cell
;-))
JJ

"ClémentMarcotte" a écrit dans le message de
news:

Bonjour,

Moi, j'aime mieux avec cells().

for i = 37 to 26 step - 1
if cells(i,15).value <> 0 then
MsgBox (cells(i,15).value)
End If
Next

ClémentMarcotte

08/09/2005 à 19:16

Bonjour,

Y a aussi du cell. (Abbréviation (si on peut dire) de "cellulaire", lui-même
"abbréviation" de téléphone cellulaire. ;-)

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

Bonsoir

Ma toubib m'a interdit le cell
;-))
JJ

"ClémentMarcotte" a écrit dans le message
de

news:
Bonjour,

Moi, j'aime mieux avec cells().

for i = 37 to 26 step - 1
if cells(i,15).value <> 0 then
MsgBox (cells(i,15).value)
End If
Next

Jacky

08/09/2005 à 19:29

Re...
Il paraît que ce cell. la, est très mauvais pour la matière cérébrale.
;-)
JJ

"ClémentMarcotte" a écrit dans le message de
news:

Bonjour,

Y a aussi du cell. (Abbréviation (si on peut dire) de "cellulaire",
lui-même

"abbréviation" de téléphone cellulaire. ;-)

1 2

Boucle dans une plage de cellule

10 réponses

Veuillez sélectionner un problème