Erreur définie par l'application ou par l'objet
Bonjour à tous,
Voici mon problème. J'ai un code qui me permet de faire une recherche par rapport à un litige et d'ainsi compléter une feuille pour pouvoir l'imprimer par la suite. Sauf qu'un message d'erreur apparait "erreur définie par l'application ou par l'objet" et je n'arrive pas à trouver le problème. Merci d'avance.
Sub CommandButton1_Click()
A = 2
ValeurdeA
If Sheets("Imprimer un litige").Range("C4") = Sheets("Litiges").Range("B" & A) Then
Sheets("Imprimer un litige").Range("C6") = Sheets("Litiges").Range("C" & A)
Sheets("Imprimer un litige").Range("C8") = Sheets("Litiges").Range("E" & A)
Sheets("Imprimer un litige").Range("C10") = Sheets("Litiges").Range("D" & A)
Sheets("Imprimer un litige").Range("C12") = Sheets("Litiges").Range("F" & A)
Sheets("Imprimer un litige").Range("C14") = Sheets("Litiges").Range("G" & A)
Sheets("Imprimer un litige").Range("F6") = Sheets("Litiges").Range("I" & A)
Sheets("Imprimer un litige").Range("A21") = Sheets("Litiges").Range("J" & A)
Sheets("Imprimer un litige").Range("A33") = Sheets("Historique litiges").Range("G" & A)
Sheets("Imprimer un litige").Range("B32") = Sheets("Historique litiges").Range("E" & A)
Sheets("Imprimer un litige").Range("C51") = Sheets("Litiges").Range("L" & A)
End If
End Sub
Sub ValeurdeA()
While Sheets("Imprimer un litige").Range("C4") <> Sheets("Litiges").Range("B" & A) --> ici qu'intervient le problème.
A = A + 1
Wend
End Sub
Bonjour
Sans le fichier qui va avec, il sera malaisé de trouver l'origine du problème...
Bye !
Re GMB, autant pour moi, je le joins.
Déclare ta variable A en début de module car elle intervient dans 2 procédures :
Dim A
Sub CommandButton1_Click()
A = 2
ValeurdeABye !
Merci beaucoup, cela marche parfaitement mais j'ai un dernier petit soucis. Je n'arrive pas a renseigner l'historique complet du litige qu'on retrouve dans la feuille "historique litiges" ainsi que la date et l'heure. Pour le reste tout fonctionne.
Les macros savent écrire sur des lignes masquées.
Si tu veux les voir, il ne faut pas les masquer !
Je parle de la ligne 10 de la feuille "Historique litiges"
Bye !