Boucles sur textbox

cp4

XLDnaute Barbatruc

• 16 Décembre 2018

• #2

Bonjour,
Dans ce genre

VB:

For i = 1 to 3 'à adapter au nombre de textbox
If Me.Controls("TextBox" & i) = "" Then
  MsgBox " Pas de valeur"
Else
    MsgBox "Valeur"
End If
Next i

Bonne journée.

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 16 Décembre 2018

• #3

Merci Cp4 mais on dirait que ceci ne règle pas mon problème

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 16 Décembre 2018

• #4

KTM à dit:

Merci Cp4 mais on dirait que ceci ne règle pas mon problème

Cliquez pour agrandir...

On dirait que tu ne t'es pas rendu compte qu'il n'y avait aucun userform🙄 dans ton fichier.

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 16 Décembre 2018

• #5

Effectivement . voici le fichier pour exemple. Merci

 

Pièces jointes

• exemple.xlsm

  18.8 KB · Affichages: 23

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 16 Décembre 2018

• #6

comme ceci

VB:

Option Explicit

Private Sub CommandButton1_Click()
   Dim i As Byte, j As Byte
   With Feuil1
      For j = 0 To 2
         For i = 1 To 4
            .Cells(5 + i, j + 3) = Me.Controls("TextBox" & i + j)
         Next i
      Next j
   End With
End Sub

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Décembre 2018

• #7

Bonjour,

Code:

  For i = 1 To 4
     For j = 1 To 3
       Sheets("feuil1").Cells(i + 5, j + 2) = Me("textbox" & (i - 1) * 3 + j)
     Next j
  Next i
End Sub

Boisgontier

 

Pièces jointes

• Copie de Exemple.xlsm

  21.3 KB · Affichages: 33

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 17 Décembre 2018

• #8

Merci infiniment

 

Vote positif 0 Vote négatif