Macro excel placer le signe = en premier
Résolu/Fermé
forrest55
Messages postés
3
Date d'inscription
jeudi 20 octobre 2011
Statut
Membre
Dernière intervention
22 octobre 2011
-
Modifié par forrest55 le 20/10/2011 à 23:19
forrest55 Messages postés 3 Date d'inscription jeudi 20 octobre 2011 Statut Membre Dernière intervention 22 octobre 2011 - 22 oct. 2011 à 08:02
forrest55 Messages postés 3 Date d'inscription jeudi 20 octobre 2011 Statut Membre Dernière intervention 22 octobre 2011 - 22 oct. 2011 à 08:02
A voir également:
- Macro excel placer le signe = en premier
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Mise en forme conditionnelle excel - Guide
- Macro word - Guide
3 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 209
21 oct. 2011 à 09:13
21 oct. 2011 à 09:13
Bonjour tout le monde,
Il y a une autre possibilité :
sélectionner B1,
'insertion / nom / definir...'
nom dans le classeur: evaluer
Fait référence à: =EVALUER(A1)
Ensuite si tu as 8+5 en A3, en B4 mettre: =evaluer
Mais en général on fait l'inverse...
On écrit la formule, ce qui permet de voir si elle est correcte.
Et une macro ou fonction personnalisée l'affiche.
ex de fonction personnalisée à mettre dans un module :
syntaxe= =AffFormule(A3)
eric
Il y a une autre possibilité :
sélectionner B1,
'insertion / nom / definir...'
nom dans le classeur: evaluer
Fait référence à: =EVALUER(A1)
Ensuite si tu as 8+5 en A3, en B4 mettre: =evaluer
Mais en général on fait l'inverse...
On écrit la formule, ce qui permet de voir si elle est correcte.
Et une macro ou fonction personnalisée l'affiche.
ex de fonction personnalisée à mettre dans un module :
Function AffFormule(cell As Range) As String AffFormule = cell.FormulaLocal End Function
syntaxe= =AffFormule(A3)
eric
Syzygy
Messages postés
378
Date d'inscription
vendredi 29 avril 2011
Statut
Membre
Dernière intervention
31 décembre 2011
142
20 oct. 2011 à 23:33
20 oct. 2011 à 23:33
Bonsoir,
Avant de penser à une macro, savez vous qu'il est possible d'afficher rapidement la formule de toutes les cellules d'une feuille à l'aide de la combinaison de touche suivante :
Ctrl + "
Cette solution vous conviendrait-elle?
Bonne soirée,
Avant de penser à une macro, savez vous qu'il est possible d'afficher rapidement la formule de toutes les cellules d'une feuille à l'aide de la combinaison de touche suivante :
Ctrl + "
Cette solution vous conviendrait-elle?
Bonne soirée,
forrest55
Messages postés
3
Date d'inscription
jeudi 20 octobre 2011
Statut
Membre
Dernière intervention
22 octobre 2011
Modifié par forrest55 le 21/10/2011 à 05:24
Modifié par forrest55 le 21/10/2011 à 05:24
Bonjour Syzygy,
Oui je sais que dans l'onglet formule il est possible d'afficher les formules, le problème c'est que cette fonction affiche les formules de toute la feuille et il devient donc impossible de l'imprimer.
Mon but est de pouvoir imprimer la page avec le calcul et le résultat afficher.
J'ai trouvé cette macro qui fonctionne avec plusieurs caractères mais pas avec le signe =.
Sub Ajout_Avant()
Dim cellule As Range
For Each cellule In Selection
cellule = "=" & cellule
Next cellule
End Sub
J'ai trouvé une autre solution en insérant un espace avant le signe = comme ceci:
Sub Ajout_Avant()
Dim cellule As Range
For Each cellule In Selection
cellule = " =" & cellule
Next cellule
End Sub
ça fonctionne, seulement maintenant il faudrait continuer cette macro en supprimant l'espace qui se trouve avant le signe égale, c'est donc à ce moment là que je suis bloqué et que je ne trouve pas de solutions.
Est-ce-que quelqu'un peut m'aider SVP?
Oui je sais que dans l'onglet formule il est possible d'afficher les formules, le problème c'est que cette fonction affiche les formules de toute la feuille et il devient donc impossible de l'imprimer.
Mon but est de pouvoir imprimer la page avec le calcul et le résultat afficher.
J'ai trouvé cette macro qui fonctionne avec plusieurs caractères mais pas avec le signe =.
Sub Ajout_Avant()
Dim cellule As Range
For Each cellule In Selection
cellule = "=" & cellule
Next cellule
End Sub
J'ai trouvé une autre solution en insérant un espace avant le signe = comme ceci:
Sub Ajout_Avant()
Dim cellule As Range
For Each cellule In Selection
cellule = " =" & cellule
Next cellule
End Sub
ça fonctionne, seulement maintenant il faudrait continuer cette macro en supprimant l'espace qui se trouve avant le signe égale, c'est donc à ce moment là que je suis bloqué et que je ne trouve pas de solutions.
Est-ce-que quelqu'un peut m'aider SVP?
Syzygy
Messages postés
378
Date d'inscription
vendredi 29 avril 2011
Statut
Membre
Dernière intervention
31 décembre 2011
142
21 oct. 2011 à 06:47
21 oct. 2011 à 06:47
Bonjour,
J'ai retravaillé votre première partie de code, vous étiez sur la bonne voie dans la logique. Toutefois la syntaxe n'était pas correct. Essayez ceci :
Sub Ajout_Avant()
Dim cellule As Range
For Each cellule In Selection
cellule.FormulaLocal = "=" & cellule.Value
Next cellule
End Sub
Bonne journée
J'ai retravaillé votre première partie de code, vous étiez sur la bonne voie dans la logique. Toutefois la syntaxe n'était pas correct. Essayez ceci :
Sub Ajout_Avant()
Dim cellule As Range
For Each cellule In Selection
cellule.FormulaLocal = "=" & cellule.Value
Next cellule
End Sub
Bonne journée
forrest55
Messages postés
3
Date d'inscription
jeudi 20 octobre 2011
Statut
Membre
Dernière intervention
22 octobre 2011
22 oct. 2011 à 08:02
22 oct. 2011 à 08:02
Un grand merci à vous pour vos réponses ça fonctionne nikel.
Salutation et bonne journée
Salutation et bonne journée