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

Macro pour remplir un tableau de figures à partir d'un tableau de données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mercure38
  • 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
M

mercure38

Guest
Bonjour,
voilà à près pas mal d'absence je me retourne de nouveau vers vous car j'ai besoin de votre aide pour m'aider à construire une macro.
Dans mon exemple j'ai sur la feuille 1, un tableau de 2 lignes 3 colonnes renseigné avec des données allant de 1 à 10. Sur la feuille 2 j'aimerai qu'automatiquement en lancant une macro, celle ci positionne une figure au bon endroit dans ce tableau. Ce deuxième tableau est composé lui aussi de 2 lignes mais 10 colonnes. Le bon positionnement de la figure étant pour une ligne donnée, la bonne colonne par rapport à la valeur donnée dans le tableau n°1. Pas facile à expliquer mais je pense que l'exemple joint facilitera la compréhension.
En fait j'aimerai adapter par la suite cette macro à un fichier excel avec les résultats des tirages du loto pour m'aider à choisir les bons numéros d'une facon graphique. Il va de soi que si vous arrivez à m'aider et que je gagne au loto (moins sur), je penserai à vous récompenser...
Cordialement,
Denis
 

Pièces jointes

Trier par date Trier par votes
Re : Macro pour remplir un tableau de figures à partir d'un tableau de données

Bonjour mercure38,
Une proposition qui ne répond pas "strictement" à la demande:
Au lieu de gérer des shapes, ce qui peu s'avérer complexe, je propose d'utiliser la police Windings2, avec le caractére "¢" couleur de police rouge, format de cellule alignement centré.
Cela simplifie le code:
Code: 
Private Sub CommandButton1_Click()
Dim C As Range
With Sheets("Feuil1")
    For Each C In .Range(.Cells(4, 1), .Cells(Rows.Count, 3).End(xlUp))
        Sheets("Feuil2").Cells(C.Row, C.Value + 1) = "¢"
    Next C
End With
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour remplir un tableau de figures à partir d'un tableau de données

Vous êtes vraiment trop fort c'est exactement celà que je cherchais. Un grand merci.
Il faut juste que je vois éventuellement si j'arrive à modifier un peu celle ci, pour que quand je change les données du tableau 1 et que je relance la macro, le tableau 2 ne conserve pas les anciennees données mais raffraichit les nouvelles.
Après celà me sera facile pour moi de récupérer les résultats du loto et de la modifier en conséquence.
 
Vote positif 0 Vote négatif
Re : Macro pour remplir un tableau de figures à partir d'un tableau de données

Re
Une proposition pour nettoyer le tableau à chaque lancement:
Code: 
Private Sub CommandButton1_Click()
Dim C As Range, F1 As Worksheet, F2 As Worksheet
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
F2.Range(F2.Cells(4, 2), F2.Cells(Rows.Count, 11)).ClearContents
For Each C In F1.Range(F1.Cells(4, 1), F1.Cells(Rows.Count, 3).End(xlUp))
    F2.Cells(C.Row, C.Value + 1) = "¢"
Next C
End Sub
 
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
344
NikonvsWild
N
L
  • Question Question
Microsoft 365 Construction d'un tableau pour pointer les enfants qui sont absents de la cantine
Réponses
5
Affichages
689
chris
U
  • Résolu(e)
XL 2016 Création d'un fichier excel à partir d'un bouton
Réponses
7
Affichages
477
Utilisateur_X
U
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
477
tuti
T
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
332
Cousinhub
C
  • Question Question
XL 2021 Retrouver l'assistant importation de texte quand on fait une extraction à partir d'un .CSV ?
Réponses
6
Affichages
632
cindynico38
C
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
754
ORL
O
Y
  • Résolu(e)
XL 2016 Importer des données suivant l'ordre de passage
2 3
Réponses
32
Affichages
1 K
YGU1
Y
O
  • Résolu(e)
XL 2019 Comment remplir un tableau à partir d'une base de données en répondant à plusieurs critères
Réponses
3
Affichages
455
Gégé-45550
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
634
jeff1494
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
2 K
crocrocro
C
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
559
fanch55
  • Question Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
1 K
alexga78
A
E
  • Question Question
LibreOffice Calc Recherche sur plusieurs onglets pour constituer un tableau
Réponses
0
Affichages
284
evindi
E
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
477
caseras
C
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
2 K
Alexandrax971
A
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
648
job75
N
  • Résolu(e)
Microsoft 365 Remplir une ComboBox à 3 colonnes avec les données d'un TS
4 5 6
Réponses
78
Affichages
3 K
Dudu2
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
512
NONO14
N
C
  • Question Question
XL 2021 VBA - créer une boucle de calcul pour remplir un tableau à partir de 2 autres sur une même feuille
Réponses
7
Affichages
975
clineM
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…