Supprimer guillemets dans formule transformée en chaine VBA Excel
MinusExcel
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Pour éviter d'avoir des erreurs de références dans mes formules, à chaque mise à jour de mon tableau, j'utilise des formules précédées d'un guillemet devant le signe = disposées au dessus de mon tableau, qu'ensuite je colle en valeur 2 lignes plus bas, sur la 1ère ligne de mon tableau
Ensuite j'utilise la fonction Remplacer les guillemets par vide dans la formule pour que celle-ci me donne le résultat escompté.
Ceci fonctionne très bien dans un tableau Excel
J'ai enregistré toutes les étapes dans une Macro automatique, mais cela ne fonctionne pas.
J'ai essayé de remplacer les guillemets pas CHR(34), mais je ne sais pas comment écrire que je ne veux rien à la place.
Voici ce qu'a écrit la macro :
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Pour éviter d'avoir des erreurs de références dans mes formules, à chaque mise à jour de mon tableau, j'utilise des formules précédées d'un guillemet devant le signe = disposées au dessus de mon tableau, qu'ensuite je colle en valeur 2 lignes plus bas, sur la 1ère ligne de mon tableau
Ensuite j'utilise la fonction Remplacer les guillemets par vide dans la formule pour que celle-ci me donne le résultat escompté.
Ceci fonctionne très bien dans un tableau Excel
J'ai enregistré toutes les étapes dans une Macro automatique, mais cela ne fonctionne pas.
J'ai essayé de remplacer les guillemets pas CHR(34), mais je ne sais pas comment écrire que je ne veux rien à la place.
Voici ce qu'a écrit la macro :
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
A voir également:
- Enlever guillemets excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Enlever pub youtube - Accueil - Streaming
- Déplacer colonne excel - Guide
- Si ou excel - Guide
2 réponses
Bonjour,
Ce code est correct mais il faut avoir sélectionné la zone à traiter au préalable (Selection.Replace)
Pour rechercher/remplacer dans toute la feuille, il faudrait écrire :
Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Et par précaution, au lieu de rechercher simplement des guillemets , je mettrai rechercher "= et remplacer par =
Ce qui donnera :
Ce code est correct mais il faut avoir sélectionné la zone à traiter au préalable (Selection.Replace)
Pour rechercher/remplacer dans toute la feuille, il faudrait écrire :
Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Et par précaution, au lieu de rechercher simplement des guillemets , je mettrai rechercher "= et remplacer par =
Ce qui donnera :
Cells.Replace What:="""=", Replacement:="=", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False