Sujet Précédent Sujet Suivant

Charger des données dans une textbox a partir d'un feuille excel

Résolu/Fermé
chiken-samada Messages postés 6 Date d'inscription vendredi 27 février 2015 Statut Membre Dernière intervention 28 février 2015 - 27 févr. 2015 à 14:45
 Maurice - 28 févr. 2015 à 20:50
Bonjour,

Je suis débutant dans la programmation VBA.
Je vous explique mon problème, j'ai sur des feuilles (4 feuilles) un tableau avec des données (colonne B) et des coûts (colonne C).
Je recherche depuis hier, en vain, pour savoir comment on fait pour afficher les coûts en fonction des données que j'aurai choisi dans une combobox ? coté.
J'ai déja programmer ma combobox pour afficher les données des 4 feuilles en fonction de 4 bouton commandes que j'ai mis dans un userform.
Je choisi une feuille dans mon userform, ma combobox se charge et je choisit une donnée et ... je suis bloqué :(.

Je souhaiterai ensuite pouvoir modifier ces données en ecrivant dans la textbox.

Dans un 2eme temps, je voudrais pouvoir ajouter des données avec des coûts.

Quels fonctions je devrais utiliser ?

Merci d'avance pour votre aide.

Cordialement
A voir également:

5 réponses

Réponse 1 / 5
Le Pingou Messages postés 12044 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 25 avril 2024 1 426
27 févr. 2015 à 22:29
Bonjour,
Ce serait plus simple de comprendre avec votre fichier comme exemple sur https://www.cjoint.com/ et poster le lien.

0
chiken-samada Messages postés 6 Date d'inscription vendredi 27 février 2015 Statut Membre Dernière intervention 28 février 2015
28 févr. 2015 à 12:03
Bonjour,

http://www.cjoint.com/15fe/EBCmiVnQI9U.htm
Voici le liens, mais ça ne fonctionne pas de chez moi :(
Et vous ?
0
Réponse 2 / 5
Maurice
28 févr. 2015 à 12:29
Bonjour
non plus tu peux le refaire

A+
Maurice
0
Réponse 3 / 5
chiken-samada Messages postés 6 Date d'inscription vendredi 27 février 2015 Statut Membre Dernière intervention 28 février 2015
28 févr. 2015 à 15:25
J'ai trouver un autre site de partage ^^
Voici le lien :
https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download
0
Réponse 4 / 5
Maurice
28 févr. 2015 à 16:39
Bonjour
Voila un debut 
Private Sub btnMetz_Click()
Label2.Caption = "Usine de Metz"
ComboBox1.Enabled = True
   With Feuil2
         .Select
       derligne1 = .Range("B" & Rows.Count).End(xlUp).Row
       ComboBox1.Clear
         For L = 3 To .Range("B" & Rows.Count).End(xlUp).Row
            ComboBox1.AddItem .Range("B" & L)
         Next
   End With
End Sub

Private Sub ComboBox1_Change()
    ' activer la textbox1
        TextBox1.Enabled = True
Lig = ComboBox1.ListIndex + 3
   TextBox1.Value = Cells(Lig, 3).Value
End Sub

A+
Maurice
0
chiken-samada Messages postés 6 Date d'inscription vendredi 27 février 2015 Statut Membre Dernière intervention 28 février 2015
28 févr. 2015 à 18:09
Super Maurice, ça fonctionne parfaitement pour afficher la valeur en fonction du choix dans la combobox !
Merci beaucoup pour ton aide. :))

Maintenant je n'ai plus qu'a programmer la modification.
Si quelqu'un a des pistes je suis preneur. Je vais essayer de mon côté.
0
Maurice > chiken-samada Messages postés 6 Date d'inscription vendredi 27 février 2015 Statut Membre Dernière intervention 28 février 2015
28 févr. 2015 à 18:34
Bonjour
tu veux modifier la textbox ?
A+
Maurice
0
chiken-samada Messages postés 6 Date d'inscription vendredi 27 février 2015 Statut Membre Dernière intervention 28 février 2015
28 févr. 2015 à 18:41
Je voudrais changer la valeur des cellules en écrivant dans la textbox et en cliquant sur modifier pour confirmer.
0
chiken-samada Messages postés 6 Date d'inscription vendredi 27 février 2015 Statut Membre Dernière intervention 28 février 2015
28 févr. 2015 à 18:59
J'ai réussi, voici le code (tout bête une fois que j'ai trouvé) :

Private Sub btnmodifier_Click()
'changer la valeur cellule par valeur textbox
i = ComboBox1.ListIndex + 3
Cells(i, 3) = TextBox1.Value
End Sub

En tout cas merci pour ton aide Maurice :)
Je met le problème en résolu !
0
Maurice > chiken-samada Messages postés 6 Date d'inscription vendredi 27 février 2015 Statut Membre Dernière intervention 28 février 2015
28 févr. 2015 à 20:50
bonjour
il faut mettre un val ou cdbl pour avoir des chiffre car la textbox est du text
A+
Maurice
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Maurice
28 févr. 2015 à 18:56
Bonjour
pour la modife regarde bien 
Dim Lig As Long

Private Sub UserForm_Initialize()

End Sub

Private Sub UserForm_Activate()
    ' centrer le titre de la box
        Label1.TextAlign = fmTextAlignCenter
End Sub

Private Sub btnCaen_Click()
Label2.Caption = "Usine de Caen"
ComboBox1.Enabled = True
   With Feuil1
         .Select
       derligne1 = .Range("B" & Rows.Count).End(xlUp).Row
       ComboBox1.Clear
         For L = 3 To .Range("B" & Rows.Count).End(xlUp).Row
            ComboBox1.AddItem .Range("B" & L)
         Next
   End With
End Sub

Private Sub btnMetz_Click()
Label2.Caption = "Usine de Metz"
ComboBox1.Enabled = True
   With Feuil2
         .Select
       derligne1 = .Range("B" & Rows.Count).End(xlUp).Row
       ComboBox1.Clear
         For L = 3 To .Range("B" & Rows.Count).End(xlUp).Row
            ComboBox1.AddItem .Range("B" & L)
         Next
   End With
End Sub

Private Sub btnTremery_Click()
Label2.Caption = "Usine de Trémery"
ComboBox1.Enabled = True
   With Feuil3
         .Select
       derligne1 = .Range("B" & Rows.Count).End(xlUp).Row
       ComboBox1.Clear
         For L = 3 To .Range("B" & Rows.Count).End(xlUp).Row
            ComboBox1.AddItem .Range("B" & L)
         Next
   End With
End Sub

Private Sub btnValenciennes_Click()
Label2.Caption = "Usine de Valenciennes"
ComboBox1.Enabled = True
   With Feuil4
         .Select
       derligne1 = .Range("B" & Rows.Count).End(xlUp).Row
       ComboBox1.Clear
         For L = 3 To .Range("B" & Rows.Count).End(xlUp).Row
            ComboBox1.AddItem .Range("B" & L)
         Next
   End With
End Sub

Private Sub ComboBox1_Change()
    ' activer la textbox1
        TextBox1.Enabled = True
Lig = ComboBox1.ListIndex + 3
   TextBox1.Value = Cells(Lig, 3).Value
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   Select Case KeyAscii
      Case 48 To 57
          KeyAscii = KeyAscii
      Case Else
          KeyAscii = 0
   End Select
End Sub

Private Sub btnmodifier_Click()
   Cells(Lig, 3).Value = Val(TextBox1.Value)
End Sub

Private Sub btnQuitter_Click()
    ' fermer le userform1
        UserForm1.Hide
End Sub

A+
Maurice
0