Discussion :

[jbggg]

bonjour,

je ne comprends pas pourquoi mon code ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim a As String
 
TextBox1.Value = a
 
If a <> 0 Then
    Worksheets("BM").Range("E1") = a And Worksheets("BM").Range("AY1") = 1
        Else
            MsgBox "il manque des infos"
 
End If

pourriez vous m'indiquer mes erreurs.

merci

[ucfoutu]

Bonjour,

déjà (principe 1er) :
tu définis a comme shaîne de caractères (string) (et en plus vide dans ton code, puisque tu ne lui attribues aucune valeur string)
0 est un numérique

Et cette ligne de code (indépendamment de ce que j'ai dit plus haut) :

Code :

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

Worksheets("BM").Range("E1") = a And Worksheets("BM").Range("AY1") = 1

ne correspond à aucune syntaxe VB ....

Bien sûr :
c'était la réponse à ta demande, à savoir :

pourriez vous m'indiquer mes erreurs.

[jbggg]

ok mais alors comment écrire ma macro:

je souhaiterai que si ma textbox 1 et 2 ne sont pas remplies alors apparaisse un msgbox.

et si les deux textbox ont été remplies alors inscrire leur valeur dans des cellules bien précises

Code :

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

Worksheets("BM").Range("E1")=textbox1.value

[ucfoutu]

Correction à main levée, donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim a As String
 
a = TextBox1.Value 
If a <> "" Then
    Worksheets("BM").Range("E1") = a
    Worksheets("BM").Range("AY1") = 1
Else
    MsgBox "il manque des infos"
 
End If

[jbggg]

ok merci voila je n'avais pas fait attention que je comparais une chaine de caractere avec du numeric.

[ucfoutu]

Tu crois vraiment que ce n'était QUE celà ?