Discussion :

[xbooster]

Bonjour a toute et a tous,

Je viens vers vous pour un peu d'aide.

J'ai un userform et je voudrais avoir un if avec deux conditions. j'arrive à faire marcher le code ci-dessous avec une condition et dès que j'ajoute le AND avec la deuxième condition , c'est fini plus rien ne marche.

Le but et que si dans l'userform le champ NUMERO est retrouvé dans la feuille APPEL colonne D alors il regarde si la date de l'userform est la même que dans la feuille APPEL en colonne E si c'est bien le cas des deux conditions message box fin du script et sinon on continue la macro.
Voici le code avec lequel j'ai des erreurs avec deux conditions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Sheets("APPEL").Range(Cells(4, 4), Cells(200000, 30)).Find(Me.Numero.Value) And Sheets("APPEL").Range(Cells(5, 5), Cells(200000, 30)).Find(Me.Date.Value) Is Nothing Then

Merci à tous pour votre aide

Jérôme

[BENNASR]

bonjour jerome
normalement tu cherche à interdir le saisie de doublons sur la colonne D et E
si c'est le cas tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim F As Worksheet
Set F = Sheets("APPEL")
COMPARE = TextBox1.Value & CDate(TextBox2.Value)
For i = 2 To F.Range("D65535").End(xlUp).Row
    If F.Cells(i, 4) & Cells(i, 5) = COMPARE Then
        MsgBox ("Attention, vous avez entré un doublon" & vbLf & "Voir la ligne N° :  " & i)
        Exit Sub
    End If
Next i
lig = F.Range("D" & Rows.Count).End(xlUp).Row + 1
F.Cells(lig, 4) = TextBox1.Value
F.Cells(lig, 5) = CDate(TextBox2.Value)
TextBox1.Value = ""
TextBox2.Value = ""
Unload Me
End Su

[xbooster]

Bonjour BENNASR,

Désolé de ma réponse tardive mais le covid est passer la.

En tout un grand merci ça fonctionne

Jérôme