Si doublons ===> msgbox

[Moi_Bis]

Bonjour à tous.

J'ai placé ce code:

Sub Alasuite()

' Selectionne la première cellule du tableau
Range("M1").Select

' Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
NbLigne = NbLigne + 1
Selection.Offset(1, 0).Select

Loop

ActiveCell.Value = Range("E5").Value

End Sub

Je désire placer un code à la suite de celui-ci qui permettrai d'éviter le doublon en colonne M et d'afficher un msgbox ===> "Alerte"

Merci à l'avance

 

[mapomme]

Re : Si doublons ===> msgbox

Bonsoir Moi_Bis,

Un essai dans le fichier joint. Un changement de la valeur de la cellule E5 provoque l'insertion de la valeur de E5 dans la colonne M (sauf si doublon)

le code:

Private Sub Worksheet_Change(ByVal Target As Range)
  'est ce la valeur de E5 qui a changé ?
  If Target.Address = Range("E5").Address Then
    'si OUI, est ce que la valeur de E5 est déjà dans la colonne M ?
    If Range("M:M").Find(what:=Range("E5").Value, LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
      ' NON, on la rajoute en fin de colonne M
      Range("M" & Rows.Count).End(xlUp).Offset(1) = Range("E5").Value
    Else
      ' OUI, message d'alerte
      MsgBox Range("E5") & " déjà présent au sein de la colonne M"
    End If
  End If
End Sub

 

[vmatthieu]

Re : Si doublons ===> msgbox

bonsoir le forum,
je pense que tu peux le faire avec un objet dictionnary (voir le site de boisgontier)
Set d = CreateObject("Scripting.Dictionary")
'-- ajout de clés/items
If d.Exists(ta cellle) Then
msgbox ("alerte")
else
d.Item(tacellule) = ta cellule
end if

si j'ai bien compris ??

 

[vmatthieu]

Re : Si doublons ===> msgbox

bon
vu la réponse de ma pomme j'avais rien compris, mais ce sera pour une prochaine fois....

 

[Moi_Bis]

Re : Si doublons ===> msgbox

Bonjour mapomme et vmatthieu

Merci mapomme, ça fonctionne nickel