Problème pour compléter un tableau

Bonjour,

Je tente de compléter un tableau vba à l'aide du code ci dessous :

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

Sub Tablo()   Dim an%, nbj%, i%, c%, dateDébut As Date, dep As Range, mois, jour As Long Dim pâques, Lundi_de_Pâques, Ascension, Pentecôte As Variant Dim saisie, Jour_de_noël As Variant Dim Longue, Large As Variant Cells.Select Selection.Delete Shift:=xlUp   saisie = Application.InputBox("Saisir l'année de début du tableau ? ", "Saisie de l'année de référence", 0, 500, 500, , , 1)   If Not IsNumeric(saisie) Then Exit Sub   If saisie = False Then MsgBox "Vous n'avez rien saisi"   dateDébut = "1/5/" & saisie 'Première date   Set dep = [A1] 'Coin supérieur gauche du calendrier.     nbj = DateSerial(Year(dateDébut) + 1, Month((dateDébut)), Day(dateDébut)) - dateDébut   Dim tabdate() As Variant ReDim tabdate(nbj) Dim iii As Long For iii = LBound(tabdate, 1) To UBound(tabdate, 1) tabdate = Range(dateDébut) dateDébut = dateDébut + 1 Next Sheets("Feuil1").Activate Application.EnableEvents = False With Sheets("Feuil1") .Range("B5").Resize(UBound(tabdate, 1), UBound(tabdate, 2)) = tabdate End With Application.EnableEvents = True

---

Cela "plante" sur l'instruction tabdate = Range(dateDébut)

Savez vous pourquoi et pouvez vous m'expliquer s'il vous plaît ?

D'avance merci.

Philippe

Bonjour,
Vous avez dimensionné un tableau à 1 dimension
Or dans la boucle vouse mettez tabdate = ....

Code:

---

1 2 3

For iii = LBound(tabdate, 1) To UBound(tabdate, 1) tabdate = Range(dateDébut) dateDébut = dateDébut + 1

---

Essayez
tabdate(iii)=dateDébut

Mais alors une nouvelle erreur apparaît là

Code:

---

1 2 3

With Sheets("Feuil1") .Range("B5").Resize(UBound(tabdate, 1), UBound(tabdate, 2)) = tabdate End With

---

car le tableau est à une dimension et vous évoquez une deuxième dimension

Code:

---

UBound(tabdate, 2)

---

ce qui est hors indice évidemment

Merci pour votre réponse.

Toutefois, j'avais aussi essayé d'ajouter la variable "iii" à tabdate mais cela donne Pièce jointe 161581

Je pense que range attend autre chose qu'une variable et je bloque.

Cordialement.

Philippe


En fait, je viens de trouver et c'était tout simple. il suffit d'enlever le range en tapant :

Code:

---

tabdate(iii) = dateDébut

---

et l'affaire est jouée !

En revanche, il faut que je revois ma copie sur la date puisqu'il me recopie 365 fois (dans la cas ou ma variable dateDébut est 2014 ) le 1/5/2014 sans tenir compte de l'instruction

Code:

---

dateDébut = dateDébut + 1

---

qui devrait avancer la date d'un jour.

Cordialement.

Philippe

Re bonsoir,

J'ai avancé et cela ne plante plus. En revanche, le résultat obtenu n'est pas celui espéré :

avec le code suivant :

Code:

---

Sheets("Feuil1").Range(Cells(1, 1), Cells(UBound(tabdate), 1)).Value = Application.WorksheetFunction.Transpose(tabdate)

---

J'ai bien quelque chose qui se copie sur ma "Feuil1" mais pas ce que j'espère.

En effet, au lieu de me copier la liste des dates allant du 1/5/N au 30/4/N+1, j'ai une succession de mauvaise date et de bonnes dates (voir image ci dessous) :

Pièce jointe 161593

J'ai bien vérifié dans ma fenêtre variable que "tabdate" contient les bons éléments (voir image ci-dessous):
Pièce jointe 161594

L'erreur semble séquentielle puisqu'elle ne se reproduit que sur les douze premiers jours de chaque moi.

Je vous recopie ci dessous l'ensemble de mon code pour plus de compréhension :

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

Sub Tablo()   Dim an%, nbj%, i%, c%, dateDébut As Date, dep As Range, mois, jour As Long Dim pâques, Lundi_de_Pâques, Ascension, Pentecôte As Variant Dim saisie, Jour_de_noël As Variant Dim Longue, Large As Variant Cells.Select Selection.Delete Shift:=xlUp   saisie = Application.InputBox("Saisir l'année de début du tableau ? ", "Saisie de l'année de référence", 0, 500, 500, , , 1)   If Not IsNumeric(saisie) Then Exit Sub   If saisie = False Then MsgBox "Vous n'avez rien saisi"   dateDébut = "1/5/" & saisie 'Première date   Set dep = [A1] 'Coin supérieur gauche du calendrier.     nbj = DateSerial(Year(dateDébut) + 1, Month((dateDébut)), Day(dateDébut)) - dateDébut   Dim tabdate() As Variant ReDim tabdate(nbj) Dim iii As Long For iii = LBound(tabdate, 1) To UBound(tabdate, 1) tabdate(iii) = dateDébut dateDébut = dateDébut + 1 Next Sheets("Feuil1").Activate Application.EnableEvents = False Sheets("Feuil1").Range(Cells(1, 1), Cells(UBound(tabdate), 1)).Value = Application.WorksheetFunction.Transpose(tabdate) Application.EnableEvents = True

---

Merci pour votre aide.

Cordiales salutations.

Philippe

Bonjour,

Ici, sans passer par un tableau :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Test()   Dim dateDebut As Date Dim Nbj As Long Dim Saisie   Saisie = Application.InputBox("Saisir l'année de début du tableau ? ", "Saisie de l'année de référence", 0, 500, 500, , , 1)   If Not IsNumeric(Saisie) Or Saisie = False Then Exit Sub   dateDebut = "1/5/" & Saisie 'Première date   Nbj = DateSerial(Year(dateDebut) + 1, Month((dateDebut)), Day(dateDebut)) - dateDebut   Range("A1").Value = dateDebut Range("A1").Offset(1, 0).Value = dateDebut + 1 Range("A1").AutoFill Range(Range("A1"), Range("A1").Offset(Nbj))   End Sub

---

Hervé.

Et tu peux même supprimer cette ligne :

Code:

---

1 2	Range("A1").Offset(1, 0).Value = dateDebut + 1

---

Hervé.

Bonjour et merci pour cette réponse.

Je souhaite toutefois passer par l'utilisation de tableau afin de gagner du temps de traitement (j'avais déjà réussi l'opération sans tableau mais cela dure trop longtemps).

Pour aller plus loin dans l'observation du résultat décrit dans les post plus haut, je constate que, lorsque ma macro va copier les données contenues dans mon tableau sur la "feuil1",
les douze premières valeurs mensuelles ont un format date de type MM/JJ/AAAA alors que le reste des dates du mois sont recopiées sous un format "standard".

Merci pour vos remarques et solutions.

Cordiale salutations.

Philippe

Bonjour,

pour créer la variable tableau utiliser à la place de Value la propriété Value2 !
Il faut aussi paramétrer la plage de destination au format Date …

Pour une simple copie avec format d'une plage, il est bien plus simple d'utiliser la méthode Copy …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Citation:

---

Envoyé par Marc-L

...
pour créer la variable tableau utiliser à la place de Value la propriété Value2 !

---

Je viens d'essayer et j'ai malheureusement le même résulat.

Citation:

---

Envoyé par Marc-L

Il faut aussi paramétrer la plage de destination au format Date …

---

Peux tu, s'il te plaît, me donner unr méthode pour faire ceci ?

Citation:

---

Envoyé par Marc-L

Pour une simple copie avec format d'une plage, il est bien plus simple d'utiliser la méthode Copy …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

---

Merci pour ta réponse.

Cordialement.

Philippe

La propriété Value2 ne renvoyant qu'une valeur numérique … Rien qu'en lisant l'aide VBA !

Test : à partir d'un nouveau classeur dans une feuille de calcul vierge, entrer dans la cellule A1 la valeur 41967.
(Jusque là cela devrait aller …)

Dans la cellule B1, saisir la formule de calculs =A1.
Puis paramétrer la cellule B1 au format Date, français comme anglo-saxon, peu importe …

Il y a tout ce qu'il faut dans les tutoriels de ce forum pour gérer les dates …

Re bonjour,

Je recherche de l'aide, pas de la condescendance...

Je vois que tu es développeur. Désolé mais je ne suis qu'un amateur.

Ma question de départ est de savoir pourquoi, avec le code donné, lorsque que j'ai une recopie d'un tableau, le résultat est séquentiel.

Merci quand même...

Bien cordialement.

Philippe

Bonjour.

Ce qui affecte la valeur des dates, c'est Transpose qui ré-interprète les dates du tableau en inversant jours et mois car il ne reconnaît que le format américain (mm/jj/aaaa).
Pour affecter un tableau à un range sans devoir utiliser Transpose, le tableau doit être à 2 dimensions.

Code:

---

1 2 3 4 5 6 7 8 9

ReDim tabdate(nbj, 1) 'Tableau a 2 dimensions Dim iii As Long For iii = LBound(tabdate, 1) To UBound(tabdate, 1) tabdate(iii, 0) = dateDébut dateDébut = dateDébut + 1 Next Sheets("Feuil2").Activate Application.EnableEvents = False Sheets("Feuil2").Range(Cells(1, 1), Cells(UBound(tabdate), 1)).Value = tabdate

---

Bonsoir et merci.

En appliquant votre solution, cela fonctionne parfaitement.

Si j'avais à recopier un tableau à deux dimension, faut il déclarer mon tableau "tabdate" à trois dimensions ?

Merci pour ce complément.

Bien cordialement.

Philippe :)

Citation:

---

Envoyé par PSAIMOND

Bonsoir et merci.

Si j'avais à recopier un tableau à deux dimension, faut il déclarer mon tableau "tabdate" à trois dimensions ?

---

Non. C'est toujours 2 dimensions : la première dimension indique le nombre de lignes et la seconde le nombre de colonnes.

Pour un tableau de 100 lignes et 1 colonne, la commande est
ReDim tabdate(99, 0)
car, par défaut, le premier élément du tableau est tabdate(0, 0).

Par contre, si on met en début du module

Code:

---

Option Base 1

---

le premier élément sera tabdate(1, 1) et le dimensionnement pour 100 lignes et 1 colonne sera
ReDim tabdate(100, 1)

bonjour,

Code:

---

1 2 3 4

For iii = LBound(tabdate, 1) To UBound(tabdate, 1) tabdate(iii) = Format(dateDébut, "yyyy-mm-dd") dateDébut = dateDébut + 1 Next

---

Merci Robert de nous rappeler que, faute de pouvoir utiliser le format de date américain, on peut également utiliser le format de date international (aaaa-mm-jj) qui est toujours interprété correctement par VBA.

bonjour Docmarti,
j'ai trouvé que notre ami était entre de bonne mains et qu'il ne me revenait pas de droit de commenté cette précision.