Discussion :

[meumeu73.1]

Bonjour,

J'ai un fichier avec un certain nombre d'onglet dont 1 qui consolide les informations.

Ce que je souhaiterai faire, c'est la copie des lignes des autres onglets sur la feuille conso en les mettant les unes au dessous des autres (je pense pouvoir me débrouiller sur cette partie).

Ce que je souhaiterai également et c'est surtout cela que je ne sais pas faire, c'est d'avoir une feuille paramètre ou j'indiquerai le nom des onglets à prendre en compte dans le copier/coller vers la feuille conso.

Par avance merci de votre aide

Meumeu73

[Philippe Tulliez]

Bonjour,

Ce que je souhaiterai également et c'est surtout cela que je ne sais pas faire, c'est d'avoir une feuille paramètre ou j'indiquerai le nom des onglets à prendre en compte dans le copier/coller vers la feuille conso.

Deux possibilités en ce qui me concerne pour stocker des noms en paramètres.
Soit un nom par cellule, en ligne ou en colonne, soit les noms dans une cellule, séparés par un caractère comme ";". C'est la dernière solution que je privilégie.
En Vba, je lis le contenu de la cellule et je crée une table à l'aide de la fonction Split que je lis ensuite avec une boucle

[EDIT]
Une erreur s'est glissée dans ma réponse j'ai écrit que j'utilisais la fonction Join mais c'est Split. La correction a été faite
Exemple où les noms séparés par le caractère ";" se trouve en cellule B2 de la la feuille dont le CodeName est shtParameter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub t()
  Dim Table As Variant
  Dim Elem As Integer
  Table = Split(shtParameter.Range("B2").Value, ";")
  For Elem = LBound(Table) To UBound(Table)
    Debug.Print Table(Elem)
  Next
End Sub