Bonjour,
Ca fait bien 2h que je cherche dans tout les sens a faire une selection de cellule grace a 2 variables, mais aprés les avoir tourné dans tout les sens, toujours impossible de la selectionner, svp aidez moi
En gros cette partie dois copier un tableau d'une feuille sur un autre tableau dans le sens inverse (BJ4 copié sur C6, BI4 sur D6,....)
Voila le code :
Sub Copie()
'
' Copie Macro
Dim i As Long
Dim j As Long
Dim c As Long
Dim z As Long
z = 6
i = 4
j = 62
Windows("toute piece.xlsx").Activate
Range(i& & j&).Select
Do While i < 500
Windows("toute piece.xlsx").Activate
If (Range("A" & i) <> "") Then
For c = 3 To 62
j = 65 - c
Cells(j, i).Select
Selection.Copy
Windows("Forecast Expo smoo++").Activate
Range(c & z).Select
ActiveSheet.Paste
Next c
End If
z = z + 6
i = i + 1
Loop
End Sub
Merci de votre aide
Bonne journée
Ca fait bien 2h que je cherche dans tout les sens a faire une selection de cellule grace a 2 variables, mais aprés les avoir tourné dans tout les sens, toujours impossible de la selectionner, svp aidez moi
En gros cette partie dois copier un tableau d'une feuille sur un autre tableau dans le sens inverse (BJ4 copié sur C6, BI4 sur D6,....)
Voila le code :
Sub Copie()
'
' Copie Macro
Dim i As Long
Dim j As Long
Dim c As Long
Dim z As Long
z = 6
i = 4
j = 62
Windows("toute piece.xlsx").Activate
Range(i& & j&).Select
Do While i < 500
Windows("toute piece.xlsx").Activate
If (Range("A" & i) <> "") Then
For c = 3 To 62
j = 65 - c
Cells(j, i).Select
Selection.Copy
Windows("Forecast Expo smoo++").Activate
Range(c & z).Select
ActiveSheet.Paste
Next c
End If
z = z + 6
i = i + 1
Loop
End Sub
Merci de votre aide
Bonne journée