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
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
A voir également:
- Controlsource textbox vba excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
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
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)
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)
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
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)
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)
11 juin 2009 à 14:49
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
15 juin 2009 à 18:59
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.
17 juin 2009 à 10:37
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
18 juin 2009 à 09:24
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