Problème de date

[jero]

Bonjour,

Après de vaines recherches sur le net et bien entendu pas très calé en vba je me décide à me retourner vers vous car je ne sais comment faire pour résoudre mon souci
En fait je possède un classeur excel du type ci joint (feuille1)et je souhaiterai par l'utilisation d'une macro obtenir le résultat correspondant à la feuille2 de ce classeur.

Donc pour commencer incrémenter un numéro automatiquement et garder le dernier numéro utilisé puis je pensais demultiplier les lignes en fonction de la date du nombre de la différence de jour entre les deux dates.

D'avance un grand merci à vous pour votre aide.

 

[PMO2]

Re : Problème de date

Bonjour,

Essayez avec le code suivant à copier dans un module standard et en ayant adapter à votre usage la constante cernée par des ###

'### Constante à adapter (nom de la feuille source) ###
Const SOURCE As String = "Feuil1"
'######################################################

Sub IncrementeDemultiplie()
Dim S As Worksheet
Dim R As Range
Dim var
Dim T()
Dim i&
Dim j&
Dim k&
Set S = Sheets(SOURCE)
Set R = S.[a1].CurrentRegion
var = R
For i& = 1 To UBound(var, 1)
  For k& = var(i&, 3) To var(i&, 4)
    j& = j& + 1
    ReDim Preserve T(1 To 5, 1 To j&)
    T(1, j&) = i&
    T(2, j&) = var(i&, 1)
    T(3, j&) = var(i&, 2)
    T(4, j&) = k&
    T(5, j&) = k&
  Next k&
Next i&
Set S = Sheets.Add(after:=Sheets(Sheets.Count))
Set R = S.Range(Cells(1, 1), Cells(UBound(T, 2), UBound(T, 1)))
R = Application.WorksheetFunction.Transpose(T)
Set R = S.Range(Cells(1, 4), Cells(UBound(T, 2), 5))
R.NumberFormat = "m/d/yyyy"
End Sub

Cordialement.

PMO
Patrick Morange

 

[pierrejean]

Re : Problème de date

bonjour jero

Vois si cela te convient (resultat en Feuill3 , la feuil2 etant conservée pour controle)

Edit: bing
Salut PMO2

 

[jero]

Re : Problème de date

Bonjour,

Un grand merci à vous deux... Excusez moi de cette réponse un peu tardive mais congés de la toussaint oblige je n'ai pu me pencher plus tôt sur mon problème mais maintenant j'ai pu le faire et je suis super ravi de ce que vous m'avez proposer et j'ai donc conservé la solution de Pierrejean parce qu'elle me paraissait plus adapté et surtout plus facilement modifiable pour un novice comme moi...

J'aurais encore une petite question si je peux me permettre, à savoir dans une macro j'ai installé un filtre automatique mais je ne sais pas quel critère je dois mettre pour sélectionné tous les dates avant celle du jour,

Sheets("bd_****").Range("A1").AutoFilter Field:=7, Criteria1:=(Date - 1)
Sheets("bd_****").Range("A1").AutoFilter Field:=9, Criteria1:=""

A la place de "date-1".

Et encore un grand merci à vous.