Fonction avec vba

bonjour merci encore pour votre aide


ca marche a 100%

grace a vous j'avance bien dans projet vba et excel, merci beaucoup

juste une derniere chose svp , comment je peu dire que c'est dans la feuil1 quil se trouve les colonnes: c'est le XXXXXXX voir dans le code SVP , merci de votre attention , et bonne journé

Option Explicit

Private Sub OptionButton1_Click()
Affichage (0)
End Sub

Private Sub OptionButton2_Click()
Affichage (1)
End Sub

Sub Affichage(ByVal opt As Integer)
Dim col As String

Select Case opt
Case 0
col = "A"
Case 1
col = "B"
End Select

ListBox1.RowSource = col & "1:" & col & "10" ici XXXXXXXXXXXXXXXXXXXXXXXXXXXX

End Sub

bonjour

merci beaucoup ca marche a 100% c super

bonne journer

Bonjour,
esxusez moi encore fois , mais
voila le code que vous m'avez données adapte a mon projet , et je souhaiterai faire ca avec des argument c'est a dire quand j'appuie sur un bouton d'option cela me donne le meme resultat qu'avec mon code c'est a dire mon userform doit passer a la colonne suivante :
merci de votre aide

mon code :

Sub Boutondoption1_QuandClic()
UserForm6.Show
Affichage (0)
End Sub

Sub Boutondoption1_QuandClic()
UserForm6.Show
Affichage (1)
End Sub

Sub Affichage(ByVal opt As Integer)

Dim col As String

Select Case opt
Case 0
col = "C"
Case 1
col = "D"
End Select

Worksheets("Feuil1").Activate
UserForm6.ListBox50.RowSource = col & "1:" & col & "1"
End Sub

au lieu de mettre des cas je met des argument , es ce que je peu remplacer le 0 et 1 par ma colonne directement , si oui comment SVP

merci de votre aide

dsl mais c'est un deuxieme bouton , merci de votre attention ,
Bonjour,
esxusez moi encore fois , mais
voila le code :

Sub Boutondoption1_QuandClic()
UserForm6.Show
Affichage (0)
End Sub

Sub Boutondoption2_QuandClic()
UserForm6.Show
Affichage (1)
End Sub

Sub Affichage(ByVal opt As Integer)

Dim col As String

Select Case opt
Case 0
col = "C"
Case 1
col = "D"
End Select

Worksheets("Feuil1").Activate
UserForm6.ListBox50.RowSource = col & "1:" & col & "1"
End Sub

au lieu de mettre des cas je met des argument , es ce que je peu remplacer le 0 et 1 par ma colonne directement , si oui comment SVP

merci de votre aide

bonjour ,

enfaite ya qu'une ligne c'est par ce que elle contien le titre des fiche methodologique , sinon

dans mon userform ya plusieur listbox et textbox et case a coche et des bouton qui permettent d'ouvrir d'autre userform , tous ca pour c pour remplir dans excel des colonne, que je vais recupere par un copy colle et les imprime sous format pdf, afn de faire des fiche methodologique.

mais le code que vous mavez donnée es ce que je peu le faire pour plusieur colonne , jai essai ca :
merci de votre aide

Sub Boutondoption1_QuandClic()
UserForm6.Show
Affichage (0)
End Sub

Sub Boutondoption2_QuandClic()
UserForm6.Show
Affichage (1)
End Sub

Sub Boutondoption3_QuandClic()
UserForm6.Show
Affichage (2)
End Sub

Sub Affichage(ByVal col As String)
col = "C"
col = "D"
col = "E"

Worksheets("Feuil1").Activate
UserForm6.ListBox50.RowSource = col & "1:" & col & "1"
End Sub


mais ca pa bien marché , es ce normale, si non , c quoi le probleme,

merdi de votre aide

bonjour

es ce que vous pouvez maider svp :

jai un userform avec un textbox

et un bouton sur la feuille excel , je souhaite que a chaque click sur le bouton le userform s'ouvre et textbox remplie la colonne suivante a chaque click on passe a la colonne suivante

merci de votre aide