Discussion :

[iliesss]

Bonjour
1-Dans la cellule "A1" j’ai créé un masque de saisie format date 00"/"00"/"0000
2-en suite j'ai mis cet macro dans la "Feuil1" pour retransformer en format date dans "B1"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Range("B1").FormulaR1C1 = "=(TEXT(LEFT(RC[-1],LEN(RC[-1])-6),""00"")&""/""&MID(RC[-1],LEN(RC[-1])-5,2)&""/""&RIGHT(RC[-1],4))*1"
    Range("B2").Select
End If
End Sub

3-copier la valeur "B1" et collé en "A1" en format date

Svp est ce qu'il y a une méthode ou macro pour évité tous ça.

[QuestVba]

Moi, je n'ai pas tout compris !

[Menhir]

Je n'ai rien compris non plus.

C'est quoi un "masque de saisie" en terme Excel ? Un format ? Une validation de données ?
Pourquoi utiliser une macro qui remet systématiquement la même formule en B1 ?
Pourquoi dans ta macro fais-tu un Select de B2 alors que tu n'as rien après ?

Svp est ce qu'il y a une méthode ou macro pour évité tous ça.

Pour faire quoi exactement ?
Essaye d'expliquer en termes simples ce que tu souhaites faire.

J'ai l'impression que tu cherches simplement à saisir une valeur au format date. C'est ça ?
Si c'est le cas, il suffit de faire sur ta cellule :
Clic Droit > Format de la cellule > Catégorie : Date > Type : 14/03/2001
C'est tout.