XL 2016 récupérer données combobox en incrémenter ligne par ligne

[halecs93]

Bonjour à toutes et à tous,

Comme je le disais dans des messages précédents, je débute et j'essaye de comprendre le VBA en décortiquant certains codes.

Du coup, j'ai commencé à créer le fichier (joint) mais au niveau de l'onglet 'feuil1' :

Je n'arrive pas à afficher les données des deux colonnes dans le combobox

De plus je souhaiterais récupérer le contenu sélectionner en incrémentant de ligne en ligne A1 et B1 puis A2 et B2 à chaque clic sur mon bouton "Valider" (commandbutton)

Une aide ?


Merci beaucoup.


Merci beaucoup.

 

[Jacky67]

Bonjour à toutes et à tous,

Comme je le disais dans des messages précédents, je débute et j'essaye de comprendre le VBA en décortiquant certains codes.

Du coup, j'ai commencé à créer le fichier (joint) mais au niveau de l'onglet 'feuil1' :

Je n'arrive pas à afficher les données des deux colonnes dans le combobox

De plus je souhaiterais récupérer le contenu sélectionner en incrémentant de ligne en ligne A1 et B1 puis A2 et B2 à chaque clic sur mon bouton "Valider" (commandbutton)

Une aide ?


Merci beaucoup.


Merci beaucoup.

Bonjour,
Un exemple sur une façon de faire ce qui est demandé en PJ

 

[halecs93]

Bonjour,
Un exemple sur une façon de faire ce qui est demandé en PJ

Extraordinaire 😉

Je continue mon exploration en modifiant moi-même le fichier (que je joins). J'ai tenté un bouton en page d'accueil pour effacer les cases renseignées du formulaire de l'onglet 'renseignements'... un bricolage qui fonctionne mais qui me semble bien perfectible.....

Une piste ? Merci

 

[Jacky67]

Extraordinaire 😉

Je continue mon exploration en modifiant moi-même le fichier (que je joins). J'ai tenté un bouton en page d'accueil pour effacer les cases renseignées du formulaire de l'onglet 'renseignements'... un bricolage qui fonctionne mais qui me semble bien perfectible.....

Une piste ? Merci

RE..
Bah...Il n'y a pas de base de donnée, donc tous les renseignements sont perdus
un autre bricolage à adapter

Sub sbClearCellsOnlyData()
 With Worksheets("RENSEIGNEMENTS")
   .Range("A2:D2").ClearContents
   .Range("B6").ClearContents
   '...
   '...
 End With
End Sub

Nb:Cela n'a rien à voir avec la question initiale, une question=un post

 

[halecs93]

RE..
Bah...Il n'y a pas de base de donnée, donc tous les renseignements sont perdus
un autre bricolage à adapter

Sub sbClearCellsOnlyData()
 With Worksheets("RENSEIGNEMENTS")
   .Range("A2:D2").ClearContents
   .Range("B6").ClearContents
   '...
   '...
 End With
End Sub

Nb:Cela n'a rien à voir avec la question initiale, une question=un post

Oui, c'est ce que j'ai essayé d'écrire comme code.

Du coup, je vais mettre "réglé".

Merci encore pour tout