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

A voir également:

Ajout d'un ' à une date Excel en macro
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Aller à la ligne excel - Guide
Formule excel - Guide
Mise en forme conditionnelle excel - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
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

Réponse 2 / 2

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

Discussions similaires

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

Qui sont les personnes dans mon ajout rapide de Snapchat ?

Pix

Comment savoir comment on nous a ajouté sur Snap

Discussions similaires

Newsletters