syntaxe boucle "for each"

**sterf** · 02/09/2014, 09h43

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

**had4789** · 02/09/2014, 09h56

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

**bboy-eazy** · 02/09/2014, 10h00

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**had4789** · 02/09/2014, 10h08

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

**bboy-eazy** · 02/09/2014, 10h39

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

**sterf** · 02/09/2014, 11h09

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

cordialement

**had4789** · 02/09/2014, 11h33

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**sterf** · 02/09/2014, 12h12

merci beaucoup pour votre aide (meme si je n'ai pas réussi à l'appliquer

), un truc m'échappe mais je sais pas quoi...tans pis.

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

bonne journée

**bboy-eazy** · 02/09/2014, 12h51

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**sterf** · 02/09/2014, 15h14

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