apostrophe en VBA

[danyphil]

Salut

Je dois taper dans la colonne B une référence de 17 chiffres mais il me change les 2 derniers en zéro. Comment puis en vba integrer automatiquement un apostrophe dans la colonne b pour qu'il conserve bien les 17 chiffres que je tape

merci

Philou

 

[Pierrot93]

Re : apostrophe en VBA

Bonjour Danyphil

pourquoi ne pas au préalable, utiliser un format de cellule "Texte", si c'est une référence et que tu n'as pas besoin de calculs cela devrait fonctionner.

bonne journée
@+

 

[pierrejean]

Re : apostrophe en VBA

bonjour danyphil

pour repondre strictement a ta question

Columns("B:B").Select
Selection.NumberFormat = "@"

tu auras alors du texte dans la colonne B

par contre si tu veux un nombre sans virgule c'est

Columns("B:B").Select
Selection.NumberFormat = "0"

edit

salut Pierrot

 

[danyphil]

Re : apostrophe en VBA

rebonjour

j'ai essayé la cellule en format texte mais il ne se passe rien.
auriez vous un exemple avec un référence de 17 chiffres

merci

 

[pierrejean]

Re : apostrophe en VBA

re

passe d'abord en nombre sans decimales puis en texte

 

[Catrice]

Re : apostrophe en VBA

Bonjour,

Essaye ceci :
Sub test()
[A1] = "'12345678912345678"
End Sub

L'apostrophe est en bleu apres le guillemet

ou ceci :

Sub test2()
[B1].NumberFormat = "@"
[B1] = "12345678912345678"
End Sub

 

[danyphil]

Re : apostrophe en VBA

re
merci car le sub version fonctionne trés bien mais comment puis-je faire pour l'adapter sur la colonne c7 à c67

merci de vos réponses

Bonjour,

Essaye ceci :
Sub test()
[A1] = "'12345678912345678"
End Sub

L'apostrophe est en bleu apres le guillemet

ou ceci :

Sub test2()
[B1].NumberFormat = "@"
[B1] = "12345678912345678"
End Sub

philou

 

[Pierrot93]

Re : apostrophe en VBA

Re

essaye comme ci dessous :

Range("C7:C67").NumberFormat = "@"

@+

 

[danyphil]

Re : apostrophe en VBA

re

c'est nickel merci

mais lorsque j'execute la macro toutes les cases de la colonne "c" se remplisse avec que les chiffres qui sont dans la macro
Y-at-il une soluce pour que rien ne s'affiche

merci

Re

essaye comme ci dessous :

Range("C7:C67").NumberFormat = "@"

@+

philou

 

[Pierrot93]

Re : apostrophe en VBA

Re

la dernière ligne de code que je t'ai donné n'affecte que le format des cellules, elle n'inscrit rien dans la cellule !!! Exécute uniquement cette ligne.

@+