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
Next
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
Next
End Sub