XL 2010 Résolu par pierrejean If a plusieurs critères VBA

[reinruof77]

re-bonjour

Voila j'ai ce code pour éviter les doubles saisie

If Application.WorksheetFunction.CountIf(Range("N:N"), TextBox4.Value) = 2 Then
      
    MsgBox "SAISIE DEJA EFFECTUER "
        End If

mais est t'il possible d'avoir plusieurs critères.
j'ais essayer ça

 If Application.WorksheetFunction.CountIf(Range("C:C"), ComboBox2.Value) = 2 Then
     If Application.WorksheetFunction.CountIf(Range("F:F"), DTPicker1.Value) = 2 Then
    If Application.WorksheetFunction.CountIf(Range("N:N"), TextBox4.Value) = 2 Then
      
    MsgBox "SAISIE DEJA EFFECTUER "
        End If
        End If
        End If

Mais cela ne fonctionne pas.

Merci de votre aide
(promis après j’arrête)

 

[Chris24]

Bonjour

Et comme ceci

If Application.WorksheetFunction.CountIfs(Range("C:C"), ComboBox2.Value) = 2, Range("F:F"), DTPicker1.Value) = 2, Range("N:N"), TextBox4.Value) = 2 ) Then
MsgBox "SAISIE DEJA EFFECTUER "
End If

Cdt

 

[reinruof77]

Merci de répondre Chris24

Mais non cela ne fonctionne pas

merci quand même

 

[pierrejean]

Bonjour à tous
A tester

If Application.WorksheetFunction.CountIf(Range("C:C"), ComboBox2.Value) > 1_
Or Application.WorksheetFunction.CountIf(Range("F:F"), DTPicker1.Value) >1_
Or Application.WorksheetFunction.CountIf(Range("N:N"), TextBox4.Value) >1 Then

MsgBox "SAISIE DEJA EFFECTUEE "

End If

 

[Chris24]

Re:

Mais c'est bien sûr où ai-je la tête

Nb= Application.WorksheetFunction.CountIfs(Range("C:C"), ComboBox2.Value) = 2, Range("F:F"), DTPicker1.Value) = 2, Range("N:N"), TextBox4.Value) = 2 ) 
If Nb>0  Then
MsgBox "SAISIE DEJA EFFECTUER "
End If

 

[reinruof77]

MERCI pierrejean
cela fonctionne

petite question j'ai mon message mais cela me la saisie tout de même comment faire pour arrêter la procédure?

merci beaucoup

 

[pierrejean]

Re

If Application.WorksheetFunction.CountIf(Range("C:C"), ComboBox2.Value) > 1_
Or Application.WorksheetFunction.CountIf(Range("F:F"), DTPicker1.Value) >1_
Or Application.WorksheetFunction.CountIf(Range("N:N"), TextBox4.Value) >1 Then

MsgBox "SAISIE DEJA EFFECTUEE "
exit sub
End If

 

[reinruof77]

SUPER MERCI

 

[reinruof77]

heu comment dire cela

finalement ça va pas

car si j'ai un critère en double je suis bloquer alors qu'il faut que ce soit les trois en même temps

(si combobox2 ET dtpicker1 ET textbox4) alors message

la quand le combobox2 existe mais pas les autres j'ai le message.

 

[reinruof77]

Re:

Mais c'est bien sûr où ai-je la tête

Nb= Application.WorksheetFunction.CountIfs(Range("C:C"), ComboBox2.Value) = 2, Range("F:F"), DTPicker1.Value) = 2, Range("N:N"), TextBox4.Value) = 2 )
If Nb>0  Then
MsgBox "SAISIE DEJA EFFECTUER "
End If

merci mais j'ai une erreur de syntaxe?

 

[Chris24]

Vitesse et précipitation....

Nb= Application.WorksheetFunction.CountIfs(Range("C:C"), ComboBox2.Value = 2, Range("F:F"), DTPicker1.Value = 2, Range("N:N"), TextBox4.Value = 2 )

 

[reinruof77]

merci Chris24
mais j'ai toujours le même problème si l'un des trois critère existe j'ai le message Alors qu'il faut que ce soit les trois critères en même temps .
Merci encore

 

[reinruof77]

j'ai essayer avec And mais non plus

If Application.WorksheetFunction.CountIf(Range("C:C"), ComboBox2.Value) > 1 And Application.WorksheetFunction.CountIf(Range("F:F"), DTPicker1.Value) > 1 And Application.WorksheetFunction.CountIf(Range("N:N"), TextBox4.Value) > 1 Then
MsgBox "SAISIE DEJA EFFECTUEE "

Exit Sub
End If

 

[Chris24]

Et RE:

Sub test()
Dim Nb As Boolean, Nb1 As Boolean, Nb2 As Boolean
Nb = Application.WorksheetFunction.CountIfs(Range("C:C"), ComboBox2.Value > 1)
Nb1 = Application.WorksheetFunction.CountIfs(Range("F:F"),  DTPicker1.Value > 1)
Nb2 = Application.WorksheetFunction.CountIfs(Range("n:n"), 'TexTbox4.Value > 1)
If  Nb And Nb1 And Nb2 = True Then
MsgBox "toto"
Exit Sub
End If
End Sub

 

[reinruof77]

re chris24

cela ne fonctionne toujours pas
je te joint mon fichier car la je comprend pas?

Merci de ton aide