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

XL 2010 alimenter plusieur textbox en fonction d'une combobox

Créer une discussion

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
murainesouspatate

murainesouspatate

XLDnaute Occasionnel
Bonjour à tous,
N'arrivant pas à effectuer un macro qui pourrait être simple, je me retourne vers vous tous afin de résoudre mon problème.
Dans le fichier ci-joint, je souhaite remplir mes textbox 1-2 et 6 en fonction de la valeur de ma combobox1,
puis de renseigner les textbox 3-4 ou 5 en fonction des versements perçus et renvoyer ces dernières infos dans mon tableau colonne L-M et N.
J'ai commencé la macro et après plusieurs essais rien ne fonctionne correctement.
Pourriez-vous me donner un coup de main et surtout m'expliquer ce qui ne vas pas.🙁

Cordialement.
 

Pièces jointes

Trier par date Trier par votes
Bonjour.
Essayez comme ça :
VB: 
Option Explicit
Private LCou As Long, VLgn()

Private Sub UserForm_Initialize()
Dim T(), L As Long
T = Feuil17.[A2].Resize(Feuil17.[A1000000].End(xlUp).Row - 1).Value
For L = 1 To UBound(T, 1): T(L, 1) = CStr(T(L, 1)): Next L
Me.ComboBox1.List = T
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1.MatchFound Then
   LCou = ComboBox1.ListIndex + 1
   VLgn = Feuil17.[A1:O1].Offset(LCou).Value
Else
   LCou = 0
   ReDim VLgn(1 To 1, 1 To 15): End If
Me.TextBox1.Text = VLgn(1, 4)
Me.TextBox2.Text = VLgn(1, 11)
Me.TextBox3.Text = VLgn(1, 12)
Me.TextBox4.Text = VLgn(1, 13)
Me.TextBox5.Text = VLgn(1, 14)
Me.TextBox6.Text = VLgn(1, 15)
End Sub
Ce qui n'allait pas surtout, c'est qu'il ne trouvait pas de correspondance entre les N°Facture numériques et le texte, même seulement formé de chiffres, de la ComboBox1.
 
Vote positif 0 Vote négatif
Super , merci , je comprend mieux maintenant car effectivement je n'ais pas fait de correspondances.Par contre que dois-je faire pour renvoyer les infos et completer mon tableau en renseignant les textbox 3-4 et 5 si vides ?
 
Vote positif 0 Vote négatif
Essayez comme ça :
VB: 
Option Explicit
Private PlgTablo As Range, LCou As Long, VLgn()

Private Sub UserForm_Initialize()
Actualiser
End Sub

Private Sub Actualiser()
Dim T(), L As Long
Set PlgTablo = Feuil17.Rows(2).Resize(Feuil17.[A1000000].End(xlUp).Row - 1, 15)
T = PlgTablo.Columns(1).Value
For L = 1 To UBound(T, 1): T(L, 1) = CStr(T(L, 1)): Next L
Me.ComboBox1.List = T
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1.MatchFound Then
   LCou = ComboBox1.ListIndex + 1
   VLgn = PlgTablo.Rows(LCou).Value
Else
   LCou = 0
   ReDim VLgn(1 To 1, 1 To 15): End If
Me.TextBox1.Text = VLgn(1, 4)
For C = 2 To 6: Me("TextBox" & 2).Text = VLgn(1, C + 9)
End Sub

Private Sub CommandButton1_Click()
Dim C As Long
If LCou = 0 Then Exit Sub
For C = 3 To 5: VLgn(1, C + 9) = CCur(Me("TextBox" & 2).Text): Next
PlgTablo.Rows(LCou).Value = VLgn
End Sub
 
Vote positif 0 Vote négatif
Re,
j'ai beau recopier les lignes ci-dessu, mais cela ne fonctionne pas. J'ai une Erreur de compilation : Variable non définie.
En déclarant "C as LOng", cela ne marche toujours pas ! je ne sais plus quoi faire , je t'envoi le mesage d'erreur.
Je suis complètement largué..😕
 

Pièces jointes

  • macro.jpg
    147.9 KB · Affichages: 48
Vote positif 0 Vote négatif
Oups. Il manquait aussi :Next C derrière Me("TextBox" & 2).Text = VLgn(1, C + 9)

Edit: et puis il y a d'autres erreurs.
Je redonne tout:
VB: 
Option Explicit
Private PlgTablo As Range, LCou As Long, VLgn()

Private Sub UserForm_Initialize()
Actualiser
End Sub

Private Sub Actualiser()
Dim T(), L As Long
Set PlgTablo = Feuil17.Rows(2).Resize(Feuil17.[A1000000].End(xlUp).Row - 1, 15)
T = PlgTablo.Columns(1).Value
For L = 1 To UBound(T, 1): T(L, 1) = CStr(T(L, 1)): Next L
Me.ComboBox1.List = T
End Sub

Private Sub ComboBox1_Change()
Dim C As Long
If Me.ComboBox1.MatchFound Then
  LCou = ComboBox1.ListIndex + 1
  VLgn = PlgTablo.Rows(LCou).Value
Else
  LCou = 0
  ReDim VLgn(1 To 1, 1 To 15): End If
Me.TextBox1.Text = VLgn(1, 4)
For C = 2 To 6: Me("TextBox" & C).Text = VLgn(1, C + 9): Next C
End Sub

Private Sub CommandButton1_Click()
Dim C As Long, Z As String
If LCou = 0 Then Exit Sub
For C = 3 To 5
  Z = Me("TextBox" & C).Text
  If IsNumeric(Z) Then VLgn(1, C + 9) = CCur(Z) Else VLgn(1, C + 9) = Empty
  Next C
PlgTablo.Rows(LCou).Value = VLgn
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Je viens de tester, une erreur persiste....
Private Sub CommandButton1_Click()
Dim C As Long
If LCou = 0 Then Exit Sub
For C = 3 To 5: VLgn(1, C + 9) = CCur(Me("TextBox" & C).Text): Next C
PlgTablo.Rows(LCou).Value = VLgn
End Sub
je 'tenvoi l'imprim écran.....
 

Pièces jointes

  • MACRO2.jpg
    120.2 KB · Affichages: 70
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
Autres Alimenter un ComboBox
2
Réponses
17
Affichages
842
Dranreb
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
220
NONO14
N
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
D
  • Question Question
XL 2021 prise de rdv en ligne transporteur
Réponses
0
Affichages
65
dirty_harry_8
D
G
  • Question Question
XL 2021 Alimenter X fois d'une base de données en fonction de la valeur d'un TextBox
Réponses
7
Affichages
415
GG Delcroix
G
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
1 K
Alexandrax971
A
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
68 K
NONO14
N
A
  • Question Question
XL 2010 remplir plusieurs textbox en fonction d'un tri par deux comboBox
Réponses
8
Affichages
657
Dranreb
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
583
MBax
T
  • Question Question
Filtrer tableau_Afficher/masquer ligne en fonction d'une combobox
Réponses
2
Affichages
440
TAL
T
S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
285
JHA
J
D
  • Question Question
Microsoft 365 [Résolu] MFC en fonction d'un format d'un nombre
Réponses
7
Affichages
502
JHA
J
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
789
Laliepomm
L
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
489
tactic6
B
  • Question Question
XL 2021 Insertions de plus de 10 textbox et combobox dans listbox
Réponses
9
Affichages
862
cp4
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
  • Question Question
XL 2016 Remplir un Label en fonction d'une TextBox
Réponses
6
Affichages
579
marg55
L
  • Question Question
XL 2021 Filtres et tris qui ne fonctionnent pas après exécution d'une macro
Réponses
9
Affichages
559
Compte Supprimé 979
C
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
233
telemarrk
T
A
  • Question Question
Microsoft 365 Afficher la valeur d'une cellule en fonction de 3 conditions via VBA
Réponses
2
Affichages
626
Ay-Ricko
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…