date en texte

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #20684191
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


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

"Daniel.C" 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







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

"Daniel.C" 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












Publicité
Poster une réponse
Anonyme