Discussion :

[Invité]

Bonjour à tous,

Je suis en train de faire un gestionnaire de remorque et j'aurais besoin de créer une fonction me permettant de rechercher un doublon et de supprimer toute la ligne en question.

Je pense qu'il faut utiliser une recherche v mais je ne sais pas trop ...

Si vous avez des idées, je prend

[mercatog]

Quelle est ta version d'Excel?

[Invité]

Excel 2007

J'ai également un problème lié à une limitation des caractères choisies, j'arrive à détecter quand l'utilisateur utilise un mauvais caractère, lui envoyé un message d'avertissement mais lorsque je demande d'effacer la saisie cela ne fonctionne pas et le caractère est toujours présent :s

Voici mon code:

Code :

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

1
2
3
4
If Not (KeyAscii = 32 Or KeyAscii = 45 Or (KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 122)) Then
    Reponse = MsgBox("Le caractère " & Chr(KeyAscii) & " n'est pas autorisé !" & vbCrLf & "Il ne sera donc pas validé.", vbExclamation + vbOKOnly, "Attention")
    F_PositionnerRemorque.B_Immatriculation = ""
End If

Or la textbox B_Immatriculation reste pleine même lorsqu'il y a une erreur ...

[mercatog]

Onglet Données > Rubrique Outils de Données > Supprimer les doublons.

En vba regarde l'aide sur RemoveDuplicates

[Invité]

Merci beaucoup !
Je vais regarde cela et je reviens vers toi :p

Une idée sur mon autre problème qui n'efface pas le texte lorsqu'il y a une erreur ?

Code :

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

1
2
3
4
If Not (KeyAscii = 32 Or KeyAscii = 45 Or (KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 122)) Then
    Reponse = MsgBox("Le caractère " & Chr(KeyAscii) & " n'est pas autorisé !" & vbCrLf & "Il ne sera donc pas validé.", vbExclamation + vbOKOnly, "Attention")
    F_PositionnerRemorque.B_Immatriculation = ""
End If

[mercatog]

Un sujet par post (règlement du forum oblige)
Ouvre un nouvel sujet avec ta question.