VBA Format date non reconnu

Version imprimable

10/11/2020, 11h26
Quiro

VBA Format date non reconnu

Bonjour a tous,

Je reviens vers vous car vous m'avez parfaitement aide les fois precedentes.
Alors voila mon soucis :
J'exporte une liste de donnee d'un onglet a un autre (de maniere basique avec une macro)
Le probleme est que j'ai 2 colonnes ou j'ai des dates sur lesquelles j'effectue des calculs.
Excel ne reconnait pas ces valeurs comme des dates et du coup ma macro m'affiche une erreur.
En double cliquant sur chaque cellule puis en cliquant sur entrer, les valeurs se transforment par magie en format date et mes calculs + macro se lancent bien

j'ai cherche un peu de partout sans succes.
On me propose 2 solutions pas possible avec mon fichier : copier coller les valeurs sur une autre colonne et supprimer les anciennes ou creer un colonne on l'on multiplirait les valeurs par 1.
Evidemment ca marche mais ce n'est pas ce que je veux.
1 autre solution est proposee, c'est de changer le format avec vba mais ca ne marche pas.

Avez vous des idees sur le probleme? pouvez vous m'eclaircir sur le sujet svp.
PS : je suis debutant sur VBA
10/11/2020, 11h45
cb_60

Bonjour
Et tu ne pourrais pas dans la macro, multiplier par UN?
10/11/2020, 11h47
Philippe Tulliez

Bonjour,

Citation:

ou creer un colonne on l'on multiplirait les valeurs par 1.

Basé sur cette idée, il n'est pas obligatoire de créer une nouvelle colonne. Il suffit de copier une cellule contenant le chiffre 1 et d'effectuer après sélection de la plage de cellules contenant les dates un Collage Spécial avec opération de multiplication

Vraisemblablement cette plage de cellules doit être au format Texte. Comment avez-vous copié la plage en VBA ?

Merci pour vos reponses.
Le probleme c'est que l'onglet est cree avec ma macro. Je ne sais pas a quel moment faire la multiplication
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Dim Nom As String, i As Byte, verif As Boolean
 
recom:
    verif = False
    Nom = InputBox("Service Call number of your intervention") ', "Create a Gantt Chart")
 
        If Application.CountIf(Range("R3:R20000"), Nom) <= 1 Then
                If verif = False Then
                        MsgBox "Service Call doesn't exist!"
                    GoTo recom
                End If
        End If
 
        If Nom = "" Then Exit Sub
                For i = 1 To Sheets.count
                       If Sheets(i).Name = Nom Then verif = True
                Next
                       If verif = True Then
                           MsgBox "Gantt Chart for SC " & Nom & " already created!"
                    GoTo recom
        End If
 
    Sheets.Add(after:=Sheets(Sheets.count)).Name = Nom
 
' creer le tableau
    Dim plage As Range
    Dim Cel As Range
    Dim Tbl() As String
    Dim X As Integer
 
    With Worksheets("Planning"): Set plage = .Range(.Cells(4, 18), .Cells(.Rows.count, 18).End(xlUp)): End With
 
    For Each Cel In plage
 
        If Cel.Value = Nom Then
 
            X = X + 1: ReDim Preserve Tbl(1 To 8, 1 To X)
            Tbl(1, X) = Cel.Offset(, -11).Value
            Tbl(2, X) = Cel.Offset(, -10).Value
            Tbl(3, X) = Cel.Offset(, -7).Value
            Tbl(4, X) = Cel.Offset(, -5).Value
            Tbl(5, X) = Cel.Offset(, -4).Value
            Tbl(6, X) = Cel.Offset(, -3).Value
            Tbl(7, X) = Cel.Offset(, -2).Value
            Tbl(8, X) = Cel.Offset(, -1).Value
 
        End If
 
    Next Cel
 
    With Worksheets(Nom): .Range(.Cells(8, 4), .Cells(UBound(Tbl, 2) + 7, UBound(Tbl, 1) + 3)).Value = Application.Transpose(Tbl()):
 
    End With

10/11/2020, 13h55
Patrice740

Bonjour le Fil

Citation:

Envoyé par Philippe Tulliez

Il suffit de copier une cellule contenant le chiffre 1 et d'effectuer après sélection de la plage de cellules contenant les dates un Collage Spécial avec opération de multiplication

Une autre version qui me semble plus simple (ça évite d'écrire dans une cellule) :
Sélectionner une cellule vide / Copier / Sélectionner la plage à convertir / Collage spécial avec Addition
10/11/2020, 14h41
Quiro

Merci pour la reponse Patrice,

Sélectionner une cellule vide / Copier / Sélectionner la plage à convertir / Collage spécial avec Addition[/QUOTE]

Est ce possible de faire ca via ma macro?
10/11/2020, 14h44
Quiro

Salut Philippe, merci pour la reponse

Vraisemblablement cette plage de cellules doit être au format Texte. Comment avez-vous copié la plage en VBA ?[/QUOTE]

Oui c'est au format texte. Je ne comprend vraiment pas pourquoi excel n'arrive pas a reconnaitre la date
10/11/2020, 14h49
Philippe Tulliez

Bonjour,

Citation:

Oui c'est au format texte. Je ne comprend vraiment pas pourquoi excel n'arrive pas a reconnaitre la date

Si la plage source est correctement formatée, il ne doit pas y avoir de soucis mais à la lecture de votre code, je constate que vous effectuez la copie via une variable tableau nommée Tbl que vous déclarez comme une chaine de caractères (Dim Tbl() As String). Il ne faut pas chercher plus loin.
10/11/2020, 14h52
Philippe Tulliez

Bonjour Patrice,
:plusser: Effectivement le collage spécial par l'addition de la valeur d'une cellule vide est bien plus intéressante. Je n'y avais jamais pensé :oops:
10/11/2020, 15h22
Quiro
Merci pour les reponses, en effet j'ai pas fait attention a la variable.
Par contre le collage speciale par l'addition je n'arrive pas a le faire marcher.
Rien ne change si je passe par VBA mais manuellement ca fonctionne
Code:

1 2 3 4 Sheets(Nom).Range("A1").Copy Range("I8:J" & DL).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False Selection.NumberFormat = "dd/mm/yy"
10/11/2020, 15h57
Philippe Tulliez

Bonjour,
A partir du moment ou la variable table (Tbl) sera déclarée comme Variant, la copie devrait se faire correctement et donc il n'y aura plus de raison d'effectuer le collage spécial
10/11/2020, 17h16
Pierre Fauconnier

Salut.

Perso, la question que je me pose, c'est pourquoi passer par un tableau alimenté avec une boucle? Tu tagues 2019 donc je pense que tu pourrais t'orienter vers Power Query. Si tu veux vraiment passer par du VBA, il faudrait comprendre pourquoi tu passes par du code de ce genre? A priori, les tableaux structurés (en Excel comme en VBA), facilitent les traitements de ce genre.

Que cherches-tu à réaliser? Pourrais-tu l'expliquer en français (sans jargon VBA) avec l'une ou l'autre copie d'écran?

Citation:

Envoyé par Quiro

Par contre le collage speciale par l'addition je n'arrive pas a le faire marcher.

Pas besoin, il suffit de faire comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub Test()
Dim rngSource As Range
Dim celCible As Range
   Set rngSource = Worksheets("Feuil1").Range("B2:B9")
   Set celCible = Worksheets("Feuil2").Range("C5")
   With celCible.Resize(rngSource.Rows.Count, rngSource.Columns.Count)
     .NumberFormat = "dd/mm/yyyy"
     .Value = rngSource.Value
   End With
End Sub

Merci pour le nombre de reponses messieurs, j'apprecie votre aide.
Je ne connaissais rien a VBA il y'a a peine plus d'un an et grace a vous je m'ameliore de jour en jour

Citation:

Envoyé par Pierre Fauconnier

Salut.
Que cherches-tu à réaliser? Pourrais-tu l'expliquer en français (sans jargon VBA) avec l'une ou l'autre copie d'écran?

Je cree un fichier de suivi d'intervention pour mon equipe. Le but c'est qu'en lancant la macro en rentre le numero de l'intervention, cela cree un nouvel onglet avec un gantt chart afin.
Une fois les donnees recuperee, et collee dans le nouvel onglet, je recupere la date la plus proche - 1 jour pour en faire ma 1ere colonne du gantt et pareil pour la date la plus eloignee pour le dernier jour.
Jusqu'a present mes gars font le gantt de facon manuelle mais comme j'ai quelques recalcitrant dans mon equipe je souhaite automatiser le tout pour leur faciliter la tache.

@Patrice, mon rngsource c'est 2 colonnes d'une plage variable (qui va dependre du numero d'intervention : chaque intervertion a un nombre de technicien different)

@Philippe, En passant par la variable variant ca ne passe pas non plus. Ca bloque toujours a ActiveCell.Value = SmallD
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim SmallD As Date Dim BigD As Date Dim plage1 As Range Dim plage2 As Range Dim DL As Long DL = Range("I" & Rows.count).End(xlUp).Row Set plage1 = Range("I8:I" & DL) Set plage2 = Range("J8:J" & DL) SmallD = Application.WorksheetFunction.Min(plage1) - 1 BigD = Application.WorksheetFunction.Max(plage2) + 2 Cells(7, 12).Select Do While SmallD <= BigD ActiveCell.Value = SmallD ActiveCell.Offset(0, 1).Select SmallD = DateAdd("d", 1, SmallD) Loop

11/11/2020, 09h21
Philippe Tulliez

Bonjour,
Une image partielle des données "source" anonymisées et une autre des données "cible" attendues seraient un plus.
Difficile d'apporter une réponse pertinente sans cela.

[EDIT]

Citation:

Ca bloque toujours a ActiveCell.Value = SmallD

Qu'est-ce qui bloque ? Une erreur ? si oui laquelle ?
11/11/2020, 11h02
Quiro

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Une image partielle des données "source" anonymisées et une autre des données "cible" attendues seraient un plus.
Difficile d'apporter une réponse pertinente sans cela.

[EDIT]

Qu'est-ce qui bloque ? Une erreur ? si oui laquelle ?

Erreur d'execution '1004' : erreur definie par l'appli ou par l'objet

Si par contre je vais dans l'onglet qui a ete cree et que je double click sur les cases ou j'ai une date je peux continuer ma macro
11/11/2020, 11h19
Quiro
Je pense avoir trouve !!!!

J'ai ajoute le bout de code suivant dans la macro juste apres avoir cree mon onglet :
Code:

1 2 3 4 5 With Range("I8:J" & DL) Tbl = .Value .NumberFormat = "" .FormulaLocal = Tbl End With
C'est grace a vous messieurs car vous m'avez guide. Enorme merci!

Desolez pour les fautes d'orthographe. Etant dans un pays anglo saxon j'ai un clavier QWERTY.