syntaxe boucle "for each"

Bonjour,
malgrès plusieurs tentatives, je n'arrive pas à coder une boucle de type "for each". Cette boucle est censée tester une série de cellule (BA30:CN30). A chaque foie que l'une de ces cellules est égale à 1, je souhaite forcer à "1" la cellule ce trouvant juste dessous ex: (BA31=1 si BA30=1; BB31=1 si BA30=1;etc;etc).
Merci par avance aux personnes qui souhaite m'aider sur ce sujet.

cordialement

Bonjour,

Un simple IF te suffis.

Tu dis si la valeur de la cellule i=1 alors la cellule i+1=1 next i+1 pour passer à la cellule suivante

bonjour,

Voici un exemple de boucle for each. Il suffit après d'adapter à votre besoin.

Code:

---

1 2 3 4 5 6 7 8

Sub hide() Application.ScreenUpdating = False For Each o In Range("BA30:CN30") If o.Value = "1" Then 'le code ... End If Next End Sub

---

Pourquoi as-tu mis un for each o et non un for each cell?

Car j'ai fait un copier coller d'un code que j'ai dans un classeur (j'avais la fleme de le retaper je l'avoue ^^ mdrr) et j'avais utilisé la variable cell pour un autre truc enfait. Mais oui for each cell marche très bien

bonjour messieurs et merci de votre aide,
en fait, ce que je n'arrive pas à faire, ç'est comment déclarer les cellules qui doivent être forcées à "1" (BA31:CN31) toujours en fonction de celle qui ce trouve juste au dessus(BA30:BA30).
j'espère être clair dans mes explications
désolé pour mon ignorance :weird:
cordialement

Bonjour,

Pour cela tu fais ce que je t'ai dis dans mon premier message.

Code:

---

1 2 3 4 5

If cell.value = 1 Then cell.offset(1,1).Value = 1   Enf If   Next cell +1 'sinon toute tes cellule vont valoir 1

---

merci beaucoup pour votre aide (meme si je n'ai pas réussi à l'appliquer:calim2:), un truc m'échappe mais je sais pas quoi...tans pis.

je ne vais pas vous déranger plus longtemp...

bonne journée

Normalement ca doit fonctionner Had4789 t'a tout donner en main!

Code:

---

1 2 3 4 5 6 7 8

Sub test() Application.ScreenUpdating = False For Each Cell In Range("BA30:CN30") If Cell.Value = "1" Then Cell.Offset(1,1).Value = 1 ' pour info Offset(n,x) décale de n ligne a coté de la cellule cible et décale de x colonne a coté de la cellule cible. Pour être plus clair en gros dans le code si la valeur de la cellule cible est 1 alors la valeur de la cellule située une ligne en dessous et une colonne à coté = 1 End If Next Cell +1 End Sub

---

désolé bboy-eazy votre code renvoie un défaut sur l'avant dernière ligne...merci de votre percévérence. suite au détail expliqué dans votre dernier post, je commence à comprendre un peu mieux la logique de la démarche. Pourquoi excel ne veux du "Next Cell +1" ?

merci beaucoup

Bonjour, bonjour !

Citation:

---

Envoyé par sterf

Pourquoi excel ne veux du "Next Cell +1" ?

---

VBA, et non Excel, est un langage !

Il suffit donc de juste lire et appliquer l'aide VBA intégrée concernant l'instruction For Each …