Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel date en texte

date en texte

3 réponses
Avatar
ptck
Bonsoir
j'ai cette macro qui marche mais je n'arrrive pas à mettre la date de
l'array en format texte

merci de votre aide
ptck


sh2.Activate
For Each période In Array("01/01/2010", "01/02/2010", "01/03/2010",
"01/04/2010", _
"01/05/2010", "01/06/2010", "01/07/2010", "01/08/2010", "01/09/2010", _
"01/10/2010", "01/11/2010", "01/12/2010")
plage.Copy
sh2.Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
fin = sh2.[A1].CurrentRegion.Rows.Count
sh2.Range(Cells(debut, col + 1), Cells(fin, col + 1)) = période
debut = fin + 1
Next période
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
Peut_être :

Feuil1.Range(Cells(debut, col + 1), Cells(fin, col +
1)).NumberFormat = "@"
Feuil1.Range(Cells(debut, col + 1), Cells(fin, col + 1)) = période

Cordialement.
Daniel

Bonsoir
j'ai cette macro qui marche mais je n'arrrive pas à mettre la date de l'array
en format texte

merci de votre aide
ptck


sh2.Activate
For Each période In Array("01/01/2010", "01/02/2010", "01/03/2010",
"01/04/2010", _
"01/05/2010", "01/06/2010", "01/07/2010", "01/08/2010", "01/09/2010", _
"01/10/2010", "01/11/2010", "01/12/2010")
plage.Copy
sh2.Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
fin = sh2.[A1].CurrentRegion.Rows.Count
sh2.Range(Cells(debut, col + 1), Cells(fin, col + 1)) = période
debut = fin + 1
Next période


Avatar
ptck
Merci pour la réponse
mais non!! çà ne marche pas
qui cherche trouve -))
ptck

"Daniel.C" a écrit dans le message de news:
e55Jt3$
Bonjour.
Peut_être :

Feuil1.Range(Cells(debut, col + 1), Cells(fin, col + 1)).NumberFormat =
"@"
Feuil1.Range(Cells(debut, col + 1), Cells(fin, col + 1)) = période

Cordialement.
Daniel

Bonsoir
j'ai cette macro qui marche mais je n'arrrive pas à mettre la date de
l'array en format texte

merci de votre aide
ptck


sh2.Activate
For Each période In Array("01/01/2010", "01/02/2010", "01/03/2010",
"01/04/2010", _
"01/05/2010", "01/06/2010", "01/07/2010", "01/08/2010", "01/09/2010",
_
"01/10/2010", "01/11/2010", "01/12/2010")
plage.Copy
sh2.Range("A65536").End(xlUp).Offset(1).PasteSpecial
Paste:=xlPasteValues
fin = sh2.[A1].CurrentRegion.Rows.Count
sh2.Range(Cells(debut, col + 1), Cells(fin, col + 1)) = période
debut = fin + 1
Next période







Avatar
ptck
Ok çà marche
"ptck" a écrit dans le message de news:

Merci pour la réponse
mais non!! çà ne marche pas
qui cherche trouve -))
ptck

"Daniel.C" a écrit dans le message de news:
e55Jt3$
Bonjour.
Peut_être :

Feuil1.Range(Cells(debut, col + 1), Cells(fin, col + 1)).NumberFormat =
"@"
Feuil1.Range(Cells(debut, col + 1), Cells(fin, col + 1)) = période

Cordialement.
Daniel

Bonsoir
j'ai cette macro qui marche mais je n'arrrive pas à mettre la date de
l'array en format texte

merci de votre aide
ptck


sh2.Activate
For Each période In Array("01/01/2010", "01/02/2010", "01/03/2010",
"01/04/2010", _
"01/05/2010", "01/06/2010", "01/07/2010", "01/08/2010",
"01/09/2010", _
"01/10/2010", "01/11/2010", "01/12/2010")
plage.Copy
sh2.Range("A65536").End(xlUp).Offset(1).PasteSpecial
Paste:=xlPasteValues
fin = sh2.[A1].CurrentRegion.Rows.Count
sh2.Range(Cells(debut, col + 1), Cells(fin, col + 1)) = période
debut = fin + 1
Next période