Discussion :

[NadStin]

Bonjour,

Je souhaiterais faire une boucle avec for each ... next mais je n'arrive pas à poser mon code

Voici ce que je souhaite faire :

Sur la feuille active,
si C12 est différent de ""
si A1 = "SEM A"
alors je copie les cellules B8 -> H14 (soit range("B8").resize(6,6)) de la feuille "SEM A" en E12 -> K18 de la feuille active
Voici un debut de code...

Code :

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

1
2
3
4
5
6
7
Set Cell = c12
Dim Cell As String
For Each Cell In ActiveSheet
If Cell = "" Then
If ("A1") = "SEM A" Then
Sheets("SEM A").Range("B8").Resize(6, 6).Copy
Cell.Offset(0, 2).Paste

En suite je souhaite boucler toutes les 11 cellules vers le bas, soit offset (11,0) soit :
si C23 est différent de ""
si A1 = "SEM A"
alors je copie les cellules B19 -> H25 (soit range("B19").resize(6,6)) de la feuille "SEM A" en E23 -> K29 de la feuille active

Et je boucle jusqu’à ce que une cellule est soit vide.

Merci à tous ceux qui pourront m'aider...

[Philippe Tulliez]

Bonjour,
Comme tu as certainement dû le constater, cette procédure renvoie une erreur dès la deuxième ligne si tu n'as pas mis l'instruction Option Expilcit en tête de module et dès la première ligne si tu as placé cette instruction
Règle n°1 : On déclare une variable avant de lui passer une valeur.

Autre erreur une boucle For Each Object In Collection.... Next parcoure une collection ou une plage de cellule.
Il faudra donc déclarer la variable Cell comme un objet Range et non pas comme un String

Je me suis arrêté là dans la lecture

[NadStin]

Effectivement... Merci Philippe
J'ai donc modifié et mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
 
Dim Cell As Range
Set Cell = Range("c12")
 
If [B1] = "DUP" Then
 
For Each Cell In ActiveSheet
If Cell = "" Then
If ("A1") = "SEM A" Then
Sheets("SEM A").Range("B8").Resize(6, 6).Copy
Cell.Offset(0, 2).Paste
 
 
Next
 
 
End If
 
End Sub

[unparia]

Bonjour
Avant d'aller plus loin :
As-tu une idée de ce que va parcourir ta boucle :

Code :

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

For Each Cell In ActiveSheet

?
On n'écrit jamais sans savoir avec précision de ce cela signifie exactement

[NadStin]

Oui je souhaite parcourir la feuille active toutes les 11 lignes à compter du la cellule C12.

[unparia]

Oui je souhaite parcourir la feuille active

1) est un non-sens. On ne parcourt pas une feuille, mais ses cellules. ActiveSheet est une feuille, ses cellules sont activesheet.Cells
2) parcourir la totalité des cellules d'une feuille ? Sous office 2007 ou ultérieur, tu aurais le temps d'aller prendre un café, voire un repas complet, même en ne faisant que parcourir, sans rien faire d'autre !