Re,
Malheureusement les programmes que tu appelles ne sont pas présents dans le fichier joint, et je n'ai pas leur code...
Ce que je veux vérifier, c'est que dans la partie qui ne marche pas, tu aies bien tout qui soit bon: variable avec valeur affectée, valeur bonne etc...
Vraiment désolé les codes appelés sont les suivants :
Sub ReportCredit()
Dim ligFin As Long
ligFin = Range("a" & Rows.Count).End(xlUp).Row
'copie des dates de facture et N°Pièce
Range("a2", "b" & ligFin).Copy
Range("a" & ligFin + 1).Select
ActiveSheet.Paste
'copie des n°compte à créditer
Range("h2", "h" & ligFin).Cut
Range("h" & ligFin + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Copie des codes de journaux
Range("l2", "l" & ligFin).Copy
Range("l" & ligFin + 1).Select
ActiveSheet.Paste
'Copie des libéllés
Range("n2", "n" & ligFin).Copy
Range("n" & ligFin + 1).Select
ActiveSheet.Paste
'Couper les numéros de compte à créditer
Range("g2", "g" & ligFin).Cut
Range("e" & ligFin + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
et le code que tu as fait :
Sub Mouvement()
Dim MVT As String 'MVT = ""
MVT = InputBox("Quel est le numéro de mouvement pour vos écritures?", "") 'MVT = ""
Range("o2", "o" & ligFin) = MVT 'MVT = InputBox
End Sub