La macro suivante envoyé par Daniel marche bien :
Sub CaractExposant()
N = Range("A1").Characters.Count
Range("A1").Characters(N, 1).Font.Superscript = True
End Sub
MAIS j'ai un probleme pour l'executer.
Si je fais Outils/Macro et que je selectionne CaractExposant, la macro
marche sans probleme.
MAIS, si je cree un bouton avec le code suivant pour lancer la macro :
Private Sub CommandButton1_Click()
CaractExposant
End Sub
cela me fait une erreur d'execution 1004 !!
Comment y remedier ?
Ce qui est encore plus bizarre c'est que si on remplace Superscript par Bold
les deux techniques marchent !!
Décidement, c'est bien compliqué tout ça !
OR
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Or,
il faut mettre la propriété du bouton, TakeFocusOnclick = false
isabelle
La macro suivante envoyé par Daniel marche bien : Sub CaractExposant() N = Range("A1").Characters.Count Range("A1").Characters(N, 1).Font.Superscript = True End Sub MAIS j'ai un probleme pour l'executer. Si je fais Outils/Macro et que je selectionne CaractExposant, la macro marche sans probleme. MAIS, si je cree un bouton avec le code suivant pour lancer la macro : Private Sub CommandButton1_Click() CaractExposant End Sub cela me fait une erreur d'execution 1004 !! Comment y remedier ? Ce qui est encore plus bizarre c'est que si on remplace Superscript par Bold les deux techniques marchent !! Décidement, c'est bien compliqué tout ça ! OR
bonjour Or,
il faut mettre la propriété du bouton, TakeFocusOnclick = false
isabelle
La macro suivante envoyé par Daniel marche bien :
Sub CaractExposant()
N = Range("A1").Characters.Count
Range("A1").Characters(N, 1).Font.Superscript = True
End Sub
MAIS j'ai un probleme pour l'executer.
Si je fais Outils/Macro et que je selectionne CaractExposant, la macro
marche sans probleme.
MAIS, si je cree un bouton avec le code suivant pour lancer la macro :
Private Sub CommandButton1_Click()
CaractExposant
End Sub
cela me fait une erreur d'execution 1004 !!
Comment y remedier ?
Ce qui est encore plus bizarre c'est que si on remplace Superscript par Bold
les deux techniques marchent !!
Décidement, c'est bien compliqué tout ça !
OR
il faut mettre la propriété du bouton, TakeFocusOnclick = false
isabelle
La macro suivante envoyé par Daniel marche bien : Sub CaractExposant() N = Range("A1").Characters.Count Range("A1").Characters(N, 1).Font.Superscript = True End Sub MAIS j'ai un probleme pour l'executer. Si je fais Outils/Macro et que je selectionne CaractExposant, la macro marche sans probleme. MAIS, si je cree un bouton avec le code suivant pour lancer la macro : Private Sub CommandButton1_Click() CaractExposant End Sub cela me fait une erreur d'execution 1004 !! Comment y remedier ? Ce qui est encore plus bizarre c'est que si on remplace Superscript par Bold les deux techniques marchent !! Décidement, c'est bien compliqué tout ça ! OR
