Recherche code VBA

[apdf1]

Bonjour,

Je suis a la recherche d'un code pour un USF.
Si les textbox son vide Valeur = XXXXXXX

Si quelqu'un peut m'aider je le remercie d'avance

Bonne journée

Max

 

[Pierrot93]

Re : Recherche code VBA

Bonjour Max

essaye ceci :

If TextBox1 = "" Then TextBox1.Value = "xxxxx"

bon après midi
@+

 

[Pierrot93]

Re : Recherche code VBA

Re,

si tu veux boucler sur la totalité des textbox :

Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then If c = "" Then c.Value = "xxxxx"
Next c

 

[Dranreb]

Re : Recherche code VBA

Bonjour Pierrot93.
Si je puis me permettre je crois que le problème est peut être un peu plus compliqué que ça et un nombre de X restant à saisir derrière ce qui aura été effectivement tapé serait sans doute apprécié.
Ces X ne peuvent techniquement être que la valeur du TextBox mais pas la valeur du champ considéré d'un point de vue fonctionnel.
Mais il reste au demandeur de confirmer cela.
Cordialement.

 

[Pierrot93]

Re : Recherche code VBA

Re, bonjour bernard,

Si je puis me permettre je crois que le problème est peut être un peu plus compliqué que ça et un nombre de X restant à saisir derrière ce qui aura été effectivement tapé serait sans doute apprécié.

tu as peut être raison, mais sans plus de détails... difficile d'avoir une idée plus précise, enfin pour moi....

 

[apdf1]

Re : Recherche code VBA

Re,

Bonjour Pierrot, Dranreb et merci d'avoir répondu aussi vite.

Pour question poser c'est exactement ce que je rechercher mais je me suis mal exprimer ou plutôt je n'ai pas fini ma question.

Dans met TextBox il y a bien les XXXXXX que j'avais demander jusqu'ici aucun problème mais j'aimerais qu'il affiche sur ma feuille les XXXXXX si je ne rempli pas les textbox.

Ci joint mon code

Private Sub UserForm_Initialize()

' Combobox2
 With Me.ComboBox2
         .Style = fmStyleDropDownList
        .AddItem "Florajet"
        .AddItem "Entrefleuriste"
        .AddItem "Eurofloriste"
        
    End With
     If TextBox14 = "" Then TextBox14.Value = "xxxxx"
     If TextBox9 = "" Then TextBox9.Value = "xxxxx"
     If TextBox10 = "" Then TextBox10.Value = "xxxxx"
    
End Sub


'Ajouter
Private Sub CommandButton1_Click()
Dim t() As Variant, i As Byte
    If ComboBox2.ListIndex > -1 Then
        t = Array(ComboBox2.Text, "Récap")
        For i = 0 To 1
            With Sheets(t(i))
            
       If TextBox14.Value = "" Then
       'Label243.Visible = True
       Exit Sub
       End If
            
                      
                .Range("A9:K9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
               
                .Cells(9, 2) = TextBox1.Value ' Nom
                .Cells(9, 3) = TextBox2.Value ' Prénom
                .Cells(9, 5) = TextBox5.Value ' Adresse
                .Cells(9, 7) = TextBox7.Value ' Ville
                .Cells(9, 6) = TextBox6.Value ' C.P
                .Cells(9, 8) = TextBox8.Value ' Tel
                .Cells(9, 4) = TextBox3.Value ' Date
                .Cells(9, 1) = TextBox4.Value ' N° Cde
                .Cells(9, 9) = TextBox9.Value 'Montant
                .Cells(9, 10) = TextBox10.Value 'Frais
                .Cells(9, 11) = TextBox11.Value ' T.T.C
                .Cells(9, 12) = TextBox14.Value ' Transmetteur
              
            End With
  
        Next i
        TextBox3 = ""    ' Nom
        TextBox4 = ""    ' Prénom
        TextBox5 = ""    ' Adresse
        TextBox7 = ""    ' Ville
        TextBox6 = ""    ' C.P
        TextBox8 = ""    ' Tel
        TextBox1 = ""    ' Date
        TextBox2 = ""    ' N° Cde
        TextBox9 = ""   ' Montant
        TextBox10 = ""   ' Frais
        TextBox11 = "" ' T.T.C
        
        ComboBox2.ListIndex = -1
    Else
        MsgBox "Choisir un 'Onglet' !"
        'MsgBox "Remplir combobox2' !"
    End If
End Sub

Je vous remercie d'avance et vous souhaite une bonne journée

Max

 

[Pierrot93]

Re : Recherche code VBA

Re,

regarde ceci :

Range("A1").Value = IIf(TextBox1 = "", "xxxx", TextBox1)

 

[apdf1]

Re : Recherche code VBA

Re,

Je te remercie Pierrot

Bonne journée

Max