Controle colonne userform
Fermé
amine69500
Messages postés
418
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
25 août 2013
-
16 juin 2009 à 10:40
garion28 Messages postés 1543 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 - 16 juin 2009 à 16:17
garion28 Messages postés 1543 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 - 16 juin 2009 à 16:17
A voir également:
- Controle colonne userform
- Déplacer une colonne excel - Guide
- Controle parental pc - Guide
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Télécharger fausse vignette contrôle technique ✓ - Forum Imprimante
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
2 réponses
slt amine
je suis débutant en VB mais j'ai peut etre une idée pour toi
par contre je ne comprend pas du tout pk tu t'embete a utiliser deux bouton... :p
Private Sub CommandButton2_Click()
for i=2 to 50 'si tu compte remplir 50 colonnes...
if Sheets(1).Cells(1, i).Value <>0
Sheets(1).Cells(1, i).Value = TextBox1.Text
end if
next
Load UserForm4
UserForm4.Show
end sub
ps: tien moi au courant si ca t'aide ;)
je suis débutant en VB mais j'ai peut etre une idée pour toi
par contre je ne comprend pas du tout pk tu t'embete a utiliser deux bouton... :p
Private Sub CommandButton2_Click()
for i=2 to 50 'si tu compte remplir 50 colonnes...
if Sheets(1).Cells(1, i).Value <>0
Sheets(1).Cells(1, i).Value = TextBox1.Text
end if
next
Load UserForm4
UserForm4.Show
end sub
ps: tien moi au courant si ca t'aide ;)
garion28
Messages postés
1543
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
3 avril 2011
395
16 juin 2009 à 16:17
16 juin 2009 à 16:17
déclarer une variable en global:
Public col as integer
ensuite dans ton userform a l'action du bouton 1:
col=2
while(sheets("feuil1").cells(1,col).value<>"")
col=col+1
wend
'le while permet de trouver la prochaine colonne vide et ce qui suit permet d'écrire le contenu de la textbox dans la cellule a la colonne numéro col
sheets("feuil1").cells(1,col).value=textbox1.value
Public col as integer
ensuite dans ton userform a l'action du bouton 1:
col=2
while(sheets("feuil1").cells(1,col).value<>"")
col=col+1
wend
'le while permet de trouver la prochaine colonne vide et ce qui suit permet d'écrire le contenu de la textbox dans la cellule a la colonne numéro col
sheets("feuil1").cells(1,col).value=textbox1.value