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à ?

[jbggg]

au je vais m'améliorer

aujourd'hui c'est ma journée VBA

revenons à nos moutons une dernière précision, comment faire pour que l'on ne puisse pas fermer un userform. car c'est bien beau je controle la saisi de mes textbox, mais si l'utilisateur ne veux pas les remplir rien ne l'en empeche il lui suffit de cliquer sur la croix et hop pas besoin de les remplir.

(ps je ne suis pas du tout dans l'informatique mais j'aime bien vba)

[ucfoutu]

Je comprends que tu aimes bien VBA...
L'amour et l'estime sont toutefois des choses en général partagées...
Tout ce qui précède montre que tu y vas "à tâtons", sans t'être intéresser au VBA que tu dis aimer.
Il est temps de commencer à le faire.
Tu as maintenant là une NOUVELLE question (et je sens que d'autres vont venir).
Elle a sa réponse dans la lecture de l'évènement QueryUnload (F1 sur ce mot) de ton userform.

EDIT :
QueryClose (pas QueryUnload).

[jbggg]

il est vraiment génial ce forum

je met moi même la réponse...

Code :

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

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

[ucfoutu]

il est vraiment génial ce forum

Oui, lorsque l'on utilise (ce que tu viens de faire) son moteur de recherches...
Tu aurais d'ailleurs bien pu communiquer directement le lien où tu viens de trouver ta réponse :
http://www.developpez.net/forums/d75...elle-userform/
et qui est plus complet (en vue de la consultation par d'autres forumeurs)