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

VBA - Insérer le contenu d'une cellulle dans une forme libre excel

Créer une discussion

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
S

SwimCoachNico79

XLDnaute Occasionnel
Bonjour à tous,
J'ai crée une carte de l'IDF avec l'outil forme libre d'Excel (onglet : "carteIDF").
Chaque forme se nomme "idfrce1" jusqu'à "idfrce8".
Mes données se trouvent dans mon onglet : "resultIDF"

J'ai écris la macro suivante :

Sub show_resultIDF()

For I = 1 To 8

ActiveSheet.Shapes("idfrce" & I).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(242, 242, 242)

Next

borne_1 = Cells(33, 2)
borne_2 = Cells(34, 2)
borne_3 = Cells(35, 2)
borne_4 = Cells(35, 2)

J = 2
While Sheets("resultIDF").Cells(J, 4) <> ""

K = Sheets("resultIDF").Cells(J, 1)
If Sheets("resultIDF").Cells(J, 4) > borne_4 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 102)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_3 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 38, 140)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_2 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 77, 179)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_1 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 115, 217)
ElseIf Sheets("resultIDF").Cells(J, 4) > 0 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 153, 255)
End If
J = J + 1
Wend

End Sub

Ma question : comment je peux insérer dans chacune des formes le contenu de la cellule correspondante.

Merci d'avance pour votre aide.

SCN79
 
Trier par date Trier par votes
Re : VBA - Insérer le contenu d'une cellulle dans une forme libre excel

bonsoir,

plus simple c'est de travailler avec les valeur exemple :

Code: 
Sheets("resultIDF").Cells(J, 4).value = ActiveSheets.Cells("B4").value

si possible de joinier ton fichier merci

slt
haytoch
 
Vote positif 0 Vote négatif
Re : VBA - Insérer le contenu d'une cellulle dans une forme libre excel

Merci pour votre réponse.
Je suis passé par une fonction. Après avoir sélectionné la forme, j'ai tapé dans la ligne fonction =B4.
Cela donne le résultat escompté.
Encore merci de vous être penché sur ma question.

SCN79
 
Vote positif 0 Vote négatif
Re : VBA - Insérer le contenu d'une cellulle dans une forme libre excel

okey bien 🙂

Bonne chance .

Juste une remarque avec ton code essaie d'evité les .Select and Selection , cest mieux d'executé l'action derectement

aussi la repetition du ActiveSheets ==> With ActiveSheets puis ==> .

voilà l'exemple juste question de rapidité de ta macro
Code: 
Sub show_resultIDF()

Application.ScreenUpdating = False
For I = 1 To 8

With ActiveSheet
.Shapes("idfrce" & I).ShapeRange.Fill.ForeColor.RGB = RGB(242, 242, 242)

Next

borne_1 = Cells(33, 2)
borne_2 = Cells(34, 2)
borne_3 = Cells(35, 2)
borne_4 = Cells(35, 2)

        J = 2
        While Sheets("resultIDF").Cells(J, 4) <> ""
        
            K = Sheets("resultIDF").Cells(J, 1)
            If Sheets("resultIDF").Cells(J, 4) > borne_4 Then
            .Shapes("idfrce" & K).ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 102)
            ElseIf Sheets("resultIDF").Cells(J, 4) > borne_3 Then
            .Shapes("idfrce" & K).ShapeRange.Fill.ForeColor.RGB = RGB(0, 38, 140)
            ElseIf Sheets("resultIDF").Cells(J, 4) > borne_2 Then
            .Shapes("idfrce" & K).ShapeRange.Fill.ForeColor.RGB = RGB(0, 77, 179)
            ElseIf Sheets("resultIDF").Cells(J, 4) > borne_1 Then
            .Shapes("idfrce" & K).ShapeRange.Fill.ForeColor.RGB = RGB(0, 115, 217)
            ElseIf Sheets("resultIDF").Cells(J, 4) > 0 Then
            .Shapes("idfrce" & K).ShapeRange.Fill.ForeColor.RGB = RGB(0, 153, 255)
            End If
        J = J + 1
        Wend
End With
Application.ScreenUpdating = True
End Sub

slt
bonne nuit
 
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

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Modifier le texte dans une forme
Réponses
7
Affichages
349
pat66
P
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
609
Compte Supprimé 979
C
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
V
Verdanto
Réponses
0
Affichages
356
verdanto
V
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
  • Question Question
XL 2021 Résultats dans un formulaire VBA suite à la saisie d'un texte contenu dans un tableau Excel
Réponses
10
Affichages
827
AugusteP
V
  • Question Question
Microsoft 365 VBA : faire clignoter une forme
Réponses
7
Affichages
1 K
patricktoulon
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
523
un internaute
U
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
L
  • Résolu(e)
Microsoft 365 Ajouter une ligne dans un tableau structuré
Réponses
8
Affichages
3 K
Lune999
L
  • Question Question
XL 2010 conversion en nombre depuis vba
Réponses
2
Affichages
757
gh4
D
  • Question Question
XL 2013 ASTUCE VBA supprimer contenu cellule sans mise en forme ni formule
Réponses
5
Affichages
2 K
job75
K
  • Question Question
Microsoft 365 Activation d'onglet en rapport avec l'encodage dans une ligne
Réponses
1
Affichages
519
eCHO
E
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
902
mapomme
J
  • Résolu(e)
XL 2010 Récupérer un tableur Word sous Excel
Réponses
13
Affichages
992
Jérémy26
J
G
  • Résolu(e)
XL 2016 VBA : Copie d'une ligne après application d'un filtre
Réponses
7
Affichages
1 K
gfgghbhg
G
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
3 K
Usine à gaz
A
  • Question Question
Microsoft 365 Copier le contenu d'une feuille dans une autre par une macro
Réponses
2
Affichages
976
AlexAGEMS
A
L
  • Résolu(e)
Microsoft 365 Macro mise en forme feuille excel
Réponses
2
Affichages
761
Laura01
L
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
948
Lolote83
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…