Problème de format de date
Fermé
patouu29
-
30 oct. 2009 à 08:15
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 30 oct. 2009 à 14:00
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 30 oct. 2009 à 14:00
A voir également:
- Problème de format de date
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format epub - Guide
- Format apfs - Guide
- Format de taxe frigo vide ✓ - Forum Vos droits sur internet
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Graphisme
5 réponses
donjeuw
Messages postés
568
Date d'inscription
jeudi 8 octobre 2009
Statut
Membre
Dernière intervention
7 avril 2015
53
30 oct. 2009 à 11:54
30 oct. 2009 à 11:54
Bonjour, as tu essayé de faire un "collage spécial" de ta colonne en acceptant Tout ? cela prendra en compte la le Format de la colonne. (J'ai testé ton problème et pour moi cela marche avec un simple coller...!).
Bien cordialement
Bien cordialement
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
30 oct. 2009 à 12:18
30 oct. 2009 à 12:18
Bonjour,
Le problème est peut être la : Pourtant je fais un simple copier coller de ma colone feuille une vers feuille 2 avec un userform. Quel est ton code? As tu pensé à ajouter à ton copier coller un format Date?
Le problème est peut être la : Pourtant je fais un simple copier coller de ma colone feuille une vers feuille 2 avec un userform. Quel est ton code? As tu pensé à ajouter à ton copier coller un format Date?
oui j'ai prédéfinis un format date sur la colonne que je copie. j'ai même essayé d'initialisé la colonne feuille 2 avant de recevoir les données en faisant un copier coller d'une colone vierge au foramt date.
mon code :
Set l = Sheets(NmProjet).Cells(22, 1)
Sheets("feuil2").Activate
Range("K39 : K1000").Select 'colone vierge
Application.CutCopyMode = False
Selection.Copy
Sheets("feuil2").Select
ActiveSheet.Range("C42").Select
ActiveSheet.Paste
Set w = Sheets("Graphique").Cells(42, 3)
Do While l <> ""
n = 0
Do While n < 8
w.Offset(0, n) = l.Offset(0, n)
n = n + 1
Loop
Set w = w.Offset(1, 0)
Set l = l.Offset(1, 0)
Loop
mon code :
Set l = Sheets(NmProjet).Cells(22, 1)
Sheets("feuil2").Activate
Range("K39 : K1000").Select 'colone vierge
Application.CutCopyMode = False
Selection.Copy
Sheets("feuil2").Select
ActiveSheet.Range("C42").Select
ActiveSheet.Paste
Set w = Sheets("Graphique").Cells(42, 3)
Do While l <> ""
n = 0
Do While n < 8
w.Offset(0, n) = l.Offset(0, n)
n = n + 1
Loop
Set w = w.Offset(1, 0)
Set l = l.Offset(1, 0)
Loop
en faite le problème vient ptet du faite que je copie colle plusieur colone a la fois avec une colone au format date et 7 colone au format nombre. d'ou mon : do while n<8
je vais essayé de le faire en deux copier coller
je vais essayé de le faire en deux copier coller
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
30 oct. 2009 à 14:00
30 oct. 2009 à 14:00
Salut,
Si je reprends ton code, toute la partie en gras peut s'écrire plus simplement
[K39 : K1000].Copy [C42]
on peut renforcer le format de la colonne C en complétant la ligne
[K39 : K1000].Copy [C42]: [C:C].NumberFormat = "m/d/yyyy"
Si le format de la plage doit être limité à C42 à C250 par exemple
[K39 : K1000].Copy [C42]: [C42:C250].NumberFormat = "m/d/yyyy"
Sub test()
Set l = Sheets(NmProjet).Cells(22, 1)
Sheets("feuil2").Activate
'Range("K39 : K1000").Select 'colone vierge
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("feuil2").Select
'ActiveSheet.Range("C42").Select
'ActiveSheet.Paste
'Sheets("feuil2").Range("K39 : K1000").Copy Sheets("feuil2").Range("C42")
Set w = Sheets("Graphique").Cells(42, 3)
Do While l <> ""
n = 0
Do While n < 8
w.Offset(0, n) = l.Offset(0, n)
n = n + 1
Loop
Set w = w.Offset(1, 0)
Set l = l.Offset(1, 0)
Loop
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
Si je reprends ton code, toute la partie en gras peut s'écrire plus simplement
[K39 : K1000].Copy [C42]
on peut renforcer le format de la colonne C en complétant la ligne
[K39 : K1000].Copy [C42]: [C:C].NumberFormat = "m/d/yyyy"
Si le format de la plage doit être limité à C42 à C250 par exemple
[K39 : K1000].Copy [C42]: [C42:C250].NumberFormat = "m/d/yyyy"
Sub test()
Set l = Sheets(NmProjet).Cells(22, 1)
Sheets("feuil2").Activate
'Range("K39 : K1000").Select 'colone vierge
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("feuil2").Select
'ActiveSheet.Range("C42").Select
'ActiveSheet.Paste
'Sheets("feuil2").Range("K39 : K1000").Copy Sheets("feuil2").Range("C42")
Set w = Sheets("Graphique").Cells(42, 3)
Do While l <> ""
n = 0
Do While n < 8
w.Offset(0, n) = l.Offset(0, n)
n = n + 1
Loop
Set w = w.Offset(1, 0)
Set l = l.Offset(1, 0)
Loop
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
