Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplissage tableau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Janot56
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

Janot56

Guest
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 !
 

Pièces jointes

Trier par date Trier par votes
Re : Remplissage tableau

Bonjour.

Essayez cette macro dans le module Feuil1 (Tableau) :
VB: 
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
 
Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
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 :
VB: 
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".
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
295
NikonvsWild
N
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
662
Phil69970
D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
430
delsart59
D
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
775
picc
P
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
736
p56
P
  • Résolu(e)
XL 2013 Creations de macro
Réponses
3
Affichages
621
PR.
P
6
  • Question Question
XL 2019 Générer mails sous conditions
2
Réponses
26
Affichages
2 K
Oneida
Q
  • Question Question
Microsoft 365 Créer un formulaire pour duplication d'onglet avec tableau
Réponses
6
Affichages
694
job75
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
V
  • Question Question
XL 2016 Pouvoir faire un tableau dynamique croisé avec des données en ligne
Réponses
13
Affichages
1 K
vivi21
V
C
  • Question Question
Microsoft 365 Création d'une base de données automatisée
Réponses
1
Affichages
1 K
yal
Y
V
  • Question Question
XL 2021 Implémenter tableau avec des fichiers mis dans un dossier
Réponses
2
Affichages
460
merinos-BernardEtang
L
  • Question Question
XL 2019 Trouver la data correspondant selon un tableau ; deux colonnes et une ligne.
2 3 4
Réponses
54
Affichages
4 K
job75
S
  • Question Question
XL 2019 Aide pour changement orthographe sur base de données
Réponses
2
Affichages
587
Solene76
S
T
  • Question Question
XL 2016 Difficultés pour extraire des données d'une BDD et autres petits détails !!!
Réponses
13
Affichages
1 K
ChTi160
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
761
job75
B
  • Question Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
1 K
AtTheOne
B
  • Question Question
XL 2019 Remplissage de cellules en fonction du remplissage de la cellule précédente
Réponses
2
Affichages
1 K
Bidule77
B
L
  • Question Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
6 K
LMOAL
L
C
  • Résolu(e)
Microsoft 365 Amélioration de mon code VBA
Réponses
9
Affichages
800
Cherrylie
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…