Controlsource TextBox un petit probleme

bonjour

merci de votre attention

c bien ca ce que vous mavez donnez ca marche
je voulai vous demander svp , si c possible de me dire comment je pourrai faire:

c tjr dans le meme projet

j'ai 1 userform avec des listbox , listderoulante, etc ..pour remplir une colonne (colonne A) sur la feuil1 d'excel , jai 2 bouton d'option sur la feuil2 d'excel pour apeler le userform1, quand je clique sur le bouton d'option1 ca m'ouvre mon userform avec des list deroulante listbox, etc pour remplir la colonne A, comment je peu faire pour que quand je clique sur le bouton d'option 2 ca m'ouvre le meme userform1 mais cette fois si il doit remplir la colonne B

merci de votre aide

mon code

if bouton d'option 1 = true then
unload.Userform1
userform1.show
end if


Private Sub TextBox1_Change()
TextBox1 = Feuil1.Range("A3")
End Sub



if bouton d'option 2 = True then bouton d'option 1 = false
unload.userform1
userform1.show
end if

Private Sub TextBox1_Change()
TextBox1 = Feuil1.Range("B3")
End Sub

j'espere que c claire




en sachant les listbox et text box dans le userform1 ils ont comme paramettre de controle source la colonne A
es ce que il faut que je met ce code dans tou les listbox et textbox pour ca prend en compte tou ca ou nn si non comment faire

merci de votre aide

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.

Bonjour,

es ce possible de suavegarder des données dans une listbox

jai deux listbox et un bouton ajouter dans un userform

listbox1.rowsource = A75:B175
listbox2.rowsource = ya pas
mais elle doit controle la colonne c (C5:C175)
un bouton ajouter : quand je selectione une ligne dans la listbox1 et je fai ajouter , cela me met la ligne dans ma listbox2 et cette derniere elle met true dans colonne c c'est a dire juste en face de la ligne selectionne dans la listbox1

mon probleme c'est que a chaque fois j'ouvre mon userform et je fais ajouter avec mes deux listbox et bouton ajouter , quand je ferme mon userform et je l'ouvre a nouveau 'je perd tou ce que j'ai mis dans ma listbox2 , elle redevien vide

es ce que quelqu'un peu m'aider svp pour me dire comment je peu sauvegarder mes données

meri de votre aide

voici mon code pour mieux comprendre

ListBox1.RowSource = "Feuil1!A75:B174"

Private Sub AddButton_Click()
Dim j As Integer
Dim LigneSuivante As Long

' S'assure que Feuil1 est active
Sheets("Feuil1").Activate
For j = 0 To 100
If ListBox1.Selected(j) Then
LigneSuivante = _
Application.WorksheetFunction.CountA(Range("A:A")) - 465
Sheets("feuil1").Range("A75").Offset(ListBox1.ListIndex, 2).Value = True
ListBox2.AddItem ListBox1.Text
ListBox2.AddItem ListBox1.Value
End If
Next j
End Sub

merci de votre aide , pour plus d'explication n'esitez pa a me demander

Bonjour,

es ce que vous pouvez me dire comment je peu force l'activation de mes macros a l'ouverture de mon classeur excel

sans me demander au debut si je doit active ou pas les macros a l'ouverture du classeur.

merci de votre aide

bonne journée