Remplissage tableau

[Janot56]

Bonjour amis Terriens,

Un nouveau problème s'ouvre à moi aujourd'hui :

Je possède une fichier Excel avec 2 onglets :
1) base de données
2) Tableau

J'arrive à classer par catégorie ma base de données (Nom, adresse, tel, site, mail)
Seulement j'aimerais que pour chaque entreprise, le tableau de l'onglet 2 se remplisse
Voir le fichier joint pour exemple.

Les difficultés sont :
Les informations sur les entreprises varient (pas forcément de mail, plusieurs adresses, etc.)
Cependant chaque entreprise possède un Nom et un Tél.

Existe t-il une manipulation ou macro pour permettre un remplissage automatique du tableau ?😕

Merci d'avance !

 

[Dranreb]

Re : Remplissage tableau

Bonjour.

Essayez cette macro dans le module Feuil1 (Tableau) :

Private Sub Worksheet_Activate()
Dim Te(), Ts(1 To 5000, 1 To 7), Le&, Ls&, CAd&
Te = Feuil2.Range(Feuil2.[A2], Feuil2.[B60000].End(xlUp)).Value
For Le = 1 To UBound(Te)
   Select Case Te(Le, 2)
      Case "Nom": Ls = Ls + 1: Ts(Ls, 1) = Te(Le, 1): CAd = 1
      Case "Adresse": CAd = CAd + 1: If CAd <= 4 Then Ts(Ls, CAd) = Te(Le, 1)
      Case "mail": Ts(Ls, 5) = Te(Le, 1)
      Case "site": Ts(Ls, 6) = Te(Le, 1)
      Case "tel": Ts(Ls, 7) = Te(Le, 1)
      End Select: Next Le
Me.[A2:G5001].Value = Ts
Me.Columns.AutoFit
End Sub

 

[Janot56]

Re : Remplissage tableau

Bonjour Dranreb,
merci de ton aide.

Cependant quand je lance la Macro, cela efface toutes mes données de la feuille 1 et rien ne se passe après...

 

[Janot56]

Re : Remplissage tableau

Autant pour moi !

La macro se lance mais il y a une erreur qui s'affiche

 

[Dranreb]

Re : Remplissage tableau

Bonjour.
Je ne sais pas comment j'ai pu passer à coté de ça, désolé. C'est sur Feuil1 les données pas sur Feuil2. Corrigez donc la 1ère instruction :

Te = Feuil1.Range(Feuil1.[A2], Feuil1.[B60000].End(xlUp)).Value

Avec mes excuses.

Edit: Et la macro se met dans Feuil2 (Tableau) et non dans Feuil1 (Base de données). Feuil1 (Tableau) n'existe pas. Je suis sidéré de cette interversion, je ne comprends vraiment pas comment elle a pu se produire. Notez que chez moi, dans mes classeurs, ça ne peut pas arriver: la première chose que je fais quand je crée une feuille c'est d'aller donner un nom mnémonique à l'objet Worksheet qui la représente dans VBA. Par exemple ici FBdD au lieu de Feuil1 pour la "Base de données" et FTablo au lieu de Feuil2 pour la "Tableau".

 

[Janot56]

Re : Remplissage tableau

Un très grand Merci à toi Dranreb !