bonjour
l’occurrence avec date j'ai compris. il me reste le problème des doublons.
j'ai chercher est teste plusieurs code sur le forum et internet mai cela ne fonctionne pas.
un userform simple un module simple pour affecté la macro a un image cliquable j'arrive un peut. j’arrive pas a faire une macro sur une feuille du classeur qui permet de trié et supprime les doublon.
j'ai teste sans succè
le but étant de trie la colonne A du tableau nommée et de supprime les ligne du tableau en double qui s’exécute automatiquement a chaque nouvelle ligne du tableau.
merci
SUPPRESSION DES DOUBLON
' procédure de suppression des doublons
Private Sub Worksheet_Change(ByVal Target As Range)
' déclaration des variables
Dim ligne As Integer
Dim colonne As Integer
' affectation des variables
ligne = 2: colonne = 1
' on va trier par ordre ascendant le tableau à partir de la colonne A (num 1)
' à partir de la deuxième ligne car la premier ligne comprend des des zen-tête
Range("A2").Sort Range("A2"), xlAscending, Header: xlYes
'on boucle toutes les ligne jusqu’à la dernière ligne vide
While Cells(ligne, colonne).Value <> ""
'on teste si la ligne du dessus est identique a la ligne en cours ALORS
If Cells(ligne, colonne).Value = Cells(ligne - 1, colonne).Value And Cells(ligne, colonne).Value <> "" Then
Cells(ligne, colonne).entirow.Delete 'on supprime la ligne entiere
End If
'on oublie pas d’incrémenter le numéro de ligne pour passer a la suivent
' ligne = ligne + 1
End
End Sub