Charger des données dans une textbox a partir d'un feuille excel [Résolu/Fermé]

Messages postés
6
Date d'inscription
vendredi 27 février 2015
Statut
Membre
Dernière intervention
28 février 2015
- - Dernière réponse :  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
Afficher la suite 

5 réponses

Messages postés
9516
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
18 septembre 2019
983
0
Merci
Bonjour,
Ce serait plus simple de comprendre avec votre fichier comme exemple sur http://www.cjoint.com/ et poster le lien.

chiken-samada
Messages postés
6
Date d'inscription
vendredi 27 février 2015
Statut
Membre
Dernière intervention
28 février 2015
-
Bonjour,

http://www.cjoint.com/15fe/EBCmiVnQI9U.htm
Voici le liens, mais ça ne fonctionne pas de chez moi :(
Et vous ?
0
Merci
Bonjour
non plus tu peux le refaire

A+
Maurice
Messages postés
6
Date d'inscription
vendredi 27 février 2015
Statut
Membre
Dernière intervention
28 février 2015
0
Merci
J'ai trouver un autre site de partage ^^
Voici le lien :
http://www.partage-fichiers.com/upload/v845twlr/
0
Merci
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
chiken-samada
Messages postés
6
Date d'inscription
vendredi 27 février 2015
Statut
Membre
Dernière intervention
28 février 2015
-
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é.
> chiken-samada
Messages postés
6
Date d'inscription
vendredi 27 février 2015
Statut
Membre
Dernière intervention
28 février 2015
-
Bonjour
tu veux modifier la textbox ?
A+
Maurice
chiken-samada
Messages postés
6
Date d'inscription
vendredi 27 février 2015
Statut
Membre
Dernière intervention
28 février 2015
-
Je voudrais changer la valeur des cellules en écrivant dans la textbox et en cliquant sur modifier pour confirmer.
chiken-samada
Messages postés
6
Date d'inscription
vendredi 27 février 2015
Statut
Membre
Dernière intervention
28 février 2015
-
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 !
> chiken-samada
Messages postés
6
Date d'inscription
vendredi 27 février 2015
Statut
Membre
Dernière intervention
28 février 2015
-
bonjour
il faut mettre un val ou cdbl pour avoir des chiffre car la textbox est du text
A+
Maurice
0
Merci
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