Apostrophe ( ' ) curieux

[pierrejean]

Bonjour à tous

dans le fichier ci-joint:

En L6C49 une formule

Si je copie la cellule sur elle-même en copie speciale par valeurs

Une apostrophe apparait dans la barre de formules

De quoi s'agit-il ?

Comment s'en debarasser ( en Vba ) ?

Merci deja d'avoir lu

 

[R@chid]

Re : Apostrophe ( ' ) curieux

Bonjour pierrejean,
peut être car la cellule était en format texte avant de taper la formule et al mettre en format standard,
Sélectionner la cellule ==> Effacer les Formats
Amicalement

 

[Modeste geedee]

Re : Apostrophe ( ' ) curieux

Bonsour® PierreJean

je me hasarde ...

la cellule L6C49 est au format standard
la formule est sensée renvoyer un texte

présentement elle renvoie : rien, nada, vide, non numérique... pas #NA, pas erreur

Excel n'a dautre possibilité pour indiquer ceci, que l'emploi du préfixe texte
cette explication n'est peut-etre pas la bonne mais suffit à mon esprit


quand à la solution pour virer cette d'apostrophe :

Ce lien n'existe plus

 

[pierrejean]

Re : Apostrophe ( ' ) curieux

Bonjour R@chid et Merci

Je n'ai pas été assez precis !!!
Je souhaite effacer en Vba car j'en ai un bon nombre, mais

If Cells(6,49).value="'" then Cells(6,49)=""

ne fonctionne pas !!!

 

[R@chid]

Re : Apostrophe ( ' ) curieux

Bonjour,
Voir la réponse de notre ami Modeste geedee, j'ai vu une macro sur le lien...
Amicalement

 

[tototiti2008]

Re : Apostrophe ( ' ) curieux

Bonjour PierreJean, Bonjour Rachid, Bonjour Modeste GD,

en tout cas pour le pourquoi ça met une apostrophe, c'est une colle pour moi
si je copie (pas de recopie, une copie du texte de la formule) la formule dans une cellule un peu plus bas, le copier/collage spécial valeurs ne met plus d'apostrophe
pas réussi à reproduire le phénomène autre part, peut-être une histoire de format comme préconisé par Rachid et Modeste GD, mais je ne sais pas quel format a pu faire ça
en tout cas la macro du lien de Modeste GD devrait le faire

 

[Habitude]

Re : Apostrophe ( ' ) curieux

Bonjour à tous

Bonjour R@chid et Merci

Je n'ai pas été assez precis !!!
Je souhaite effacer en Vba car j'en ai un bon nombre, mais

If Cells(6,49).value="'" then Cells(6,49)=""

ne fonctionne pas !!!

Remplace le .value par .PrefixCharacter

 

[pierrejean]

Re : Apostrophe ( ' ) curieux

Bonjour Modeste geedee

Parfait !!
L'explication et la solution me conviennent parfaitement

Merci infiniment

Edit : Merci Tototiti , Merci Habitude

 

[david84]

Re : Apostrophe ( ' ) curieux

Bonjour à tous,
à tester :

Sub a()
ActiveCell = Trim(ActiveCell)
End Sub

A+

 

[pierrejean]

Re : Apostrophe ( ' ) curieux

Bonjour david84

Cela fonctionne aussi

Merci