Doublon sur 3 colonnes
Bonjour voici une macro qui me copy mais données su deux feuilles différente si "MA" ou "MLx" à l'utilisation j'ai remarqué que j'avais plusieurs entrée identique ( plusieurs personnes pour faire les saisie ) je voudrais empêcher la saisie en doublon mais sur trois colonnes
les colonne "Mabec Outil" "Repère" " Date de Retour" si un des trois différent alors OK merci d'avance.
Code ----------------------------------------------------
Sub Copie()
Application.ScreenUpdating = False
Range("AS1:BG1").Select
Selection.Copy
If Range("AR1").Value = Nul Then 'Fais le test de la condition en début de macro, et quitte si elle n'est pas remplie.
MsgBox " Macro arrêter manque - Atelier - "
Exit Sub
End If
If Sheets("CR").Range("AR1").Value > 400 Then Sheets("Saisie MA").Select
If Sheets("CR").Range("AR1").Value < 400 Then Sheets("Saisie MLx").Select
Application.EnableEvents = False 'Désactive l'évènement
Range("A8").Select ' va a la ligne A8
ActiveCell.End(xlDown).Select ' Recherche la dernière cellule écrite
ActiveCell.Offset(1, 0).Select ' Dernière celulle + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("CR").Select ' Active la feuille " CR "
Range("C1:D2").Select
Selection.ClearContents
Application.EnableEvents = True
Range("C1").Select
Bonjour
Merci de joindre un fichier Excel
Cordialement
Amadéus a écrit :Bonjour
Merci de joindre un fichier Excel
Cordialement
Bonsoir et merci d'avance voici mon fichier joint
Bonjour, merci beaucoup sa fonctionne bien