Besoin d'aide pour Macro avec double condition

[jofdm]

Bonjour à tous,
j'ai un petit souci avec le code suivant :

For x = 3 To FL1.Range("A65535").End(xlUp).Row
If UCase(FL1.Range("A" & x)) Like UCase(OFS.TextBox1.Value) Then
If UCase(FL1.Range("B" & x)) Like UCase(ComboBox2.Value) Then
MsgBox ("Des données ont déjà été saisies pour ce nom et ce numéro de semaine. Veuillez utiliser le module de MODIFICATION")
Else: GoTo OK1
End If
End If
Next

Si le 1er test est vrai et que le 2è est faux, tout va bien, OK1 est exécuté
Si le 1er test est vrai et que le 2è est vrai, j'ai bien l'affichage du message mais OK1 est exécuté alors qu'il ne le devrait pas. Je souhaiterais revenir sur mon userform après l'affichage du message.

J'espère que j'ai été suffisamment clair
Merci d'avance pour votre aide

 

[skoobi]

Re : Besoin d'aide pour Macro avec double condition

Bonjour,
Si ce code se trouve dans un module il suffit d'ajouter Exit Sub après le message pour qu'il rende la main au userform.
Au fait, Goto est à éviter car à mon avis ton "étiquette" Ok1: ce trouve en-dessous de cette boucle ce qui fait que les instructions se trouvant après Ok1: son executé dans tous les cas de figure.

 

[jofdm]

Re : Besoin d'aide pour Macro avec double condition

OK, merci du conseil
Sinon, il n'y a pas moyen de regrouper les 2 conditions, du style SI 1ère condition et 2è condition ALORS ...

 

[Pierrot93]

Re : Besoin d'aide pour Macro avec double condition

Bonjour Jofdm, Skoobi

pour regrouoper tes conditions :

If UCase(FL1.Range("A" & x)) Like UCase(OFS.TextBox1.Value) And _
    UCase(FL1.Range("B" & x)) Like UCase(ComboBox2.Value) Then

@+

 

[jofdm]

Re : Besoin d'aide pour Macro avec double condition

Merci Pierrot93, ça marche nickel, même en remplaçant le and _ par un simple &

 

[Pierrot93]

Re : Besoin d'aide pour Macro avec double condition

Re

méfies toi & est plus un opérateur permettant de concatener du texte, te renverras pas forcement le bon résultat...

@+