[VBA | Contenu d'une cellule dans une forme (rectangle) ]

Zaffe · 1 Avril 2010

Bonjour à tous,

Comment allez vous ?

J'ai réussi depuis plusieurs semaines à me débrouiller et à régler certains problèmes seuls mais la je bloque sur quelques choses de vraiment très simple mais pas moyen de trouver une solution.

Je voudrais afficher dans une "forme automatique" le contenu d'une cellule mais avec un texte fixe. Par exemple pour le rectangle 1, 2 et 3 mettre "B2B : (contenu de la cellule X, X1, et X2) %" et pour le recangle 4, 5, 6 mettre " CC : (contenu de la cellule X4, X5, X6) %".

Je ne sais pas si l'un d'entre vous à une idée ? En tout cas vous me rendriez un grand service.

Merci d'avance

tototiti2008 · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Bonjour Zaffe,

dans une cellule, par exemple F1, tu mets la formule

Code:

="Taux : "&TEXTE($A$2;"0,00%")

ensuite tu sélectionne ton rectangle
dans la barre de formules, tu tapes

Code:

=$F$1

Papou-net · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Bonjour Zaffe, tototiti2008,

Un exemple sur le fichier joint : un click sur le rectangle le met à jour selon la ligne de la cellule sélectionnée.

Je n'ai pas compris quelle doit être la teneur du texte du rectangle, mais c'est facile à adapter en fonction des besoins.

Espérant avoir répondu.

Cordialement.

Zaffe · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

tototiti2008 à dit:
Bonjour Zaffe,

dans une cellule, par exemple F1, tu mets la formule

Code:

="Taux : "&TEXTE($A$2;"0,00%")

ensuite tu sélectionne ton rectangle
dans la barre de formules, tu tapes

Code:

=$F$1

Merci pour ton aide mais je n'y arrive pas, le résultat de la première dans est #NOM. Et quand je veux mettre une formule dans le rectangle cela m'affiche un message d'erreur

tototiti2008 · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Re,
Bonjour Papou-net,

tu as un Excel Anglais ?

Zaffe · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Papou-net à dit:
Bonjour Zaffe, tototiti2008,

Un exemple sur le fichier joint : un click sur le rectangle le met à jour selon la ligne de la cellule sélectionnée.

Je n'ai pas compris quelle doit être la teneur du texte du rectangle, mais c'est facile à adapter en fonction des besoins.

Espérant avoir répondu.

Cordialement.

J'avais pas vu ton message, je vais regarder ! Merci bien

Zaffe · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Sub MAJ_QuandClic()
ActiveSheet.Shapes("Rectangle 1").Select
Sheets("Donnees_Auto").Activate
Selection.Characters.Text = "B2B : " & Cells(1, 2) & " %"
ActiveCell.Select
End Sub

Dans le rectangle 1 s'affiche A2
Je pense qu'il y a quelque chose de faux

Papou-net · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Zaffe à dit:
Sub MAJ_QuandClic()
ActiveSheet.Shapes("Rectangle 1").Select
Sheets("Donnees_Auto").Activate
Selection.Characters.Text = "B2B : " & Cells(1, 2) & " %"
ActiveCell.Select
End Sub

Dans le rectangle 1 s'affiche A2
Je pense qu'il y a quelque chose de faux

Effectivement,

Tu as oublié de mettre un point devant Cells(1,2) :

Code:

Sub MAJ_QuandClic()
ActiveSheet.Shapes("Rectangle 1").Select
Sheets("Donnees_Auto").Activate
Selection.Characters.Text = "B2B : " & [COLOR="Red"][B][SIZE="6"].[/SIZE][/B][/COLOR]Cells(1, 2) & " %"
ActiveCell.Select
End Sub

Maintenant, ça doit fonctionner.

Cordialement.

Zaffe · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Papou-net à dit:
Effectivement,

Tu as oublié de mettre un point devant Cells(1,2) :

Code:

Sub MAJ_QuandClic() ActiveSheet.Shapes("Rectangle 1").Select Sheets("Donnees_Auto").Activate Selection.Characters.Text = "B2B : " & [COLOR="Red"][B][SIZE="6"].[/SIZE][/B][/COLOR]Cells(1, 2) & " %" ActiveCell.Select End Sub

Maintenant, ça doit fonctionner.

Cordialement.

Private Sub MAJ_Click()
ActiveSheet.Shapes("Rectangle 1").Select
Sheets("Donnees_Auto").Activate
Selection.Characters.Text = "B2B : " & .Cells(1, 2) & " %"
ActiveCell.Select
End Sub

Erreur de compilation référence incorrect ou non qalifiée

tototiti2008 · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Re,

et donc, tu as un Excel en anglais ???

Papou-net · 1 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Zaffe à dit:
Private Sub MAJ_Click()
ActiveSheet.Shapes("Rectangle 1").Select
Sheets("Donnees_Auto").Activate
Selection.Characters.Text = "B2B : " & .Cells(1, 2) & " %"
ActiveCell.Select
End Sub

Erreur de compilation référence incorrect ou non qalifiée

Désolé, je suis allé trop vite, il ne faut pas de point devant Cells(1, 2).

Donc je ne vois qu'une solution, c'est le nom de ton rectangle qui doit être différent.
Pour le connaître, tu cliques droit sur ton rectangle, tu choisis Affecter une macro, et tu lis le nom de l'objet dans la fenêtre qui vient de s'ouvrir.

Si ce n'est pas ça, c'est peut-être tototiti (bonjour tototiti) qui a raison, tu es peut-être sur une version anglaise d'Excel.

Espérant t'avoir dépanné.

Cordialement.

Zaffe · 2 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

tototiti2008 à dit:
Re,

et donc, tu as un Excel en anglais ???

Excuse moi je pensais que tu parlais à Papounet.
Non mon Excel est en Français

Zaffe · 2 Avril 2010

Re : [VBA | Contenu d'une cellule dans une forme (rectangle) ]

Problème résolu ! Merci à vous !

PS : Pour ceux qui cherche une réponse j'ai utilisé la méthode de tototiti sauf que au lieu de mettre "=F$1$" il fallait mettre =Sheet1!$F$1

[VBA | Contenu d'une cellule dans une forme (rectangle) ]

Zaffe

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

Zaffe

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Zaffe

XLDnaute Nouveau

Zaffe

XLDnaute Nouveau

Papou-net

XLDnaute Barbatruc

Zaffe

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Zaffe

XLDnaute Nouveau

Zaffe

XLDnaute Nouveau

Discussions similaires