Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise à jour de données dans un formulaire

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion philmaure
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

philmaure

XLDnaute Impliqué
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
 

Pièces jointes

Trier par date Trier par votes
Re : Mise à jour de données dans un formulaire

Bonjour,

Un exemple basique qui devrait pouvoir être simplifié :
VB: 
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+
 
Vote positif 0 Vote négatif
Re : Mise à jour de données dans un formulaire

Bonjour à tous,

Peux-tu essayer dans le module de l'USF :
Code: 
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
 
Vote positif 0 Vote négatif
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

Code: 
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
693
jeff1494
  • Résolu(e)
Microsoft 365 [VBA] Formulaire de saisie avec choix parmi des occurrences retournées
Réponses
5
Affichages
119
fanfan38
N
  • Question Question
Microsoft 365 modifier un evenement du calendrier outlook via vba(excel)
Réponses
4
Affichages
189
mromain
L
  • Résolu(e)
Microsoft 365 Vba formulaire en bogage avec les ongles masqués
2 3
Réponses
30
Affichages
681
fanfan38
N
  • Résolu(e)
Microsoft 365 Garder le focus tant que vide
2 3
Réponses
30
Affichages
901
NONO14
N
  • Résolu(e)
XL 2019 Aller à la ligne dans un caption de formulaire
Réponses
3
Affichages
333
natorp
C
  • Résolu(e)
XL 2021 Mise en page pour imprimer un fichier trié et filtré
Réponses
3
Affichages
129
sylvanu
  • Résolu(e)
XL 2010 Formulaires interdépendants
2
Réponses
15
Affichages
629
cathodique
L
  • Résolu(e)
XL 2021 Macro - Liste déroulante
Réponses
4
Affichages
175
Piment
P
I
  • Résolu(e)
Microsoft 365 Transformer un export de données
2
Réponses
27
Affichages
805
Ines99
I
P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
178
philmaure
P
  • Question Question
XL 2019 Problème de mise à jour de la ListView
Réponses
3
Affichages
418
ARaul
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
810
Cousinhub
V
  • Question Question
Autres Importer des données avec condition depuis l'onglet source
Réponses
4
Affichages
684
vdudu
V
L
  • Question Question
Autres Mise en forme de 10 données
Réponses
4
Affichages
254
lepiouf
L
M
  • Question Question
Microsoft 365 Mise à jour de données boursières
Réponses
4
Affichages
293
platypus
P
C
  • Résolu(e)
XL 2021 Données qui ne s'affichent pas dans un label (UserForm)
Réponses
6
Affichages
179
Constantin
C
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
299
Nico Gre
N
E
Les UserForms et la mémoire
Réponses
6
Affichages
191
Eric_49
E
  • Résolu(e)
XL 2019 Données ne se mettent pas à jour par Macro, mais Manuellement OUI.
Réponses
8
Affichages
375
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…