Controlsource TextBox un petit probleme

Fermé
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 11 juin 2009 à 14:16
Mike-31 Messages postés 18380 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 18 mars 2025 - 18 juin 2009 à 13:31
Bonjour,

es ce quelqu'un peu me dire comment codé mon controle source

exemple: ma textBox a pour propriete controlsource : Feuil1!A3

comment codé ca dans ma textBox SVP :

Private Sub TextBox1_Change()


End Sub

merci de votre aide
A voir également:

2 réponses

Mike-31 Messages postés 18380 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 18 mars 2025 5 125
11 juin 2009 à 14:31
Salut,

Pour les textbox, c'est LinkedCell


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

Mais je vois pas ou tu veux en venir, si tu souhaites afficher le contenu de ta cellule A3, vas directement dans les propriétés de ta textbox et dans LinkedCell saisis A3, a part que tes explications ne soient pas complétes

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
11 juin 2009 à 14:49
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
0
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
15 juin 2009 à 18:59
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.
0
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
17 juin 2009 à 10:37
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
0
amine69500 Messages postés 422 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
18 juin 2009 à 09:24
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
0
Mike-31 Messages postés 18380 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 18 mars 2025 5 125
18 juin 2009 à 13:31
Salut,

Me revoilà, pour activer une ou des macro à l'ouverture d'un classeur, il suffit de mettre le code macro sur la Thiswokboox (dans les propriétés des codes, double clic sur Thiswokboox) ou si tes macros sont dans un module, simplement le nom de la macro exemple pour une macro nommée Sub test ()

Private Sub Workbook_Open()

test

End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0