Mettre un espace devant toutes les formules d'une plage sélect.

Résolu/Fermé

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 - Modifié le 16 sept. 2017 à 08:27
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 16 sept. 2017 à 20:23

Bonjour,
J'aimerais rajouter par macro un espace devant toutes les formules d'une plage .
(excel 2000)
Merci a vous par avance

A voir également:

Mettre un espace devant toutes les formules d'une plage sélect.
Espace insécable word - Guide
Les formules excel - Guide
Toutes les formules mathématiques pdf - Télécharger - Études & Formations
Comment liberer de l'espace sur gmail - Guide
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Graphisme

10 réponses

Réponse 1 / 10

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 sept. 2017 à 10:01

Bonjour,

Si tu rajoutes un espace, tes formules ne fonctionneront plus.
Tu n'as pas besoin de macro car cela fonctionne très bien avec ctrl+h

Réponse 2 / 10

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
16 sept. 2017 à 10:26

j'ai essayé avec Ctrl+H,cela m'ouvre la boite "RECHERCHER".
je cherche a mettre un espace devant chaque formule d'une plage de façon a pouvoir déplacer cette même plage sans changer les coordonnées de mes formules.
ensuite je supprime les espaces .

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 sept. 2017 à 10:35

re
Il faut modifier les options et regarder dans "formules" au lieu de valeurs

Réponse 3 / 10

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
16 sept. 2017 à 13:38

J'ai remplacé "plage" par "selection" dans la macro ,mais ça transforme la formule par sa valeur ,ce qui n'est pas le but recherché.
le but recherché étant de pouvoir déplacer une plage de cellule remplie de formules sans altéré les références des formules.

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 sept. 2017 à 14:09

Si tu copies une "plage" ou une "sélection" c'est nécessairement sa valeur donc pour faire ce que tu veux faire il faut modifier "formula" en début et en fin.

Dim cel As Range
For Each cel In Selection.Cells
    If Left(cel.Formula, 1) = "=" Then
        cel.Formula = " " & cel.Formula
    End If
Next cel
Selection.Copy Destination:=[nouvelle plage]

Réponse 4 / 10

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
16 sept. 2017 à 14:35

Je n'ai pas copier la dernière ligne de code car je voulais déplacer la plage manuellement ,mais ça marche très bien.
Sans vouloir abuser de ton temps ,serait il possible d'avoir le code pour faire l'inverse,c'est a dire que dans la nouvelle plage ,pouvoir enlever les formules qui on donc un espace au début pour les rendre actives.

Merci

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
Modifié le 16 sept. 2017 à 14:54

Bonjour,

Ctrl+h
Remplacer: " ="
Par : =
dans les formules

Sinon tu faisais un couper-coller de tes formules et c'était bon
eric

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
16 sept. 2017 à 15:26

Je vous envoie la macro qui met un espace devant chaque formule, elle marche très bien.
mais je n'ai pas réussi a la modifier pour enlever l'espace,si vous pouviez me faire la modification,ce serait parfait

Sub Macro2()
Dim cel As Range
For Each cel In Selection.Cells
If Left(cel.Formula, 1) = "=" Then
cel.Formula = " " & cel.Formula
End If
Next cel
End Sub

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
16 sept. 2017 à 17:27

Apprends plutôt d'abord à te servir d'excel avant de vouloir compenser avec des macros que tu ne maitrises pas plus.
Dans la boite Remplacer tu as un bouton Options, il sert.
eric

Réponse 6 / 10

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
16 sept. 2017 à 17:58

Dans la boite remplacer,je n'ai pas de bouton option .
de plus si je demande un coup de main pour les macros ,c'est justement parce que j'ai des lacunes.

Réponse 7 / 10

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
Modifié le 16 sept. 2017 à 18:05

Tu n'as pas ça ?

Quelle version d'excel ?
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Réponse 8 / 10

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
16 sept. 2017 à 18:08

version 2000 comme je l'ai mis dans ma question .

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
Modifié le 16 sept. 2017 à 18:18

Je ne connais pas 2000.
Mais à défaut tu dois avoir 'Afficher les formules' dans un menu ou par le raccourci Ctrl+"

Et comme je te l'ai dit un coupé-collé des tes formules ne modifie pas les ref.
2 bonnes raisons de ne pas faire de macros pour l'instant

Réponse 9 / 10

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 sept. 2017 à 18:24

Bonjour,

Comme je te l'avais dit et qu'Éric te l'a répété, je pense que l'utilisation de ctrl+h est bien plus judicieuse qu'une macro.
Sur la version 2000 "Options" est présente.

Cependant si tu veux la macro inverse, il suffit de modifier la première en conséquence.

Sub Macro3()
Dim cel As Range
    For Each cel In Selection.Cells
        If Left(cel.Formula, 2) = " =" Then
            cel.Formula = Mid(cel.Formula, 2)
        End If
    Next cel
End Sub

Réponse 10 / 10

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
Modifié le 16 sept. 2017 à 19:44

Bonjour

Je ne comprend pas parce que je n'ai pas de bouton option dan la boite de dialogue "REMPLACER".

Par contre je ne comprend pas pourquoi dans la macro que vous m'avez envoyé (5)qui fonctionne d'ailleur très bien,les fonctions qui sont utilisés dans les formules qui était en français se transforme en anglais.
J'ai aussi essayé en affichant les formules et ensuite de les déplacer,mais les références de formules changent.
Alors qu'avec votre macro quand on déplace les formules elle ne changent pas.
Merci d'avance

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
16 sept. 2017 à 20:23

ensuite de les déplacer
Comment ?

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

comment donner les droits sur fichier partage

"Reboot and Select proper Boot Device"

Aide Please select boot device

Sur la plage...

Discussions similaires

Newsletters