Problème de formule :(

[Sogood]

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

 

[Modeste]

Re : Problème de formule 🙁

Bonjour Sogood,

Sans fichier, ce n'est guère évident ... Vu d'ici (mais je suis loin et ma vue baisse!) il me semble que la syntaxe (en bleu et gras, ci après) est un peu particulière (sans parler du smiley qui s'est immiscé)

Sheets("Tableaux Croisés Dynamiques").Range(("A" & i)🙁"K" &i)).Cut

essaie peut-être d'écrire

Range("A" & i & ":K" & i)

... idem à la ligne suivante, me semble-t-il!?