> Tous les forums > Forum Bureautique
 liste sur plusieur colonnesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vedene
  Posté le 04/01/2018 @ 10:12 
Aller en bas de la page 
Petit astucien

Bonjour à tous et bonne année 2018

Qui pourrait me donner un coup de main pour ce fichier joint ICI

https://www.cjoint.com/c/HAejC5uUvxw

Sur la feuille PCG2018, un tableau étalé sur plusieurs colonnes

Chaque colonne corresponds à compte

Dans mon "userform" accessible sur le feuille "2018"

Dans la combobox1 du haut je choisi un type de compte. (1,2,3,45,6,7 et 8)

Je voudrais qu'en fonction de ce choix, le combobox2 en bas me permette d'affiché la liste qui dépend du numéro inscrit dans le combobox1

J'ai du mal avec les "if"

Merci d'avance pour vos réponses

Cordialement



Modifié par vedene le 04/01/2018 10:30
Publicité
vedene
 Posté le 04/01/2018 à 10:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re,

Je n'arrive pas à joindre le fichier, il n'est pas utilisable

Existe-il autre chose que cijoint ?

Cordialement

poussebois
 Posté le 04/01/2018 à 11:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour ,

Ben si, ton fichier est utilisable.

Tu l'as même joint en double : une fois par ICI, une fois par https://www.cjoint.com/......

J'ai regardé quelques minutes, mais je n'ai pas le temps de m'y plonger...

@ +



Modifié par poussebois le 04/01/2018 11:09
vedene
 Posté le 04/01/2018 à 11:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour poussebois

Merci, moi aussi maintenant cela marche par le téléchargement du fichier

Pour le reste c'est pas un coup de feu. Il y a du temps

Cordialement

vedene
 Posté le 04/01/2018 à 16:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Debrief,

Merci beaucoup. Chez moi j'ai réussi aussi la première méthode, mais bravo pour la deuxième, c'est "nickel".

Comme tu as pu le voir sur mon fichier, chaque ligne est suivi d'un nombre.

Exemple :

Capital amorti est suivi du nombre 10132

Dans mon Userform, je vais placer un Label sous la combobox (je sais faire) et je voudrais, qu'en fonction du texte sélectionné dans le combo, le nombre correspondant s'affiche dans le Label (j'ai une vague idée, mais )

Quoi rajouter dans le vba pour cela. c'est du genre "décaler ()" ?

Merci d'avance et ce sera tout pour ce post

Après pour la suite je "maîtrise" (parfois)

Cordialement



Modifié par vedene le 04/01/2018 16:18
vedene
 Posté le 06/01/2018 à 11:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à vous tous,

Je reviens vers vous pour la suite de ce sujet, le fichier est ICI

Question :

Peut-on augmenter la largeur d'une liste déroulant dans un combobox? Cette liste ne dépasse pas la longueur du combobox.

A moins de faire un userform au format écran. Avez-vous une réponse à ce sujet?

Ensuite, pour le problème de liste que je rencontre, la demande est inscrite sur l'userform1 du fichier joint

Merci pour votre aide précieuse.

Cordialement

vedene
 Posté le 08/01/2018 à 18:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir à tous,

Sans réponse et ne trouvant rien, j'ai appliqué une "combine"

Pour chaque Compte, j'ai créé un Combobox

A Chaque Combobox j'ai attribué une Rowsource (8 combo au total)

Elles sont superposées et passe de false à true suivant le choix dans la combobox1

ainsi chacune répond à son propre vba

Exemple de mon fichier d'essai

avec des OptionButton pour ce test

Private Sub UserForm1_Initialize()
ComboBox1.List = Prénoms.Value
ComboBox2.List = Famille.Value
ComboBox3.List = Couleurs.Value
End Sub

'Procédure déclenchée par une sélection dans la Combo :

Private Sub ComboBox1_Change()
Dim n%
n = ComboBox1.ListIndex + 1
With TextBox1
If n > 0 Then .Value = [Prénoms].Cells(n, 2) Else .Value = ""
End With
'With TextBox2
'If n > 0 Then .Value = [Prénoms].Cells(n, 3) Else .Value = ""
'End With
End Sub


'Procédure déclenchée par une sélection dans la Combo :

Private Sub ComboBox2_Change()
Dim n%
n = ComboBox2.ListIndex + 1
With TextBox1
If n > 0 Then .Value = [Famille].Cells(n, 2) Else .Value = ""
End With
'With TextBox2
'If n > 0 Then .Value = [Famille].Cells(n, 3) Else .Value = ""
'End With
End Sub


'Procédure déclenchée par une sélection dans la Combo :

Private Sub ComboBox3_Change()
Dim n%
n = ComboBox3.ListIndex + 1
With TextBox1
If n > 0 Then .Value = [Couleurs].Cells(n, 2) Else .Value = ""
End With
'With TextBox2
'If n > 0 Then .Value = [Couleurs].Cells(n, 3) Else .Value = ""
'End With
End Sub

Une vraie usine à gaz et il en faut 8

Moyen de simplifier?

Merci beaucoup

vedene
 Posté le 27/01/2018 à 09:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous,

Pas de réponse, étonnant.

Bon je vais clore le post et passer à autre chose

Dommage

A un de ces jours

Je marque comme résolu, mais non !!

Cordialement

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Les soldes d'hiver 2025
SOLDES -1 -%
Hub USB C 5 en 1 UGREEN (HDMI 4K, 1xUSB 3.0, 2xUSB 2.0, 1xUSB C PD 100W) à 15,28 €
15,28 € 25,99 € -41%
@Amazon
Alimentation MSI A650BN Bronze 650W + boîtier PC moyen-tour MSI MAG Forge 120A Airflow (fenêtre acrylique, 6 ventilateurs RGB) à 109,99 €
109,99 € 150 € -27%
@Cdiscount
Lot de 2 étagères de rangement à 5 niveaux réglables (40 x 90 x 180 cm) à 49,99 €
49,99 € 80 € -38%
@Cdiscount
PC portable Asus ROG Zephyrus G14 (14' OLED 3K 120 Hz, Ryzen 9 8945HS, 32 Go, SSD 1 To, GeForce RTX 4070, Windows 11) à 2299,99 €
2299,99 € 2799 € -18%
@Amazon
Perceuse sans-fil Bosch Professional GSR 12V-15 + 2 batteries 2 AH à 99,99 €
99,99 € 125 € -20%
@Cdiscount

Sujets relatifs
Liste 2 colonnes
excel ventiler valeur dans colonnes
Créer 4 colonnes dans une fiche
Filtrer colonnes Vba Xl 2003
Imprimer tableau: impossible prise en compte des colonnes
Tableau Word, comment changer les largeurs de colonnes ?
Liste deroulante
Créer une liste dynamique en fonction d'un résultat
Outloock 2010 Imprimer liste contacts
Liste déroulante avec positionnement
Plus de sujets relatifs à liste sur plusieur colonnes
 > Tous les forums > Forum Bureautique