Ranger valeur TextBox si non vide
Résolu
thesentry
Messages postés
1014
Date d'inscription
Statut
Membre
Dernière intervention
-
thesentry Messages postés 1014 Date d'inscription Statut Membre Dernière intervention -
thesentry Messages postés 1014 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai plusieurs textbox sur un USF. Certaines TextBox doivent être obligatoirement remplies, d'autres non.
Je souhaiterais ranger sur la ligne 1 de ma feuille Excel les données des textbox non vides.
J'ai essayé avec ça :
mais je n'ai pas ce que j'attendais, toutes mes textboxs se vident et rien ne s'enregistre sur ma feuille...
Une idée ? Merci
J'ai plusieurs textbox sur un USF. Certaines TextBox doivent être obligatoirement remplies, d'autres non.
Je souhaiterais ranger sur la ligne 1 de ma feuille Excel les données des textbox non vides.
J'ai essayé avec ça :
Private Sub CommandButton1_Click()
Dim X As Variant
X = ""
For i = 1 To 10
If UserForm1.Controls("TextBox" & i).Value <> "" Then
UserForm1.Controls("TextBox" & i).Value = X
Sheets("Feuil1").Range("Z1").End(xlToLeft).Offset(0, 1).Value = X
X = ""
End If
Next i
End Sub
mais je n'ai pas ce que j'attendais, toutes mes textboxs se vident et rien ne s'enregistre sur ma feuille...
Une idée ? Merci
A voir également:
- Ranger valeur TextBox si non vide
- Supprimer page word vide - Guide
- Ranger par ordre alphabétique excel - Guide
- Caractere vide - Guide
- Coeur vide ✓ - Forum Facebook
- Raccourci coeur blanc - Forum Facebook
2 réponses
Bonjour,
ira mieux comme cela:
ira mieux comme cela:
Private Sub CommandButton1_Click()
Dim X As Variant
For i = 1 To 10
If UserForm1.Controls("TextBox" & i).Value <> "" Then
Sheets("Feuil1").Range("Z1").End(xlToLeft).Offset(0, 1).Value = UserForm1.Controls("TextBox" & i).Value
End If
Next i
End Sub
thesentry
Messages postés
1014
Date d'inscription
Statut
Membre
Dernière intervention
16
Super ! Merci !
Euh... Re
Maintenant, j'ai tous sur ma ligne 1 de ma cellule Excel
J'aimerais faire apparaître, dans une autre textbox, une synthèse composé comme suit :
Sheets("Feuil1").Range("A1").Value & vbCrLf _
Sheets("Feuil1").Range("B1").Value & vbCrLf _
Sheets("Feuil1").Range("C1").Value & vbCrLf _
Sheets("Feuil1").Range("D1").Value & vbCrLf _
Etc...
Mais je ne peux pas écrire cela comme ça puisque la longueur de la ligne dépend de ce qui a été saisi par l'utilisateur. Donc il faut que je généralise ça.
Un gros, une commande qui lise de droite à gauche, jusqu'à DerCelluleRemplie et m'affiche tout en retournant à la ligne à chaque fois
Maintenant, j'ai tous sur ma ligne 1 de ma cellule Excel
J'aimerais faire apparaître, dans une autre textbox, une synthèse composé comme suit :
Sheets("Feuil1").Range("A1").Value & vbCrLf _
Sheets("Feuil1").Range("B1").Value & vbCrLf _
Sheets("Feuil1").Range("C1").Value & vbCrLf _
Sheets("Feuil1").Range("D1").Value & vbCrLf _
Etc...
Mais je ne peux pas écrire cela comme ça puisque la longueur de la ligne dépend de ce qui a été saisi par l'utilisateur. Donc il faut que je généralise ça.
Un gros, une commande qui lise de droite à gauche, jusqu'à DerCelluleRemplie et m'affiche tout en retournant à la ligne à chaque fois