Saisie sans doublon

[cheyenne63]

Bonjour
En feuille 1, une zone de saisie
En feuille 2, la BD recevant les infos de saisie de la feuille 1
Je souhaiterai que, lorsque je clique sur le bouton Valider Saisie, les cellules de C7 à G7 aille alimenter la BD en feuille 2 en colonne A à E sauf si l'association de C7 et de D7 existe déjà dans la feuille 2 (en colonne A et B)

Exemple joint : je saisie AAA en C7 et BBB en D7 de la feuille 1. Je clique sur le bouton : Si aucune valeur identique dans colonnes A et B de la feuille 2, alors les valeurs de C7 à G7 sont copiées en A8 à E8 de la feuille 2. Sinon (c'est à dire si doublon) message : Combinaison déjà existante !"
Merci d'avance et bon après-midi
Cordialement

 

[CPk]

Re : Saisie sans doublon

Bonjour...Voili voilou

Sub transfert()
a = Feuil2.UsedRange
b = Feuil1.Cells(7, 3).Value & Feuil1.Cells(7, 4).Value
For i = 2 To UBound(a)
If a(i, 1) & a(i, 2) = b Then: MsgBox "Combinaison déjà existante": Exit Sub
Next i
Feuil2.Cells(Rows.Count, 1).End(3).Resize(1, 5).Offset(1, 0) = Feuil1.Cells(7, 3).Resize(1, 5).Value
End Sub

Et au passage...hors contexte excel...Vive le FCG !

 

[cheyenne63]

Re : Saisie sans doublon

Bonjour
Merci, c'est parfait
Bonne journée

 

[CPk]

Re : Saisie sans doublon

Pas de quoi