Microsoft 365 Convertir en -tete tableau en date

eric72 · 1 Septembre 2023

Bonjour à tous,
je bloque pour convertir les en-têtes d'un tableau (issu d'une requête) en date.
J'ai essayé avec ce code :

Sheets("Archives").Range("d2:ue2").Select
Selection.TextToColumns Destination:=Range("d2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True

mais il refuse de convertir plusieurs colonnes à la fois et comme le nombre de colonnes est important je n'ai pas trop envie de répéter la manoeuvre autant de fois qu'il y a de colonnes.
Si l'un d'entre vous a une idée!!!
Merci beaucoup pour votre dévouement.
Eric

Dranreb · 1 Septembre 2023

Bonjour.

VB:

Sub Test()
   Dim Rng As Range, T(), C&, V
   Set Rng = Feuil1.[D2:N2]
   T = Rng.Value
   For C = 1 To UBound(T, 2): V = T(1, C)
      If VarType(V) = vbString And IsDate(V) Then T(1, C) = CDate(V)
      Next C
   Rng.Value = T
   End Sub

Remarque: si ça devait redevenir un tableau vous ne pourriez pas garder les Date dans l'entête, ce seront obligatoirement des String. Dans ce cas c'est la date à chercher qu'il faudrait convertir en String pour pouvoir l'y trouver.

vgendron · 1 Septembre 2023

bonjour

s'il s'agit d'un tableau issu d'une requete.. je présume que c'est une table structurée
donc ?
activesheet.listobjects(1).headerrowrange.numberformat="dd/mm/yyyy"

eric72 · 1 Septembre 2023

Bonjour vgendron,

Merci pour votre réponse mais malheureusement ils restent au format texte, pour preuve quand je clique sur une en-tete et que je fais Données/convertir en date la date passe de gauche à droite dans la cellule et elle devient bien une date.

eric72 · 1 Septembre 2023

Voilà tout ce que j'ai trouvée pour l'instant , à faire jusqu'à la colonne "UE", quelle galère

Range("d2").Select: Selection.TextToColumns Destination:=Range("D2"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Range("e2").Select: Selection.TextToColumns Destination:=Range("e2"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Range("f2").Select: Selection.TextToColumns Destination:=Range("f2"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Range("g2").Select: Selection.TextToColumns Destination:=Range("g2"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Range("h2").Select: Selection.TextToColumns Destination:=Range("h2"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Range("i2").Select: Selection.TextToColumns Destination:=Range("i2"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True

mapomme · 1 Septembre 2023

eric72 à dit:
Bonjour à tous,
...
Eric

Bonjour @eric72 ,

Et le fichier exemple, on le pond nous-même ?

.

eric72 · 1 Septembre 2023

mapomme à dit:
Bonjour @eric72 ,

Et le fichier exemple, on le pond nous-même ?
.

bonjour,

voilà un exemple en sachant que ma plage compte 550 colonnes, j'ai essayé avec une boucle mais je ne sais pas comment rendre la "Destination" dynamique.
Merci beaucoup

vgendron · 1 Septembre 2023

Dans ton fichier, les entetes sont déjà des dates....

pour t'en convaincre, il suffit de taper
=annee(C2)

et les données ne sont pas sous forme de table structurée..

eric72 · 1 Septembre 2023

vgendron à dit:
Dans ton fichier, les entetes sont déjà des dates....

pour t'en convaincre, il suffit de taper
=annee(C2)

ah alors je ne comprends pas, j'ai une macro qui fait référence à ces dates dans laquelle il y a :

Set c = Sheets("archives").Range("2:2").Find(what:=Sheets("Consultation Planning").Range("AA6").Value, lookat:=xlWhole)

en l'état elle ne fonctionne pas alors que, quand je fais données/convertir en date, elle fonctionne bien, comment expliquer cela?
Merci pour le temps consacré
Eric

eric72 · 1 Septembre 2023

vgendron à dit:
Dans ton fichier, les entetes sont déjà des dates....

pour t'en convaincre, il suffit de taper
=annee(C2)

et les données ne sont pas sous forme de table structurée..

En effet les données ne sont plus en table structurée j'ai transformé en plage, de plus ma macro de conversion fonctionne bien, elle est juste trop lourde à écrire, j'aurais aimé avec une boucle sur toutes les cellules de la ligne 2 mais je n'y parviens pas.
Merci

vgendron · 1 Septembre 2023

peut etre que le problème n'est pas le format date des entetes;. mais plutot dans ta formule..
Set c = Sheets("archives").Range("2:2").Find(what:=Sheets("Consultation Planning").Range("AA6").Value, lookin:=xlvalues)

vgendron · 1 Septembre 2023

ne pas oublier qu'une date, du point de vue d'excel, c'est un nombre !
après. c'est juste une question d'affichage..
1 = 01/01/1900
45170 ==> c'est aujourd'hui le 1er sept 2023

eric72 · 1 Septembre 2023

vgendron à dit:
peut etre que le problème n'est pas le format date des entetes;. mais plutot dans ta formule..
Set c = Sheets("archives").Range("2:2").Find(what:=Sheets("Consultation Planning").Range("AA6").Value, lookin:=xlvalues)

oui je comprends bien sauf qu'elle fonctionne dès que je convertis la date alors!!!
la ligne ("2:2") correspond a ces dates

eric72 · 1 Septembre 2023

vgendron à dit:
ne pas oublier qu'une date, du point de vue d'excel, c'est un nombre !
après. c'est juste une question d'affichage..
1 = 01/01/1900
45170 ==> c'est aujourd'hui le 1er sept 2023

avez-vous une idee sur la macro pour convertir avec une boucle?
Merci

Dranreb · 1 Septembre 2023

Bonjour.

VB:

Sub Test()
   Dim Rng As Range, T(), C&, V
   Set Rng = Feuil1.[D2:N2]
   T = Rng.Value
   For C = 1 To UBound(T, 2): V = T(1, C)
      If VarType(V) = vbString And IsDate(V) Then T(1, C) = CDate(V)
      Next C
   Rng.Value = T
   End Sub

Remarque: si ça devait redevenir un tableau vous ne pourriez pas garder les Date dans l'entête, ce seront obligatoirement des String. Dans ce cas c'est la date à chercher qu'il faudrait convertir en String pour pouvoir l'y trouver.

eric72 · 1 Septembre 2023

Dranreb à dit:
Bonjour.

VB:

Sub Test() Dim Rng As Range, T(), C&, V Set Rng = Feuil1.[D2:N2] T = Rng.Value For C = 1 To UBound(T, 2): V = T(1, C) If VarType(V) = vbString And IsDate(V) Then T(1, C) = CDate(V) Next C Rng.Value = T End Sub

Remarque: si ça devait redevenir un tableau vous ne pourriez pas garder les Date dans l'entête, ce seront obligatoirement des String. Dans ce cas c'est la date à chercher qu'il faudrait convertir en String pour pouvoir l'y trouver.

Bonjour Dranreb,
C'est génial exactement ce que je voulais, simple, rapide et efficace
Un grand MERCI pour ce gros coup de main
Bonne soirée
Eric

Microsoft 365 Convertir en -tete tableau en date

eric72

XLDnaute Accro

Dranreb

vgendron

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

mapomme

XLDnaute Barbatruc

eric72

XLDnaute Accro

Pièces jointes

vgendron

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

eric72

XLDnaute Accro

Discussions similaires