• Initiateur de la discussion Initiateur de la discussion thireg
  • 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 !

thireg

XLDnaute Junior
Bonjour,

voila une macro qui a été donné ici, je ne sais plus où sur le forum ...
elle consiste a afficher sur une carte des bulles de dimensions selon les valeurs.
j'ai un probleme avec le texte de la valeur qui doit être repris dans la bulle : le texte qui reprend en fait le N) de département en colonne H se met en "vertical" ... par exemple pour le dept 01 , il va mettre 0 puis 1 sous le 0 ?!!

ensuite, j'aimerais colorier la bulle en fonction d'un code couleur présent en colonne T ... comment faire également ?

voila la macro :

Code:
Dim i As Integer, coef As Single
    On Error Resume Next
    For i = 1 To 95
        With Shapes("dept" & Cells(i + 1, 10))
            .Height = Cells(i + 1, "I").Value * 30
            .Width = Cells(i + 1, "I").Value * 30
            With .TextFrame2.TextRange.Characters
                .Text = Cells(i + 1, "H").Text
                .Font.Size = 7
                .Font.Bold = True
            End With
        End With
    Next i

comment régler cela s'il vous plait ?

merci pour votre aide

shape.jpg
 
Dernière édition:
- 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

Discussions similaires

Réponses
8
Affichages
466
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
7
Affichages
249
Retour