Controle colonne userform
Bonjour,
Bonjour,
j'ai déclares une variable globale dans le module du userform :
Option Explicit
Private col As Integer
Admettons que la première colonne que je remplis soit la B, dans Sub UserFom1_Initialize, j'ai mis col = 2 et dans l'évènement Click() du bouton j'ai fais :
Sub commandButton1_Click()
Sheets(1).Cells(1, col).Value = TextBox1.Text
col = col + 1
End Sub
je souhaite savoir comment faire pour que a chaque click sur ce CommandButton2 le userform s'ouvre et continue le remplissage dans la colonne vide suivante
Private Sub CommandButton2_Click()
Load UserForm4
UserForm4.Show
End Sub
merci de votre aide
Bonjour,
j'ai déclares une variable globale dans le module du userform :
Option Explicit
Private col As Integer
Admettons que la première colonne que je remplis soit la B, dans Sub UserFom1_Initialize, j'ai mis col = 2 et dans l'évènement Click() du bouton j'ai fais :
Sub commandButton1_Click()
Sheets(1).Cells(1, col).Value = TextBox1.Text
col = col + 1
End Sub
je souhaite savoir comment faire pour que a chaque click sur ce CommandButton2 le userform s'ouvre et continue le remplissage dans la colonne vide suivante
Private Sub CommandButton2_Click()
Load UserForm4
UserForm4.Show
End Sub
merci de votre aide
Configuration: Windows XP Internet Explorer 6.0
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 ;) -
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
