Discussion :

[Tizakx]

Ah oui ! Tu fais bien de me demander, j'avais pas fais attention mais j'ai quelques factures avec des lettres. Donc ta solution fonctionne parfaitement mais pas pour celle avec des lettres.
Je dois déclaré Lig en String ? et certainement remplacé CLng par quelque chose d'autre ?

Quand je te parlais de re-modifier, c'étais quand je re-faisais la procédure de modification, mais plus de problème la dessus.

[riaolle]

Je dois déclaré Lig en String ?

Non, attention, surtout pas ! Lig est la ligne que l'on cherche, ce sera donc toujours un entier (Long) !


Du coup, est-ce que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lig = Application.Match(Me.Choix_facture.List(Me.Choix_facture.ListIndex),Range("A:A"),0)

marche avec les factures ayant des lettres et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lig = Application.Match(CLng(Me.Choix_facture.List(Me.Choix_facture.ListIndex)),Range("A:A"),0)

avec les factures n'ayant pas de lettres ?
Si oui, on va introduire une nouvelle variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim cherche As Variant     'Variant pcq on ne sait pas si c'est un String ou un Long
cherche = Me.Choix_facture.List(Me.Choix_facture.ListIndex)
If isNumeric(cherche) Then cherche = CLng(cherche)
Lig = Application.Match(cherche,Range("A:A"),0)
...

Essaie voir si ça marche.

[Tizakx]

Alors du coup, j'ai essayer avec les deux lignes de code, sa n'a pas fonctionner, donc j'ai déclaré la nouvelle variable, et essayer avec le code que tu ma donné, et ca fonctionne parfaitement !
En espérant que je ne trouve pas d'autres problèmes

Gros gros merci, je suis soulager, j'en pouvais plus de ce problème, j'étais dessus depuis 3 jours, avec des heures de recherches et d'essai.

Et super tes explications, encore merci !

Je te souhaite une bonne fin de journée.

Cordialement, Lucas 'Tizakx

[riaolle]

Parfait
N'oublis pas de passer la discussion en résolue, si tu as tout ce que tu veux.