Contrôle de doublons depuis userform

Version imprimable

12/11/2010, 10h15
typhoon751

Contrôle de doublons depuis userform

Bonjour à tous,

J'ai un userform dans lequel je renseigne un champs date, je souhaiterais lorsque j'appuie sur le bouton valider (bouton qui écrit dans la feuille excel),
qu'un contrôle de doublons soit présent. C'est à dire qu'une macro parcours ma colonne ou se trouve les dates (colonne C en l'occurrence), et que j'ai un message d'erreur du style "date déjà présente, voulez-vous continuez", si je clique sur oui la date s'inscrit et si je clique sur non, je reviens à mon usf de saisie.

Aidez moi svp, je ne sais pas comment faire ça!!!

Merci d'avance,
typhoon

Bonjour, désolé j'ai appuyé sur entrée avant de terminé :p

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub bouton_valider_Click() 'Directement dans les methodes du bouton valider
 
Dim i As integer 'Declaration de ma variable
 
'On fait le traitement de la cellule C2 jusqu'à la derniere cellule non vide de la colonne C
 
For i = 2 to Sheets("ma_feuille").Range("C65536").End(xlup).row
 
'Si la cellule courante est égale à la valeur entrée dans ma TextBox
 
     if Sheets("ma_feuille").range("C"&i).value = Textbox1.text then
 
'Si la reponse au message est oui je poursuis mon traitement
 
          if (Msgbox "La date est dejà présente, souhaitez-vous continuer?", vbYesNo, "Date dejà présente") = 6 then
          goto suite:
'Sinon je quitte ma macro
          else
             exit sub
          end if
    end if
next
 
suite:
 
''''''''''''''Mon traitement'''''''''''''''''''''
 
end sub

Il faut remplacer bouton_valider par le nom du bouton utilisé.
Il faut remplacer ma_feuille par la feuille contenant les données.
Il faut remplacer TextBox1 par le nom de la TextBox utilisée.
Puis compléter ''''''''''Mon traitement''''''''''''' par le traitement souhaité, ici:

Code:

1
2
'La date s'ajoute après la dernière date remplie
Sheets("ma_feuille").range("C65536").end(xlup).offset(1,0).Value = TextBox1.Text

Cordialement

Bonjour à tous,
j'ai repris l'exemple du msgbox de l'aide de vba
et utilisé la fonction Find pour trouver la date dans la colonne C.
Code à mettre dans le bouton de commande de l'userform:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim vval As Date, vdate As Range
 
'définit les options de la msgbox
Msg = "Cette Date est déjà présente," & Chr(10) & "Souhaitez-vous continuer?"   ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Title = "Démonstration de MsgBox "    ' Définit le titre.
 
'donne le numéro de la dernière lign vide de la colonne C
derlign = Range("C65000").End(xlUp).Row + 1
 
vval = Me.TextBox1.Value
 
'Recherche la date dans la colonne C
Set vdate = Range("C:C").Find(vval)
 
'si la date existe alors
If Not vdate Is Nothing Then
   ' Affiche le message.
   Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
      Range("C" & derlign) = vval    ' Effectue une action.
    Else    ' L'utilisateur a choisi Non.
      Exit Sub    ' Effectue une action.
    End If
Else
Range("C" & derlign) = vval
End If
End Sub

A adapter bien entendu ;)

12/11/2010, 11h52
typhoon751

Merci à tous les deux pour vos réponses,

le problème est résolu!!

Quelle réactivité sur ce forum, j'ai toujours eu des réponses à mes question!!!!
:ccool: