[VBA-E] Adaptation avec des listbox

Version imprimable

12/04/2007, 20h11
sebi78

[VBA-E] Adaptation avec des listbox ou combobox

Bonjour,

J'ai voulu adapter cette exemple en remplacant les textbox par des listbox mais sans succes quelqu'un pourrait m'aider.
Je voudrais obliges des utilisateurs à choisir les donnes à saisir dans des listes déroulantes.

contributions VBA
[Sources]Utiliser un Userform pour Lire et écrire facilement ds 1 feuille de calculs

merci par avance.
12/04/2007, 21h08
EvaristeGaloisBis

quel exemple?
Que veux tu faire exactement?
si tu veux que les gens soient obligés de mettre que ce que tu as mis, utilise une ComboBox avec la propriété :

Code:

MonCbx.Style = fmStyleDropDownList
13/04/2007, 13h16
sebi78

Adaptation avec des listbox

Bonjour,

J'ai essaye avec des listbox ou des combobox sans succes.

voici le fichier donc je parle. il a ete fait par ouskel'n'or.
http://cjoint.com/?ennpvfYnxx

à la place des textbox, je voudrais utiliser des listes déroulantes soit listbox ou combobox ( differentes ? ).

merci
13/04/2007, 13h42
ouskel'n'or

Explique ce que doivent contenir list et combobox. Là je ne comprends pas l'objectif. Veux-tu, pour chaque ligne d'une feuille de calculs, mélanger les données que contiennent tes list ou combos ? Mais alors, où tes combos prennent-elles leurs données ?

NB - si c'est ça, l'appli dont tu parles n'est pas adaptée
13/04/2007, 14h42
sebi78

Adaptation avec des listbox

Bonjour,

Voici le fichier excel que j'ai crée. Tu pourras voir se que j'ai fait. Par contre, je ne peux divulger les donnes du tableau c'est pour cela que j'ai mis des X.

http://cjoint.com/?enoBd4DUKx

Je voudrais exploiter ton exemple pour remplir mon tableau.
Soit avec listbox ou combobox ( quel est le plus pratique ? ) mais donnes sont par fixer en nombre, il fait que je puisse en rajouter => je croix que le plus pratique dans mon cas est le combobox.

ici dans mon exemple, je copie un tableau dans chaqu'une de mes feuilles. J'ai crée des validations en listes deroulantes allant chercher les donnees dans le tableau copie.

Ce qui m'a pose des problemes de selection de cellules d'ailleurs. Ce n'est pas encore robuste car je dois de temps en temps bidouille le numéro de selection de cellule. Et je ne sais pourquoi ? ( ici cela doit etre 5 jusqu'à detection de la derniere ). Mais j'ai des cas ou je dois mettre 3 ou autre car il me decale ma selection. C'est problématique dans mon tableau global car il y a des lignes qui disparaissent .

On m'a demandé si on pouvait copier un ligne pour eviter de redocumenter une ligne entierement. J'ai teste on peut copier manuellemnt la ligne et renommer le numero de la colonne A pour continuer mon incrémentation de ligne. Je n'ai trouve que cette maniere pour inserer une ligne et copier.

C'est pas facile à expliquer ce que l'on voudrais. En te donnant mon tableau, tu vas comprendre ce que j'ai essaye de faire.

J'espere que tu va mieux comprendre ce que j'ai essaye de faire. Je debute en vba. Et ma maniere de proceder est la suivante : je recupere des bouts de code à droite et à gauche et je teste . Et c'est pas evident.

merci.
13/04/2007, 14h58
sebi78

Adaptation avec des listbox

Donnees d'une combobox ou listbox

j'ai deux possibilite soit je pointe sur une zone d'une feuille soit je met mes donnes dans mon code ?
13/04/2007, 15h43
ouskel'n'or
Désolé, j'ai ouvert le fichier mais le prmier clic a planté VB, motif "feuille protégée".
J'ai relu ton message, hélas, je n'arrive pas à comprendre ce que tu veux.

Citation:

Envoyé par Tu

Je voudrais exploiter ton exemple pour remplir mon tableau.
Soit avec listbox ou combobox ( quel est le plus pratique ? ) mais donnes sont par fixer en nombre, il fait que je puisse en rajouter => je croix que le plus pratique dans mon cas est le combobox.

Que veux-tu obtenir au bout du bout ?

Bon, j'ai ouvert ton fichier, ai fait une macro qui affiche toutes les feuilles et les déprotège afin de pouvoir commencer à espérer comprendre quelque chose... et enfin, je crois comprendre que tu souhaites copier des choses dans la feuille 24 quand tu cliques sur le bouton "Tableau global"

Citation:

Envoyé par Tu

ici dans mon exemple, je copie un tableau dans chaqu'une de mes feuilles. J'ai crée des validations en listes deroulantes allant chercher les donnees dans le tableau copie.

1 - Là je n'ai pas trouvé de tableau "copie"
2 - Quelles données veux-tu voir copiées dans ces listes ?
3 - Dans ton fichier, je ne vois aucune liste déroulante
Tu les as cachées où ?
4 - Enfin, tu dis vouloir utiliser mon exemple alors que tu n'utilises pas d'userform. J'ai bien cherché partout, je n'en ai pas vu.
Or, l'exemple que tu dis vouloir prendre pour modèle, part précisément d'un userform et des possibilités qu'offre l'utilisation d'une scrollbar.

Un conseil : Schunte toutes tes protections et masquage de feuilles pour la mise au point de ton fichier. Tu y verras plus clair et tu pourras toujours faire ça à la fin.
Tu ne touches pas à ton code mais tu ajoutes simplement un

Code:

Call AfficherTout

dans toutes les routines qui masquent quelque chose, ligne de code, qu'une fois fini ton projet, tu pourras supprimer par un "Remplacer (la ligne) par "" dans tout le code de ton projet.
Pour afficher tout
Code:

1 2 3 4 5 6 7 Sub AfficherTout() Dim Fl as worksheet For Each Fl In ActiveWorkbook.Worksheets Fl.Visible = True Fl.Unprotect Password:="labinal" Next End Sub
Ai-je bien compris cette toute petite partie de ce que tu souhaites faire Pièce jointe 11983 Est-ce bien copier quelque chose dans ta feuille 24... Mais, si oui, que veux-tu copier.
Pour les listbox, je n'ai toujours pas compris :cry:
Une fois que tu les auras, que veux-tu obtenir ? Corriger les items d'une liste n'est pas une affaire anodine, mais les corriger toutes... Je vois venir comme une galère...
13/04/2007, 16h02
sebi78

Adaptation avec des listbox

desole pour protection je l'avais pas ote sur cette version .

Je vais t'expliquer comment fonctionne mon tableau....

La feuille 25 est copie sur feuille 2 à 21.
Si tu prends feuille 2 , REP 1 ( LIGNE 5 ) tu peux choisir des donnees dans une liste deroulante, j'ai fait cela pour chaque colonne etc...

En cliquant sur copie ligne tu copie REP 1 puis cela renomme REP 2 ETC...

Tu peux faire cela sur toutes les feuilles.

Mon tableau global recopie tableau feuille 2 avec titre puis mes lignes documentes pour feuille 3 à 21.

Voici un peu plus d'explication sur le fonctionnement de mon tableau .

Je n'y ai pas encore integrer ton bout de code avec useform car je n'arrive pas à l'adapter avec des combobox....

La finalite est de pouvoir inserer ou copie une ligne, en effacer et modifier une, "voir en supprimer sauf si cela me supprime des donnees de mon deuxieme tableau" , mettre des protections.
14/04/2007, 00h55
sebi78

Adaptation avec des listbox ou combobox

j'ai travaille un peu sur ce que j'aimerais faire. Mais je bloque sur la verification des lignes cela bug, insertion de mes donnees de mes combobox avec le ScrollBar cela bug... Pour le reste cela marche j'ai pu reprendre ce qui avait ete fait.

http://cjoint.com/?eoaW2jOUaX

erreur execution '-24470248809(800700057)':

bonjour,

je n'arrive pas à resoudre cette erreur ( objet specifie introuvable ).
Il bloque sur la ligne en rouge.

Code:

1
2
3
4
5
6
7
Function verifligne() 'Vérifie si la ligne est vide
Dim NoCol As Integer, NomControle As String
    For NoCol = 1 To NbreColonnes
        NomControle = "Textbox" & NoCol
        verifligne = verifligne Or Me.Controls(NomControle).Text <> ""    Next
End Function

15/04/2007, 13h58
ouskel'n'or

Ton next est bien sur la ligne suivante ?

Tu es sûr que "TextBox & NoCol" existe ?
Quel est la valeur de NoCol quand tu as ce message ?
Es-tu sûr du nombre de colonnes (NbreColonnes)
Comment le définis-tu ?
15/04/2007, 14h10
SfJ5Rpw8

Citation:

Envoyé par ouskel'n'or

Tu es sûr que "TextBox & NoCol" existe ?
...

+1

tu as nommé tes listbox textbox :koi:
15/04/2007, 14h28
sebi78

Adaptation avec des combobox

J'ai essayer d'utiliser plutot des combobox.

J'ai remplace tous les textbox par des combobox.

J'avais remplacer

Code:

NomControle = "Textbox" & NoCol

par

Code:

NomControle = "Combobox" & NoCol

cela n'a rien resolu.

De plus, mon tableau que je veux remplir à 19 colonnes dont trois possibilite de rentrer des valeurs manuellement. ( A - S )
Mes 16 combobox vont chercher les donnees à choisir en AA - AM.

Je pense qu'avoir deux tableaux sur la meme feuille pertube la verification sur le tableau à remplir. Je suis en train de regarder pour utiliser additem.
Mais cela ne resoud pas mon probleme sur ses quelques lignes de code.

J'ai besion un peu plus d'explication sur ce bout de programme.
15/04/2007, 15h07
SfJ5Rpw8

affiche la chaine de carâctére MonControl , par un msgbox, où un debug.print.. où une info-bulle dans le code au moment du bug... histoire de voir si le nom de contrôle construit dans cette chaîne existe bien...

Adaptation avec des combobox

bon j'ai pas mal avance. J'ai resolu un grand nombre de mes problemes.
J'arrive à inserer mon choix de comobobox sur une ligne et puis une autre ...,
effacer une ligne et detruire, par contre j'ai un probleme lorsque je quitte userforme.
Code:

1 2 3 4 5 6 7 8 Sub Init() 'Renseigne les combobox pour la ligne NoLigne Dim NoCol As Integer, NomControle As String For NoCol = 1 To NbreColonnes NomControle = "Combobox" & NoCol Me.Controls(NomControle) = fl.Cells(NoLigne, NoCol).Value Me.NuméroLigne = " Ligne " & NoLigne 'Affichage du N° de ligne Next End Sub
il me met erreur execution 380 ( impossible de definir la propriete value. valuer de propropriete non valide .

avant j'avais Me.Controls(NomControle).text = fl.Cells(NoLigne, NoCol).Value
mais cela bloque sur text est rien ne marchait par contre.

Je ne sais pas faire apparaitre les bug par un code... desole

15/04/2007, 16h29
sebi78

Adaptation avec des listbox ou combobox

J'ai utiliser msgbox : la reponse un FAUX sur ma derniere erreur
Je ne comprends pas trop le resultat ?????

mais si cela te parle ....
15/04/2007, 16h33
SfJ5Rpw8

on peu voir ou/comment tu la mis ce messagebox..?

Adaptation avec des listbox ou combobox

Code:

1 2 3 4 5 6 7 8 Sub Init() 'Renseigne les combobox pour la ligne NoLigne Dim NoCol As Integer, NomControle As String For NoCol = 1 To NbreColonnes NomControle = "Combobox" & NoCol Msgbox Me.Controls(NomControle) = fl.Cells(NoLigne, NoCol).Value Me.NuméroLigne = " Ligne " & NoLigne 'Affichage du N° de ligne Next End Sub
Je l'ai place devant la ligne souligne en jaune lors du debogage

Par contre, c'est pas pratique. Cela m'a tout bloque. Impossible de reprendre la main.

J'ai aussi essayer avec debug.print mais rien ne s'est passe. Cela imprime sur imprimante ? ( la mien est en rade ).

tiens essai :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Init() 'Renseigne les combobox pour la ligne NoLigne
Dim NoCol As Integer, NomControle As String
    For NoCol = 1 To NbreColonnes
        NomControle = "Combobox" & NoCol
       debug.print "NomControle = " &  NomControle 
       debug.print "cellule = "  & fl.Cells(NoLigne, NoCol).Value
       stop ' Regarde le texte dans la fenêtre exécution CTRL G..
 
       Me.Controls(NomControle) = fl.Cells(NoLigne, NoCol).Value
        Me.NuméroLigne = " Ligne " & NoLigne 'Affichage du N° de ligne
    Next
End Sub

le résultat de debug.print s'affiche dans fenêtre exécution accessible par CTRL G..!

15/04/2007, 17h21
sebi78

Adaptation avec des listbox ou combobox

Voici le resultat

NomControle = Combobox1
cellule = Véhicule

Merci pour les explications. C'est plus clair maintenant.

Est que cela te parle car pour moi je n'ai pas encore tout compris au niveau du code.
15/04/2007, 17h29
SfJ5Rpw8

bon et ce contrôle combobox1 il existe bien sur l'userform associé à ton code..?
15/04/2007, 17h42
sebi78

Adaptation avec des listbox ou comobobox

oui il existe bien ainsi que les 19 autres.
15/04/2007, 17h47
SfJ5Rpw8

Citation:

Envoyé par sebi78

..,
effacer une ligne et detruire, par contre j'ai un probleme lorsque je quitte userforme.

Code:

Sub Init()...

...

pourquoi un "init" lorsque tu quitte le contôle ..? elle est appelée comment cette procédure..?

Adaptation avec des listbox ou combobox

voici le code du bouton quitter

Code:

1
2
3
4
5
Private Sub QUITTER_Click()
ScrollBar1.Min = 1
ScrollBar1.Value = 1 'Ecrit les dernières modifs avant de quitter
End
End Sub

puis cela renvoie au code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ScrollBar1_Change() ''Ecrit les données dans la feuille de calculs
Dim NoCol As Integer, NomControle As String
    If Not Initialisation Then
        If Not verifligne() Then 'Ligne vide, accès à la suivante inhibé
            If NoLigne < ScrollBar1.Value Then
                ScrollBar1.Value = NoLigne
                Exit Sub
            End If
        End If
        'Ecriture dans la feuille de calculs des données affichées
        For NoCol = 1 To NbreColonnes
            NomControle = "combobox" & NoCol
            fl.Cells(NoLigne, NoCol).Value = Me.Controls(NomControle).Value
        Next
    End If
    NoLigne = ScrollBar1.Value
    Call ScrollBarMax 'Nouvelle valeur de ScrollBar.max
    Call Init 'Init des champs
    Initialisation = False
End Sub

C'est dans cette fonction que l'on renvoie à la fonction init

Hello me revoilou.
Comme je connais le code que tu souhaites utiliser, dis-nous plutôt ce que tu veux faire dans Init
Init était écrit pour renseigner autant de textbox qu'il y avait de colonnes
Ton code corrigé ainsi,
Sub Init() 'Renseigne les combobox pour la ligne NoLigne
Code:

1 2 3 4 5 6 7 Dim NoCol As Integer, NomControle As String For NoCol = 1 To NbreColonnes NomControle = "Combobox" & NoCol Me.Controls(NomControle).value = fl.Cells(NoLigne, NoCol).Value Me.NuméroLigne = " Ligne " & NoLigne 'Affichage du N° de ligne Next End Sub
... met le contenue de fl.Cells(NoLigne, NoCol).Value dans l'entête.
Si tu veux remplir tes combos, tu as deux façons de t'y prendre, soit avec RowSource de la seconde ligne à la dernière d'une même colonne, soit avec additem si les données ne se suivent pas dans une colonne.
Tu dis

bbil, sebi s'inspire de ça en remplaçant les textbox par des combos (!)

15/04/2007, 19h24
sebi78

Adaptation avec des listbox

Si je comprend mieux ta fonction init.

Dans mon cas, je n'en aurais pas besoin ?

Mon nombre de colonne sera toujours egale à 19 .

colonne A est remplit par combobox1
colonne B est remplit par combobox2
colonne C est remplit par combobox3
colonne D est remplit par combobox4
colonne E est remplit par combobox5
colonne F est remplit par combobox6
colonne G est remplit par combobox7
colonne H est remplit par combobox8
colonne I est remplit par combobox9
colonne J est remplit par combobox10
colonne K est remplit par combobox11
colonne L est remplit par combobox12
colonne M est remplit par combobox13
colonne N est remplit par combobox14
colonne O est remplit par combobox15
colonne P est remplit par combobox16
colonne Q est remplit par combobox17
colonne R est remplit par combobox18
colonne S est remplit par combobox19

J'ai utilisé additem pour remplir chaque combobox 1 à 12 et 17 à 19 les donnes sont differentes.

Seul les combobox 13,14,15 ET 16 les donnes sont identique ( date du type 01/01/2007 ... 31/12/2007 )

J'ai pas trop compris pourquoi le bouton quitter pointe sur scollbar ?
Je cherche à sortir de l'userform.
15/04/2007, 19h38
sebi78

Adaptation avec des listbox ou combobox

Voici ou j'en suit. J'adapterais cela apres pour remplir une 20 de page.

http://cjoint.com/?eptFMYuHVb

Il y a forcement le moyen d'optimiser le code mais j'en suis pas la. Je cherche à le faire fonctionner.

J'ai essayer avec ton code modifier tjs la meme erreurs 380.
Je n'ai pas encore dechiffrer toute la finesse de ton code.

dur dur :arf:

Je sais le resultat que je veux optenir mais comment l'expliquer avec des bouts de code ?????.

Je veux reproduire une insertion de ligne avec des donnees imposees.
Supprimer une ligne, l'effacer, copier une ligne existante et la modifier.

Et sortir de l'usrform. voila ce que je veux faire.

J'y suis preque mais cela plante en sortant. IL y a peut-etre des ligne de codes en trop, inutile...
15/04/2007, 19h42
ouskel'n'or

Bouton quitter : Rien à voir avec ce que tu veux faire. "End" suffit.
Dans mon code, si une modif a été saisie dans un ou plusieurs textbox, seul un changement de ligne enregistre les données modifiées ou saisie. Donc, avant de quitter, je place le scrollbar sur la ligne 1 (qui n'est jamais affichée dans les textbox). Juste une astuce pour que la validation de la dernière ligne saisie ne soit pas oubliée.
Dans ton cas... ce n'est pas le cas ;)
15/04/2007, 20h33
sebi78

Adaptation avec des listbox ou combobox

Peux-tu regarder si tu trouves des failles à mon code. Et me donner des conseils pour optimiser mon code. Merci.

Je sais c'est pas la bonne facon de proceder mais avec un exemple c'est plus facile pour moi .

http://cjoint.com/?epuFXZzScX

J'ai supprimer les deux lignes dont tu me parler et cela à resolu mon probleme erreur 380. Par contre j'ai quand meme garder init sinon cela me fait pas ce que j'aurait voulu dans la fonction supprimer ligne et pour inserer mes donnes sur une ligne avec le scrollbar.

Je pense que j'y suis arrive avec un peu de mal et sans trop avoir compris ton code de depart.
15/04/2007, 23h09
ouskel'n'or

Je regarderai ça demain.

Citation:

Envoyé par Tu

Je pense que j'y suis arrive avec un peu de mal et sans trop avoir compris ton code de depart

Chapeau car mon code de départ n'avait rien à voir avec ce que tu veux faire et, pour le moment, j'avoue ne pas que je n'ai toujours pas compris :cry: Avec ton code, peut-être.
Ceci dit, passant systématiquement par des userforms pour la réalisation de formulaires de saisie, j'interdis toujours à l'utilisateur l'accès aux feuilles de calculs et n'y place des contrôles que dans certains cas bien spécifiques.
Enfin, une fois que j'aurai compris, je te dirai.
A+
16/04/2007, 20h14
sebi78

Adaptation avec des listbox ou combobox

Bonjour,

As-tu dechiffrer mon code ? Et vu comment marchait mon essai.
Je vais essayer de l'utiliser pour remplir mes 20 feuilles.

Puis essayer de resoudre mon probleme de selection de cellule :
Mon tableau commence ligne 3 ( 1 et 2 etant vide pour y place des boutons )
Ligne 3 et 4 ( titre )

Code:

ActiveSheet.UsedRange.Rows("5:" & ActiveSheet.UsedRange.Rows.Count).Select

Je suis oblige de tricher de temps en temps en mettant :
3 ald 5

Car il me decale ma selection. Et je me retrouve avec des lignes vides ou il me manque une ligne remplit.

Je pense que cela provient du deuxieme tableau sur une meme feuille.

Je pense resoudre cela avec cette essai.

:yaisse2: :king:

Voilà. J'ai venu, j'ai vu, j'ai compru...
J'ai ajouté un bouton validation dans l'urform. Avec la scrollbar, ça devient tout de suite + compliqué (mais c'est faisable :cry: )
Le code du bouton Valider :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ValiderLaLigne_Click() Dim i As Integer, NoLigne As Long NoLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1 For i = 1 To 19 If UserForm1.Controls("Combobox" & i).ListIndex <> -1 Then Cells(NoLigne, i) = UserForm1.Controls("Combobox" & i).List(UserForm1.Controls("Combobox" & i).ListIndex) End If Next End Sub
Ce bouton enregistre les données de tous les combos dont l'un des éléments a été sélectionné.
Il fait ça dans la seule feuille que comporte le fichier.
Tu dis

PS - A l'avenir, peux-tu zipper ton fichier et le mettre sur le forum ?
Le fichier s'ouvre via internet. Pour le modifier, j'ai été obligé de copier l'userform, puis la feuille que je ne voyais pas Excel, puis puis puis...
Merci pour nous ;)

18/04/2007, 10h09
sebi78

Adaptation avec des listbox

Slt,

Merci pour ta reponse

J'ai bien rajouter le bouton validation.
Part contre, j'ai pas bien compris si tu avais gardé le scrollbar.
Alors j'ai tester deux choses :
1°) sans scrollbar . Il me remplit la ligne 3 ald de commencer en 2 .
Et le bouton effacer et supprimer du coup ne sont plus utilisable car je choissit la ligne à effacer ou supprimer par le scrollbar.
2°) avec scrollbar et en supprimant la partie copie sur la ligne selectionner ( je crois si j'ai bien sélectionner la bonne partie du code )
Et la c'est la panique, Lorsque je lance l'usr si je pointe sur ligne 7 et je me positionne sur ligne 2 avec le scrollbar. Je valide mes selections pour remplir ligne 2 et la suprise est la suivant il me copie en ligne 7.

Je ne comprends pas trop ce que tu as améliorer ...
Peux tu me renvoyer ton fichier test.

Merci

Non, tout ce que tu observes est normal. Mais c'est là que ça devient plus compliqué (beaucoup plus à expliquer qu'à faire...)
Le N° de ligne : Mon code donne la dernière ligne renseignée + 1. Je parle de cette ligne

Citation:

NoLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1

Malheureusement, si tu supprimes une ligne, il persiste à donner le même N° de dernière ligne tant que le fichier n'est pas enregistré.
L'avantage : Si tu as des ligne vides ou des cellules vides dans ta plage de données, il persiste à donner toute la plage.
Si, dans une colonne, tu es certain que toutes les cellules seront remplies, tu peux utiliser un autre code. Par exemple, si les cellules de la colonne A sont renseignées jusque sur la dernière ligne de ta plage de données :

Code:

DerniereLigne = Range("A65535").End(xlUp).Row

Si ce n'est pas le cas, tu vas devoir faire une boucle sur les 19 colonnes de ta plage pour trouver la dernière ligne renseignée. Un truc comme ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub ChercherDerniereLigne Dim NoDerniereLigne as long Dim i as integer, AvecColonne as variant Dim NoCol as integer NoDerniereLigne = 1 For NoCol = 1 to 19 AvecColonne = Cells(65536, NoCol).Address if NoDerniereLigne < Range(AvecColonne).End(xlUp).Row then _ NoDerniereLigne = Range(AvecColonne).End(xlUp).Row endif Next End sub
La valeur max de scrollbar = NoDerniereLigne +2
Cette syntaxe t'évite d'avoir à enregistrer le fichier à chaque suppression de ligne.

Le scrollbar, justement... : Pour afficher la ligne courante, tu ne peux le faire que dans la ligne d'entête de tes combos

Code:

ComboBoxn.value = Cells(NoLigne,NoColonne)

Jamais fait, donc à tester.
Pour remplir toutes ces entêtes, une boucle voisine du dernier code que je t'ai mis pour la validation.
Pas d'index pour le relire mais simplement

Code:

LaDonnée = ComboBoxn.value

L'effacement dépendra du résultat de ce que donnent les tests ci-dessus.
Sans filet, ça devrait donner un truc comme ça :
Code:

1 2 3 4 5 6 7 Sub Lecture() Dim i As Integer, NoLigne As Long NoLigne = Me.ScrollBar.value For i = 1 To 19 Me.Controls("Combobox" & i).Value = Cells(NoLigne, i).value Next End sub
Tu essaies de débrouiller tout ça et tu dis.
A+

18/04/2007, 13h15
sebi78

[VBA-E] Adaptation avec des listbox et combobox

Bonjour,

Merci pour tes explications.
Je testerais tout cela quand j'aurais un peu plus de temps en fin de semaine ou ce week-end.

Si à partir de ce que tu m'as expliqué cela n'aboutit pas.

Il y a peut-etre une autre approche.
Suppression du scrollbar et demande à l'utilisateur le numéro de ligne à effacer, detruire ou modifier avec selection de celle-ci.
Il remplit ou modifit avec les valeurs du combo et valide. Je mets une routine pour supprimer les lignes vides . Et le tour est joué. :yaisse2:

Fuseau horaire GMT +2. Il est actuellement 16h51.