Bonjour,
J'ai crée une Usf qui permet d'ajouter des données dans une colonne et qui les tri.
Je souhaiterai qu'avant l'ajout de cette données il y ai une vérification pour savoir si elle existe déjà dans cette colonne.
Si c'est le cas, on bloque l'ajout.
Merci
Private Sub CommandButton3_Click()
ActiveWorkbook.Sheets("Lieu de stockage").Activate
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row 'on cherche la dernière cellule non vide
DernLigne = DernLigne + 1 'DernLigne+1 est donc la première celulle vide
Range("A" & DernLigne) = txt_Resultat
Selection.AutoFilter
Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
J'ai crée une Usf qui permet d'ajouter des données dans une colonne et qui les tri.
Je souhaiterai qu'avant l'ajout de cette données il y ai une vérification pour savoir si elle existe déjà dans cette colonne.
Si c'est le cas, on bloque l'ajout.
Merci
Private Sub CommandButton3_Click()
ActiveWorkbook.Sheets("Lieu de stockage").Activate
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row 'on cherche la dernière cellule non vide
DernLigne = DernLigne + 1 'DernLigne+1 est donc la première celulle vide
Range("A" & DernLigne) = txt_Resultat
Selection.AutoFilter
Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Dernière édition: