Avertissement Doublons

pierrof · 12 Janvier 2011

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 · 12 Janvier 2011

Re : Avertissement Doublons

bonjour pierrof

Code:

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 · 12 Janvier 2011

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 · 12 Janvier 2011

Re : Avertissement Doublons

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

Code:

.Range("A" & LigneVide) = TextBox1

david84 · 12 Janvier 2011

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 · 12 Janvier 2011

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 · 12 Janvier 2011

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 · 12 Janvier 2011

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 · 12 Janvier 2011

Re : Avertissement Doublons

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

Avertissement Doublons

pierrof

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

YANN-56

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

pierrof

XLDnaute Occasionnel

Discussions similaires

Avertissement Doublons

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency