Bonjour,
J'ai un problème de boucle "For each Cell in Plage" qui ne me prend que les cellules de la 1ere colonne...et pas les autres...
Dans ma Plage, la colonne 2 est vide, mais la 3 est pleine.
Voici le code :
merci
J'ai un problème de boucle "For each Cell in Plage" qui ne me prend que les cellules de la 1ere colonne...et pas les autres...
Dans ma Plage, la colonne 2 est vide, mais la 3 est pleine.
Voici le code :
Code:
Sub CRHEBDO()
Dim r As Integer
Dim c As Integer
Dim i As Integer
Dim d As Integer
Dim s As Integer
Dim Cell As Range
Dim Plage As Range
Set Plage = ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count)
For Each Cell In Plage
If Not IsEmpty(Cell) Then
r = Cell.Row
c = Cell.Column
s = ActiveSheet.Name
d = Cells(1, c + 1).Value
'collage de la données
i = Sheets("GLOBAL").UsedRange.Rows.Count + 1
Sheets("GLOBAL").Range("A" & i).Value = s
Sheets("GLOBAL").Range("B" & i).Value = d
Sheets("GLOBAL").Range("C" & i).Value = Cell.Value
End If
Next Cell
End Sub
merci