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

concordance des valeurs combobox / textbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Basu
  • 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
B

Basu

Guest
Bonjour à tous

Je viens vers vous car je sèche sur le code que je joins plus bas

Je sélectionne une valeur dans ma combo box et les valeurs s'affiche dans les textbox.
Jusque-là tous va bien, mais lorsque j'indique à ma variable que J=3 (pour compléter ma combo box que depuis la 3 eme ligne) le remplissage des textebox ne correspond plus.



Code: 
Set Ws = Sheets("Recap-semaine") 'Correspond au nom de votre onglet dans le fichier Excel
    With Me.ComboBox1
        For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & J)
        Next J
    End With
    For i = 1 To 27
        Me.Controls("TextBox" & i).Visible = True
    Next i
    Application.ScreenUpdating = True


c'est un code que l'on retrouve souvent sur les forums mais les valeurs commencent toujours à la ligne 2 (ce qui n'est pas mon cas.

Si quelqu’un peut m'aider

Merci
 
Trier par date Trier par votes
Re : concordance des valeurs combobox / textbox

Merci pour la rapidité
Je viens d'essayer le code comme pour le changement de valeur de J la combo-box et bien compléter depuis A3.
Par contre les valeurs affichées dans les textes box correspondent à la ligne du dessus à chaque fois.

Je pensais que l’alimentation des texte box se faisaient par

For i = 1 To 27
Me.Controls("TextBox" & i).Visible = True
Next i
 
Vote positif 0 Vote négatif
Re : concordance des valeurs combobox / textbox

a ouai ok je commence à comprendre l’erreur d'ou le userform_initialise

alors sa doit etre dans le combobox1_change


Code: 
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
On Error Resume Next

    Dim Ligne As Long
    Dim i As Integer
    Dim PageActuelle As Date
    Dim PageActuelle2 As Date
    Dim PageActuelle3 As Date
    Dim PageActuelle4 As Date
    Dim PageActuelle5 As Date
    

    
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    ComboBox2 = Ws.Cells(Ligne, "B")
    ComboBox3 = Ws.Cells(Ligne, "AB")
    ComboBox4 = Ws.Cells(Ligne, "AA")
    ComboBox5 = Ws.Cells(Ligne, "X")
    ComboBox7 = Ws.Cells(Ligne, "Z")
    
        
        For i = 1 To 27
        Me.Controls("TextBox" & i) = Ws.Cells(Ligne, i + 2)
            Next i
            PageActuelle = Me.MultiPage1.Value
Me.MultiPage1.Value = 2 'Index de la page qui contient le DTPicker
DTPicker1.Value = Ws.Cells(Ligne, "Y")
Me.MultiPage1.Value = PageActuelle

    
PageActuelle2 = Me.MultiPage1.Value
Me.MultiPage1.Value = 1 'Index de la page qui contient le DTPicker
DTPicker2.Value = Ws.Cells(Ligne, "U")
Me.MultiPage1.Value = PageActuelle2

PageActuelle4 = Me.MultiPage1.Value
Me.MultiPage1.Value = 1 'Index de la page qui contient le DTPicker
DTPicker4.Value = Ws.Cells(Ligne, "W")
Me.MultiPage1.Value = PageActuelle4

PageActuelle5 = Me.MultiPage1.Value
Me.MultiPage1.Value = 1 'Index de la page qui contient le DTPicker
DTPicker5.Value = Ws.Cells(Ligne, "V")
Me.MultiPage1.Value = PageActuelle5
Application.ScreenUpdating = True
End Sub

sa doit etre soit

Code: 
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2

soit
Code: 
For i = 1 To 27
        Me.Controls("TextBox" & i) = Ws.Cells(Ligne, i + 2)
            Next i

désoler j'essaye de comprendre mon erreur
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : concordance des valeurs combobox / textbox

Re,

modifie ceci :

Code: 
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 3

le premier élément d'un "listindex" est égal à zéro.
 
Vote positif 0 Vote négatif
Re : concordance des valeurs combobox / textbox

re,

autre info, le 2ème argument du "cells" correspond au numéro de colonne (ici le i + 2) :

Code: 
Ws.Cells(Ligne, i + 2)

dans l'éditeur vba, touche de fonction F1 sur le mot dont tu veux comprendre le sens....
 
Vote positif 0 Vote négatif
Re : concordance des valeurs combobox / textbox

Merci pour l'info il m'arrive de le faire mais peut être pas assez souvent.😀

Je viens de modifier la valeur (donc pour résumer si ...Ws.Range("A6:A".... alors même valeur sur ...Me.ComboBox1.ListIndex + 6)
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : concordance des valeurs combobox / textbox

Merci pour votre aide

Je viens de faire les modifications et tous fonctionnent
J'avais également un bouton pour modifier les textbox et les changements se fond au bon endroit
super !

bonne après midi
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
531
jurassic pork
N
  • Question Question
Listbox click
Réponses
10
Affichages
632
ChTi160
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
2 K
fanch55
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
705
Piment
P
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
773
KRUG WOO
K
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
838
NONO14
N
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
2 K
Sghaier Chafaa
S
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
901
AtTheOne
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
659
vgendron
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
1 K
bérylion
B
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
849
GClaire
G
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
B
  • Question Question
Microsoft 365 formulaire VBA problème
Réponses
3
Affichages
1 K
herve62
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
839
escudo
E
C
  • Résolu(e)
XL 2021 Alimenter Listbox si colonne 3 contient un mot précis
Réponses
5
Affichages
765
Claudinedu13
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…