Contenu récent par oorphee

Re : VBA : test feuille sélectionnée Ca fonctionne, merci !!

Rebonjour, Sous VBA je sais sélectionner une feuille mais je ne sais pas écrire écrire le test "si la feuille sélectionnée en cours est 'Feuill1' alors" Merci d'avance.

Re : macro : renommer titre graphe par texte cellule ...............

Re : macro : renommer titre graphe par texte cellule Merci !! Bon dimanche

Bonjour, J'ai 2 cellules dont le contenu sera du texte qui se modifie par des formules : B2="lala", C3=" tsointsoin" J'aimerai renommer le titre d'un graphe par le texte de ces cellules. ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.ChartTitle.Select...

Re : caractère spécial dans macro Un grand merci pour votre aide. Je suis parvenu à mes fins.

Re : caractère spécial dans macro Autant pour moi c'était un bouton formulaire effectivement. Cela fonctionne par contre Chr(216) n'est pas le bon caractère. Ou puis-je trouvé la liste de correspondance entre caractère spécial et "référence" ? Ca devrait être ma dernière requête. Merci encore

Re : caractère spécial dans macro Bonjour et merci aux 2. Dranreb, étant débutant total, j'avoue avec honte ne pas avoir compris le pourquoi du comment pour m'en sortir concrêtement. Theze, mon bouton est "button 101" J'ai changé donc pour : CommandButton0101.Caption = "Mon texte " &...

Bonjour, Mon but est de modifier le texte d'un bouton à l'aide d'une macro avec le caractère spécial Ȼ qui provient de la police Calibri. Cependant lorsque je la tape dans la macro, Ȼ est remplacé par ? inévitablement et alors en exécutant la macro évidemment, c'est ? qui prend le dessus...

Re : macro évementielle simple Super. Merci

Re : macro évementielle simple Merci pour l'optimisation ! C'est le jour et la nuit. Ma cellule était au format date et donc le IsNumeric posait problème. Je vous remercie pour avoir pris la peine de détailler.

Re : macro évementielle simple Mon code complet est (il y a une partie avant) Private Sub Worksheet_Change(ByVal Target As Range) If Range("M16") = "x" Then ActiveSheet.ChartObjects("Graphique 16").Activate ActiveChart.SeriesCollection(4).Trendlines(1).Select If...

Re : macro évementielle simple Bonjour Fredoo, Tu as cerné pleinement ce que je voulais réaliser. Et justement, rien ne se passe au moment ou je saisis une valeur en [C41:C280] c'est la mon soucis ! Le curseur et la plage sélectionnée disparaissent et c'est tout. Je ne comprends pas

Re : macro évementielle simple Rebonjour, J'ai écrit ceci et rien ne se passe. Le but est de décaler le curseur au moment de la saisie. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If IsNumeric(Target) And Target > 0 Then If Not Intersect(Target, [C41:C280])...

Re : macro évementielle simple Servi sur un plateau. Merci beaucoup. Je note la syntaxe pour broder d'autres codes.