ExecuteExcel4Macro FORMULA

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

G

Guest

Guest
Bonsoir à tous

Essayant de faire une MFC avec deux couleurs de fonds je rencontre un problème avec la macro suivante à la ligne en rouge.
Non seulement cette ligne atteint son but en liant la formule au Shape mais me met la valeur de la cellule active une ligne dessous et une colonne à droite.

Si j'applique la macro sur A1 elle affiche le resultat de la formule en B2.

Qui se rappelle comment fonction les fonctions XL4?

J'arrive pas à trouver le hic! a moins que l'heure tardive me brouille l'esprit ou que Laurent Ruquier me perturbe!!!!

Code:
Sub DeuxCouleursFonds()
    Dim shp As Shape
    
    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height)
    
    With shp
    .TopLeftCell = ActiveCell
    .BottomRightCell = ActiveCell
    .Fill.ForeColor.SchemeColor = 50
    .Fill.BackColor.SchemeColor = 43
    .Fill.Transparency = 0#
    .Fill.TwoColorGradient msoGradientHorizontal, 1
    .ZOrder msoSendToBack
    '.Select
    [COLOR=red] ExecuteExcel4Macro "FORMULA(""=" & ActiveCell.Address(0, 0, xlR1C1) & """)"[/COLOR]
    End With
End Sub

Si vous avez une solution...

Merci à toutes et tous
 
Re : ExecuteExcel4Macro FORMULA

Hello Tous,

J'ai trouvé ma réponse:
Ce qui ne va pas c'est la ligne:
Code:
.BottomRightCell = ActiveCell
que j'ai enlevée et tout est rentré dans l'ordre.

Je crois qu'il est temps que je songe à aller me coucher...

bons ZZZZZzzzzzzzzzzzzzzzzz
A++++++
 
- 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.
Retour