alfazoulou
XLDnaute Occasionnel
Bonjour le forum,
le code ci dessous:
Private Sub CommandButton2_Click()
Sheets("liste").Range("a100").End(xlUp).Offset(1, 0).Value = Sheets("liste").Range("a100").End(xlUp).Value + 1
MsgBox "la facture " & " " & Sheets("liste").Range("a100").End(xlUp).Value & " " & "a été créée"
End Sub
Fonctionne dans un classeur mais pas dans un autre plus chargé ou un message d'erreur d'exécution 13, incompatibilité de type est envoyé.
Est ce qu'il peut s'agir d'un problème lié à la mémoire de mon PC ou bien un problème lié à Excel ??
le code ci dessous:
Private Sub CommandButton2_Click()
Sheets("liste").Range("a100").End(xlUp).Offset(1, 0).Value = Sheets("liste").Range("a100").End(xlUp).Value + 1
MsgBox "la facture " & " " & Sheets("liste").Range("a100").End(xlUp).Value & " " & "a été créée"
End Sub
Fonctionne dans un classeur mais pas dans un autre plus chargé ou un message d'erreur d'exécution 13, incompatibilité de type est envoyé.
Est ce qu'il peut s'agir d'un problème lié à la mémoire de mon PC ou bien un problème lié à Excel ??