Discussion :

[bosk1000]

bonjour a tous

sur un formulaire
avec des textbox "nom" et une combobox "operation"
je cherche a créer une commande comprenant deux condition

la première partie
je l'ai

Code :

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

1
2
 
If operation.Value = "bijou" Then Sheets("commandegroupée").Range("a65536").End(xlUp).Offset(0, 3).Value = mtt1.Value

mais a ce code je voudrais ajouter la condition "si nom2 n'est pas vide"

merci pour votre aide

[DVano]

Je suis un noob mais teste ça...

Code :

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

1
2
3
4
5
 
    If operation.Value = "bijou" Then
        If operation.Value = "" Then Sheets("commandegroupée").Range("a65536").End(xlUp).Offset(0, 3).Value = mtt1.Value
        End If
    End If

[rvtoulon]

Salut, bosk1000, DVano
tu peux aussi utiliser "if .... and.... then" (Si .... et si..... alors) ou bien "if...or...then" (Si.... ou si..... alors).
un exemple :
1° SI combo operation = Bijou ET SI nom2 différent de rien (donc nom2 contient une valeur) ALORS etc....

Code :

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

If operation.Value = "bijou" And nom2 <> "" Then Sheets("commandegroupée").Range("a65536").End(xlUp).Offset(0, 3).Value = mtt1.Value

2° SI Combo operation = bijou OU SI nom2 différent de rien ALORS etc...

Code :

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

If operation.Value = "bijou" Or nom2 <> "" Then Sheets("commandegroupée").Range("a65536").End(xlUp).Offset(0, 3).Value = mtt1.Value

Dans le 1° si les deux conditions sont remplies il exécute le code.
Dans le 2° si l'une ou l'autre des conditions sont remplies il exécute le code.

@+

[Gorfael]

Salut à tous

sur un formulaire
avec des textbox "nom" et une combobox "operation"
je cherche a créer une commande comprenant deux condition
.....
mais a ce code je voudrais ajouter la condition "si nom2 n'est pas vide"

À ton nombre de postes, tu devrais savoir que plus on est moins précis, moins on a plus de réponses adaptées .
Pour ce que j'en comprends :

Code :

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

1
2
3
4
   If operation = "bijou" And Me.Nom2 <> "" Then
        If operation = "" Then Sheets("commandegroupée").Range("a65536").End(xlUp).Offset(0, 3) = mtt1
        End If
    End If

Mais je ne suis pas sûr que ce soit ce que tu attendes. On peut aussi faire une imbrication comme le propose DVano.
A+

[bosk1000]

merci a vous tous

en fait la solution AND me suffit, mais bettement je reste entetté sur END quand je pense à "et"

très mauvaise manie

Gorfael, mes excuse, je pensais être clair