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