Bonjour
J'avance sur mon projet et je me retrouve confronté à un soucis que je n'avais pas auparavant car les valeurs rentrées dans le tableau sont de plus en plus nombreuses et parfois ne diffèrent que d'une petite valeur dans une des cases.
Jusqu'à maintenant, je me sers de ce code pour supprimer les doublons:
J'aimerais pouvoir à la place de comparer une seule cellule (ici "C2") entre les lignes que je compare comparer la ligne de la cellule A2 à la cellule M2.
J'ai essayé de faire MaCellule = ("A2:M2") mais cela revient au même que MaCellule = ("C2") apparemment...
J'ai aussi essayé de me servir d'un Range(MaCellule)EntireRow.Select mais en vain.
Je vais préparer un fichier de test, mais je ne suis pas sûr que ça soit très utile, c'est sûrement une subtilité toute simple que je n'ai pas saisi.
Bonne journée
Leop93
J'avance sur mon projet et je me retrouve confronté à un soucis que je n'avais pas auparavant car les valeurs rentrées dans le tableau sont de plus en plus nombreuses et parfois ne diffèrent que d'une petite valeur dans une des cases.
Jusqu'à maintenant, je me sers de ce code pour supprimer les doublons:
Code:
Sub supprimeDoublons()
Dim MaCellule
MaCellule = ("C2")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
J'ai essayé de faire MaCellule = ("A2:M2") mais cela revient au même que MaCellule = ("C2") apparemment...
J'ai aussi essayé de me servir d'un Range(MaCellule)EntireRow.Select mais en vain.
Je vais préparer un fichier de test, mais je ne suis pas sûr que ça soit très utile, c'est sûrement une subtilité toute simple que je n'ai pas saisi.
Bonne journée
Leop93