S
Sogood
Guest
Salut la Team 😉
J'ai un code qui me pose problème depuis quelques heures, je n'arrive pas à trouver le hic.
Merci d'avance
Saw
Mon code :
Sub tabcroidyn()
Dim i As Integer
For i = 7 To 25
If Sheets("Tableaux Croisés Dynamiques").Range("A" & i) <> "Total général" Then
Sheets("Tableaux Croisés Dynamiques").Range(("A" & i)🙁"K" &i)).Cut
Destination:=Sheets("Production Hébdomadaire").Range(("B" & i - 4)🙁"L" & i-4))
End if
End Sub
J'ai un code qui me pose problème depuis quelques heures, je n'arrive pas à trouver le hic.
Merci d'avance
Saw
Mon code :
Sub tabcroidyn()
Dim i As Integer
For i = 7 To 25
If Sheets("Tableaux Croisés Dynamiques").Range("A" & i) <> "Total général" Then
Sheets("Tableaux Croisés Dynamiques").Range(("A" & i)🙁"K" &i)).Cut
Destination:=Sheets("Production Hébdomadaire").Range(("B" & i - 4)🙁"L" & i-4))
End if
End Sub