Avertissement Doublons

[pierrof]

Bonjour

Je souhaite à l'aide d'une macro, renseigner une colonne d'une feuille B. OK
Si la valeur est déja renseigner dans la colonne (doublons) avoir un message d'avertissement et ne pas copier la valeur.

Je joint un fichier joint pour plus de clarté

Merci d'avance de vos explications

 

[laetitia90]

Re : Avertissement Doublons

bonjour pierrof

Private Sub CommandButton1_Click()
Dim a As Range
With Sheets("b")
Set a = .Range("a1", .Cells(Rows.Count, "a").End(xlUp)).Find(What:=TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not a Is Nothing Then
MsgBox "present"
Else
.Range("a" & Rows.Count).End(xlUp)(2) = TextBox1.Value
End If: End With
End Sub

 

[david84]

Re : Avertissement Doublons

Bonjour Pierrof, Laetitia,
si j'ai bien compris, peut-être comme cela :

Private Sub CommandButton1_Click()
Dim a As Range, DerLigne As Long, LigneVide As Long, test As String
With Sheets("b")
DerLigne = .Range("A" & (Rows.Count)).End(xlUp).Row
LigneVide = DerLigne + 1
Set a = Range("A1:A" & DerLigne)
test = Application.CountIf(a, TextBox1)
If test = 0 Then
Range("A" & LigneVide) = TextBox1
Else: MsgBox "Doublon"
End If
End With
TextBox1 = ""
TextBox1.SetFocus
End Sub

A+

 

[laetitia90]

Re : Avertissement Doublons

re, bonjour david
si je peus me permettre david
tu as oublie le point avant range

.Range("A" & LigneVide) = TextBox1

 

[david84]

Re : Avertissement Doublons

Re

si je peus me permettre david...

Mais je t'en prie, bien au contraire car cela me sert à progresser🙂.
Donc, cela doit donner :

Private Sub CommandButton1_Click()
Dim a As Range, DerLigne As Long, LigneVide As Long, test As String
With Sheets("b")
DerLigne = .Range("A" & (Rows.Count)).End(xlUp).Row
LigneVide = DerLigne + 1
Set a = .Range("A1:A" & DerLigne)
test = Application.CountIf(a, TextBox1)
If test = 0 Then
.Range("A" & LigneVide) = TextBox1
Else: MsgBox "Doublon"
End If
End With
TextBox1 = ""
TextBox1.SetFocus
End Sub

Merci et surtout n'hésite pas à continuer de me corriger.
A+

 

[laetitia90]

Re : Avertissement Doublons

rebonjour David je vois que pierrof repost sur un autre sujet
meme pas la politesse de repondre
moi trop!!!!!!!!!!!!!! pas contente du tout... ajoute a ma liste black
passe une bonne soirée david

 

[YANN-56]

Re : Avertissement Doublons

Un re-Bonsoir à Laetitia, puisque nous nous sommes croisés sur autre fil.

Et sans oublier mon Bonsoir à ceux qui sont ou qui passent par ici.

Il est vrai qu'il devient particulièrement lassant d'avoir passé un certain temps,
sinon un temps certain à avoir tenté d'aider celui ou celle qui a posé une question.

Je ne pense pas qu'il soit possible de répertorier les "Moines-copistes" impolis!... Dommage! 😡

Mais que diantre cela serait confortable pour choisir ceux qui méritent qu'on les aide.

Enfin; ignorer les "Vautours à codes" à qui l'on n'a pas tapé assez fort sur les doigts
quand ils étaient gosses, pour qu'ils sachent dire simplement "Merci".

Au plaisir de partager un autre domaine avec toi. 🙂

Yann

 

[laetitia90]

Re : Avertissement Doublons

bonsoir Yann ;
je suis trés contente que l'on partage la méme approche cela devient décourageant
de pas avoir de reponses ...il faut comprendre que l'on est tous des bénevoles on progresse tous en partageant notre vision des choses si pas de réponses cela est fini!!! on avance plus!!!!!
sur ce post l'ami David a pousser le concept jusqu' a vider la textbox remettre le focus meme pas un merci 😡😡😡😡😡😡😡😡😡
je me pose la question cela en vaut t'il la peine
je crois que je vais passer a autre chose tiens faire du tricot comme mon arriere grand mére on moins il restera quelque chose
trop gros bisous a toi
leti

 

[pierrof]

Re : Avertissement Doublons

Bonsoir Yann Laetitia
Désolé pour le retard mais un grand merci à vous 2 pour votre aide 🙂
Vos codes fonctionnent bien