Mise à jour de données dans un formulaire

[philmaure]

Bonjour,

Comment mettre à jour des données dans un formulaire avec un critère de choix

J'ai joint un fichier pour exemple : selon le mois sélectionné dans le formulaire, les données varient dans les textBox.

Merci pour votre aide

Cdlt
philippe

 

[nak]

Re : Mise à jour de données dans un formulaire

Bonjour,

Un exemple basique qui devrait pouvoir être simplifié :

Private Sub ComboBox1_Change()
If ComboBox1.Value = Sheets("Feuil1").Range("B1").Value Then Call Cas1
If ComboBox1.Value = Sheets("Feuil1").Range("C1").Value Then Call Cas2
If ComboBox1.Value = Sheets("Feuil1").Range("D1").Value Then Call Cas3
If ComboBox1.Value = Sheets("Feuil1").Range("E1").Value Then Call Cas4
End Sub
Sub Cas1()
    TextBox1.Value = Sheets("Feuil1").Range("B2").Value
    TextBox2.Value = Sheets("Feuil1").Range("B3").Value
    TextBox3.Value = Sheets("Feuil1").Range("B4").Value
    TextBox4.Value = Sheets("Feuil1").Range("B5").Value
End Sub
Sub Cas2()
    TextBox1.Value = Sheets("Feuil1").Range("C2").Value
    TextBox2.Value = Sheets("Feuil1").Range("C3").Value
    TextBox3.Value = Sheets("Feuil1").Range("C4").Value
    TextBox4.Value = Sheets("Feuil1").Range("C5").Value
End Sub
Sub Cas3()
    TextBox1.Value = Sheets("Feuil1").Range("D2").Value
    TextBox2.Value = Sheets("Feuil1").Range("D3").Value
    TextBox3.Value = Sheets("Feuil1").Range("D4").Value
    TextBox4.Value = Sheets("Feuil1").Range("D5").Value
End Sub
Sub Cas4()
    TextBox1.Value = Sheets("Feuil1").Range("E2").Value
    TextBox2.Value = Sheets("Feuil1").Range("E3").Value
    TextBox3.Value = Sheets("Feuil1").Range("E4").Value
    TextBox4.Value = Sheets("Feuil1").Range("E5").Value
End Sub

A+

 

[philmaure]

Re : Mise à jour de données dans un formulaire

bonjour NAK
un grand merci pour ta solution qui fonctionne nickel
bon dimanche
Cdlt
philippe

 

[JCGL]

Re : Mise à jour de données dans un formulaire

Bonjour à tous,

Peux-tu essayer dans le module de l'USF :

Private Sub ComboBox1_Change()
    For Col = 2 To 5
    Lig = 1
    If ComboBox1.Value = Feuil1.Cells(Lig, Col) Then
    TextBox1.Value = Feuil1.Cells(Lig + 1, Col).Value
    TextBox2.Value = Feuil1.Cells(Lig + 2, Col).Value
    TextBox3.Value = Feuil1.Cells(Lig + 3, Col).Value
    TextBox4.Value = Feuil1.Cells(Lig + 4, Col).Value
    End If
    Next Col
End Sub

A+ à tous

 

[youky(BJ)]

Re : Mise à jour de données dans un formulaire

Bonjour à tous,
Une autre proposition . . .
Attention je viens de remarquer que textbox3 et 4 sont inversés
Bruno

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = ""
Else
TextBox1 = Feuil1.Cells(2, ComboBox1.ListIndex + 2)
TextBox2 = Feuil1.Cells(3, ComboBox1.ListIndex + 2)
TextBox3 = Feuil1.Cells(4, ComboBox1.ListIndex + 2)
TextBox4 = Feuil1.Cells(5, ComboBox1.ListIndex + 2)
End If
End Sub

 

[philmaure]

Re : Mise à jour de données dans un formulaire

re, je reviens vers vous car si sur les exemples tout fontionne bien je ne parviens pas à l'adapter sur mon fichier.
Les textbox ne se mettent pas à jour et je ne trouve pas la raison



Merci pour votre aide

Cdlt
Philippe

 

[youky(BJ)]

Re : Mise à jour de données dans un formulaire

Re,
Je te propose de remplacer dans nos macos Feuil1 par Feuil9
JCGL que je salue et fête en même temps son anniversaire, nous utilisons pareil le .codename de la feuille" et non le .name cela permets de pouvoir renommer l'onglet sans plantage de la macro.
Bruno

 

[philmaure]

Re : Mise à jour de données dans un formulaire

re,

un grand merci j'ai pas tout compris ("le .codename de la feuille" et non le .name")mais cela fontionne correctement. (enfin !!)

bonne a-m
Cdlt
philippe

 

[philmaure]

Re : Mise à jour de données dans un formulaire

RE,
me revoilà avecla suite de mon pb.
Si je fais appel a un second formulaire avec des références sur la meme feuille que le premier formulaire, les données ne se mettent pas à jour
J'ai essayer de mettre les données sur une autre feuille mais toujours le meme pb : le formulaire 1 fonctionne super bien avec vos solutions mais le formulaire 2 reste inexorablement vide.
Merci pour votre aide
Cdlt
philippe

 

[youky(BJ)]

Re : Mise à jour de données dans un formulaire

Re,
Voici le fichier avec les 2 versions de macros
Un combobox renvoi les chiffres comme du text donc non numéric
Pour faire la comparaison il faut utiliser Cstr(Feuil9......qui prends les chiffres en texte
Perso dans ma macro j'utilise l'index du combo donc pas ce soucis
Bruno

 

[philmaure]

Re : Mise à jour de données dans un formulaire

Bonsoir Bruno

Super et un grand merci pour ta solution

Bonne soirée

Cdlt
Philippe