Formule If VBA

Bonjour a tous,

J'ai un petit probleme que je n'arrive pas à resoudre.

Si dessous mon code

Private Sub CommandButton1_Click()

Dim Jxxxx As Long

Worksheets("Suivi").Activate
Jxxxx = Range("D" & Cells.Rows.Count).End(xlUp).Row + 1

If TextBox4 = "" Or TextBox4 = 0 Then
MsgBox "Manque le numero de commande"
GoTo Manque_cde
End If

'Recuperer le login

COL_A = TextBox1.Value
COL_B = TextBox2.Value
COL_C = TextBox3.Value
COL_D = TextBox4.Value
COL_E = ComboBox1.Value
COL_F = TextBox7.Value
COL_G = TextBox8.Value
'--------------------------------------------------------------------------------------
Range("A" & Jxxxx) = COL_A
Range("B" & Jxxxx) = COL_B
Range("C" & Jxxxx) = COL_C
Range("D" & Jxxxx) = COL_D
Range("E" & Jxxxx) = COL_E
Range("F" & Jxxxx) = COL_F
Range("G" & Jxxxx) = COL_G

If TextBox1.Value = "" Then
TextBox1.Value = "Rien"
End If

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
ComboBox1 = ""

Manque_cde:

End Sub

Je me prendre la tete à faire car j'aimerais que si la textbox1 n'est pas rempli je remplace l'espace vide part le texte "Rien"

If TextBox1.Value = "" Then
TextBox1.Value = "Rien"
End If

Mais cela ne marche pas pouvez-vous m'aider?

Bonsoir,

Si tu regardes un peu ton code et en l'appliquant avec la touche F8 pour le lancer, tu verras que le textbox1 affichera "Rien", mais comme par la suite, tu remets tout les Textbox à ="", et bien il n'y a plus "Rien" et vraiment plus rien, du tout du tout

donc u mieux sans connaitre le reste de logique enlève la remise à rien de la Textbox1 (Textbox1="")

Bonsoir,

Private Sub TextBox1_Change()
    If TextBox1.Value = "" Then TextBox1.Value = "Rien"
End Sub

Et dans la fenêtre de propriété tu mets la valeur Rien pour cette TexBox, qui alors aura toujours cette valeur à l'ouverture du userform. Tu pourras vider tes TextBox sans te préoccuper, celui-ci reprendra automatiquement la valeur Rien...

NB- Indenter ton code le rendrait plus facile à lire et plus plaisant à regarder.

Utiliser des boucles éviterait des énumérations fastidieuses, le rendrait aussi plus plaisant, et l'améliorerait quelque peu.

Cordialement.