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: 21

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: 31

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 17 Décembre 2018

• #8

Merci infiniment

 

Vote positif 0 Vote négatif