Ajout d'un ' à une date Excel en macro

Résolu/Fermé
Diegoms
Messages postés
10
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
25 mai 2010
- 19 mai 2010 à 11:51
Diegoms
Messages postés
10
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
25 mai 2010
- 25 mai 2010 à 11:29
Salut,

En excel j'ai une liste de dates sur la colonne A disons :

05/05/2010
05/06/2010
05/07/2010
05/08/2010

etc.

Je voudrais les transformer en TEXTE, qu'excel ne les reconnaisse pas comme des dates. Je peux faire F2 et ajouter un ' devant. ça marche. Cependant je veux faire ça en macro mais quand j'enregistre la macro sur par exemple la premiere et que j'ai

'05/05/2010

Jusque là ça va. Mais quand j'execute cette macro sur la ligne suivant au lieu de juste ajouter le ' devant 05/06/2010 il efface le texte de la colonne et le remplace par 05/05/2010. Donc si j'applique cette macro à la fin mon tableau sera :

05/05/2010
05/05/2010
05/05/2010
05/05/2010

Comment je fais, au secours !!!!!

PS : Si vous en avez besoin voici le code que crée ma macro, je ne m'y connais rien mais je crois que c'est ça le problème :

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 19/05/2010 par dmendez
'

'
Application.CutCopyMode = False
Selection.FormulaR1C1 = "'05/05/2010"
End Sub

2 réponses

pijaku
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 695
20 mai 2010 à 14:33
Salut,
Tu peux donc le faire par macro :
cellule par cellule : [tu sélectionnes la cellule et lances la macro]
Sub pas_a_pas()
ActiveCell.Value = "'" & ActiveCell.Value
End Sub

Ou alors en boucle de A1 à A15896 (si toutes tes dates sont en colonne A) :
Sub ajout_col_A()
Dim i, derlig As Integer
derlig = Range("A65536").End(xlUp).Row
For i = 1 To derlig
Cells(i, 1).Value = "'" & Cells(i, 1).Value
Next i
End Sub
0
Diegoms
Messages postés
10
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
25 mai 2010
1
25 mai 2010 à 11:29
Merci beaucoup je vais essayer
0