Discussion :

[vivi4561]

Bonsoir,

Je ne sais pas pk, VBA bloque quand j'écris :

Code :

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

1
2
3
4
5
6
7
If NCcab = True Then
    NCcab = "Toto"
ElseIf NCcabSticker = True Then
    NCcabSticker = "Bob"
ElseIf NCcab = False And NCcabSticker = False Then
    NCcab = "" And NCcabSticker = ""
End If

Cela me mets "incompatibilité de type" au niveau de NCcab = "" And ...... Vous savez pk ?

Merci d'avance,


Vince

Je précise que les variables sont bien définies en String.

[Gord21]

Bonjour,
Il faut l'écrire sur deux lignes :

Code :

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

1
2
3
4
5
6
7
8
If NCcab = True Then
    NCcab = "Toto"
ElseIf NCcabSticker = True Then
    NCcabSticker = "Bob"
ElseIf NCcab = False And NCcabSticker = False Then
    NCcab = ""
    NCcabSticker = ""
End If

Remarque : NCcab et NCcabSticker doivent être de type Variant (type par défaut)

@+

[vivi4561]

Enfait j'ai réussi en mettant la deuxième parti à la ligne et en supprimant le "AND".

Merci pour ta réponse Gord.

Pourquoi il faut mieux mettre en Variant ?

[Gord21]

Tu fais un test

Code :

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

... NCcab = True

de type Booléen
puis

Code :

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

... NCcab = "Toto"

de type String

Il faut donc un type Variant si tu ne veux pas d'erreur.
@+

[vivi4561]

D'accord.

Merci pour ta réponse et ta rapidité.

[Gord21]

De rien
@+