Fonction, variable et argument : vba et excel
amine69500
Messages postés
422
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
es ce que quelqu'un peu m aider svp , je souhaiterai savoir comment je peu déclarer une variable , colonnesuivante , pour que celle ci contrôle des listbox et textbox dans un userform , c'est a dire quand j'appuie sur le bouton1, a chaque click les listbox et textbox controle la colonne vide suivante .
voici mon code :
Private Sub OptionButton1_Click()
Load UserForm1
UserForm1.Show
End Sub
macro 1 : a affecte au boutoncommande1 :
Sub remplircolonnesuivante()
' ma variable
Dim colonneSuivante As Long
' la condition
If OptionButton1 = True Then
Load UserForm1
UserForm1.Show
'definir la colonne suivante
colonneSuivante = _
Application.WorksheetFunction.CountA
' Transfère le contenu des listbox et texbox : c'est ici je sai pa comment faire pour que je controle les cellules de la colonne suivante
Cells(colonneSuivante, 1) = ListBox.Text
Cells(colonneSuivante, 2) = TextBox1.Text
End If
End Sub
merci de votre aide
n'hésitez pas a me demande plus d'information si vous le souhaitez.
es ce que quelqu'un peu m aider svp , je souhaiterai savoir comment je peu déclarer une variable , colonnesuivante , pour que celle ci contrôle des listbox et textbox dans un userform , c'est a dire quand j'appuie sur le bouton1, a chaque click les listbox et textbox controle la colonne vide suivante .
voici mon code :
Private Sub OptionButton1_Click()
Load UserForm1
UserForm1.Show
End Sub
macro 1 : a affecte au boutoncommande1 :
Sub remplircolonnesuivante()
' ma variable
Dim colonneSuivante As Long
' la condition
If OptionButton1 = True Then
Load UserForm1
UserForm1.Show
'definir la colonne suivante
colonneSuivante = _
Application.WorksheetFunction.CountA
' Transfère le contenu des listbox et texbox : c'est ici je sai pa comment faire pour que je controle les cellules de la colonne suivante
Cells(colonneSuivante, 1) = ListBox.Text
Cells(colonneSuivante, 2) = TextBox1.Text
End If
End Sub
merci de votre aide
n'hésitez pas a me demande plus d'information si vous le souhaitez.
A voir également:
- Fonction, variable et argument : vba et excel
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
- Fonction somme excel - Guide
