EXCEL RE MACRO DATE à DATE

je dirais que ton affaire n'est pas claire.... :-(

Dim a As Integer
Dim b As Long

b = numof_crea
a = 0
Do
a = a + 1
Loop Until Application.Cells(a, 1) = b

Cells(a, 1).Value = b ' tu parcours les cellules jusqu'à trouver une valeur de b
Cells(a, 2).Value = datedepose ' pourquoi l'écrire tu l'as trouvé
Cells(a, 3).Value = dateretour ' une date ou un variant
Cells(a, 3).Select ' on sélectionne la cellule

Dim datesuite As Date, depose, retour, x ' là je suis pas sur que ça marche dépose retoue et x sont des variant car non défini et tu devrais les mettre au début ... plus lisible

depose = datedepose ' il y a quoi dans dépose une date
retour = dateretour ' copie de variable

nbjours = retour - depose ' je veux bien

ActiveCell.Offset(0, 1) = depose

For x = Cells(a, 4) To nbjours ' tiens là c'est bizzard... pour x = valeur de la cellule (a,4) donc une date à un nombre de jour....datesuite = Cells(a, x).Value + 1
Cells(a, x + 1).Value = datesuite
Next x

je pense qu'il faut que tu expliques mieux.... pour avoir de l'aide.

A+

je crois qu'il y a eu un bug dans le serveur.
je t'ai répondu mais je vois pas le message

je reprend.....

Dim a As Integer
Dim b As Long

b = numof_crea
a = 0
Do
a = a + 1
Loop Until Application.Cells(a, 1) = b tu boucles jusqu'à ce que tu trouves la valeur...

Cells(a, 1).Value = b ' si tu a trouvé la valeur ...pourquoi l'écrire?Cells(a, 2).Value = datedepose ' là tu met une date
Cells(a, 3).Value = dateretour ' là une autre date
Cells(a, 3).Select '.... tu sélectionnes

Dim datesuite As Date, depose, retour, x ' ça c'est pas bien ... met le au début et écris sur 2 lignes
jesuis même pas sur que ça marche....
depose = datedepose ' une date
retour = dateretour ' une date
nbjours = retour - depose ( différence de date je veux bien)

ActiveCell.Offset(0, 1) = depose ' tu écris une date ou = datedépose

For x = Cells(a, 4) To nbjours ' pour x= une date à un nombre de jour ?????datesuite = Cells(a, x).Value + 1
Cells(a, x + 1).Value = datesuite
Next x

explique un peu ton code, ce n'est pas clair ( du moins pour moi).

A+

ouai il y a eu un bug. .. .je vais te remettre le code en essayant de répondre à tes questions mais si tu va voir le topic dont j'ai mis l'adresse tu comprendra peut etre mieux.... mais je tente quand même de t'eclairer dans pas longtemps

Je reprend :

j’ai un userform (crea) dans lequel j’ai 2 DTPicker (datedepose et dateretour),une combobox (numof_crea), dans les 3 premières colonnes j’ai 3 champs : Code pour Colonne « A » , Date depose « B », date retour « C »

1. Private Sub crea_Click()

2. Dim a As Integer
3. Dim b As Long
4. b = numof_crea
5. a = 0
6. Do
7. a = a + 1
8. Loop Until Application.Cells(a, 1) = b ‘ je cherche mon code dans colonne “a”

9. Cells(a, 1).Value = b ‘ cette ligne sert en faite à rien pour l’instant je pense
10. Cells(a, 2).Value = datedepose ‘ là j’inscrit la valeur de date depose dans 2° colo à la ligne trouvé par ma boucle

11. Cells(a, 3).Value = dateretour ‘ idem que ligne 10 mais pour dateretour

12. Cells(a, 3).Select ‘ je selectionne une cellule pour pouvoir jouer sur activecell.offset au besoin

13. Dim datesuite As Date, depose As Date, retour As Date, x As Integer, nbjours As Integer ‘ là je déclare mes variable que j’avais effectivement oublié de bien déclarer

14. depose = datedepose ‘ ca c’est pour avoir moins à écrire à chaque fois
15. retour = dateretour ‘ idem

16. nbjours = retour – depose ‘ je calcule le nombre de jour entre mes 2 dates
17. ActiveCell.Offset(0, 1) = depose ‘ j’affiche ma datedepose dans la première cellule à droite de celle sélectionnée précédemment (colo 4)

18. For x = 1 To nbjours ‘ là en faite je voudrai à partir de la cellule ou je vien d’inscrire depose afficher chaque jour calculés à la ligne 16

19. datesuite = Cells(a, x).Value + 1
20. Cells(a, x + 1).Value = datesuite
21. Next x

22. With Range(Cells(a, 1), Cells(a, nbjours + 1)) ‘ ici je formate les cellule ou une date s’est inscrite
23. .Borders.LineStyle = xlContinuous
24. .Interior.ColorIndex = 15
25. .NumberFormat = "ddd-dd/mm/yy"
26. .Font.Bold = True
27. End With

28. Unload Creasupp
29. End Sub

Est-ce plus clair pour toi ?

ah oui et pour des code qui t'ont parus bizarre c'est par ce que je suis parti du code que m@rina m'a fait vendredi dernier et que j'ai tenté d'adapter et à force de faire des test euuuh ben je suis arrivé donc à cette mayonnaise d'où le For To d'une date à un entier ce qui ej le reconnai après réflexion ne peut pas du tout marcher lol

je te propose ça

Sub test()

Dim a As Integer
Dim b As Long

Dim datesuite As Date
Dim depose As Date
Dim retour As Date
Dim x As Integer

'pour le test je force les variables
'***********************************

b = 4
datedepose = CDate(Format("18/09/2009", "dd/mm/yyyy"))
dateretour = CDate(Format("22/9/2009", "dd/mm/yyyy"))
'en A6 je mets 4
'b = numof_crea
'****************************************

a = 0
Do
a = a + 1
Loop Until Application.Cells(a, 1) = b

Cells(a, 1).Value = b
Cells(a, 2).Value = datedepose
Cells(a, 3).Value = dateretour
Cells(a, 3).Select

depose = datedepose
retour = dateretour

nbjours = retour - depose ' j'ai 4

ActiveCell.Offset(0, 1) = depose

For x = 1 To nbjours
datesuite = Cells(a, x + 1).Value + 1 ' je te conseille de partir toujours de la même référrence
Cells(a, x + 4).Value = datesuite ' les dates sont en lignes...
Next x

End Sub

re euuh que veux-tu dire par toujours utiliser la même référence?

voilà mon code après avoir ajouté le mit le tiens :

Private Sub crea_Click()

Dim a As Integer
Dim b As Long

Dim datesuite As Date
Dim depose As Date
Dim retour As Date
Dim x As Integer

'pour le test je force les variables
'***********************************

'b = 4
'datedepose = CDate(Format("18/09/2009", "dd/mm/yyyy"))
'dateretour = CDate(Format("22/9/2009", "dd/mm/yyyy"))
'en A6 je mets 4
'b = numof_crea
'****************************************
b = numof_crea
a = 0
Do
a = a + 1
Loop Until Application.Cells(a, 1) = b

Cells(a, 1).Value = b
Cells(a, 2).Value = codearticle
Cells(a, 3).Value = datedepose
Cells(a, 4).Value = dateretour
Cells(a, 4).Select

depose = datedepose
retour = dateretour

nbjours = retour - depose ' j'ai 4

ActiveCell.Offset(0, 1) = depose

For x = 1 To nbjours
datesuite = Cells(a, x + 1).Value + 1 ' je te conseille de partir toujours de la même référrence
Cells(a, x + 4).Value = datesuite ' les dates sont en lignes...
Next x

Unload Creasupp
End Sub

J'ai changé le forcage des variable j'espère ne pas m'etre trompé j'ai aussi juste ajouter une ligne de code car j'ai ajouté une colonne, donc là la macro se bloc sur la ligne datesuite dans le For To Next message= imcompatibilité de type .. . .

Merci pour le coup de main . . . .

Private Sub crea_Click()

Dim a As Integer
Dim b As Long

Dim datesuite As Date
Dim depose As Date
Dim retour As Date
Dim x As Integer

'pour le test je force les variables
'***********************************

'b = 4
'datedepose = CDate(Format("18/09/2009", "dd/mm/yyyy"))
'dateretour = CDate(Format("22/9/2009", "dd/mm/yyyy"))
'en A6 je mets 4
'b = numof_crea
'****************************************
b = numof_crea
a = 0
Do
a = a + 1
Loop Until Application.Cells(a, 1) = b

Cells(a, 1).Value = b
Cells(a, 2).Value = codearticle
Cells(a, 3).Value = datedepose
Cells(a, 4).Value = dateretour
Cells(a, 4).Select

depose = datedepose
retour = dateretour

nbjours = retour - depose ' j'ai 4

ActiveCell.Offset(0, 1) = depose

For x = 1 To nbjours
datesuite = CDate(Cells(a, x + 4).Value) + 1 ' je te conseille de partir du début de la ligne Axx : sur cette ligne tu as écrit 5 infos et c'est cette dernière infos que tu récupères
Cells(a, x + 5).Value = datesuite ' les dates sont en lignes... donc ici x+5 pour avoir le dernier
Next x

Unload Creasupp
End Sub

tu testes et tu dis!
R

Salut,

Super je viens de tester ça marche nickel Merci beaucoup par contre j'y ai rajouté mon code de mise en forme des cellules de date et euuh ben j'arrive pas à l'adapter au tiens.....??? ça donne ça:

Private Sub crea_Click()

Dim a As Integer
Dim b As Long

Dim datesuite As Date
Dim depose As Date
Dim retour As Date
Dim x As Integer

b = numof_crea
a = 0
Do
a = a + 1
Loop Until Application.Cells(a, 1) = b

Cells(a, 1).Value = b
Cells(a, 2).Value = codearticle
Cells(a, 3).Value = datedepose
Cells(a, 4).Value = dateretour
Cells(a, 4).Select

depose = datedepose
retour = dateretour

nbjours = retour - depose

ActiveCell.Offset(0, 1) = depose

For x = 1 To nbjours
datesuite = CDate(Cells(a, x + 4).Value) + 1 ' je te conseille de partir du début de la ligne Axx : sur cette ligne tu as écrit 5 infos et c'est cette dernière infos que tu récupères
Cells(a, x + 5).Value = datesuite ' les dates sont en lignes... donc ici x+5 pour avoir le dernier
Next x

With Range(Cells(a, x + 4), Cells(a, nbjours + 1)) ' je sais que c'est sur cette ligne que je dois changé des valeurs ...mais lesquelles????.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 15
.NumberFormat = "ddd-dd/mm/yy"
.Font.Bold = True
End With

Unload Creasupp
End Sub

Merci encore trop cool

With Range(Cells(a, x + 4), Cells(a, nbjours + 1))

le problème viens de là

quand tu passe dans cette boucle Qu'y-a-t-il dans X et dans nbjours

ajoute un espion pour suivre la valeur de tes variables

avec debogage ajouter un espion cela te renseignera sur x et nbjours
en voyant la valeur tu comprendras

cells(ligne,colonne) et tu as cells(a, x) donc a est la ligne et xla variable colonne

A+

ok je viens de faire le debogage donc la valuer du x n'est pas bonne elle est de 8 au lieu de 5 et nbjours de 7 mais ne met en forme que 5 cellule??? Mais euuh je ne comprend pas ce que je dois changer pour donner les bonnes valeurs au variables....et euuh je ne fais pas d'erreur quand je met 2 variables en parenthèse pour cibler une cellule cela peut se faire au moin?

Bon j'ai réussi à faire partir ma mise en forme de là ou je veux comme ceci:

With Range(Cells(a, 5), Cells(a, nbjours))

la valuer de nbjours est 7 mais seulement 3 case se mettent en forme si je met le + 1 4 bien entendu mais le but c'est qu'il determine lui meme de combien il doit incrementer.....????

x=8 car en sortant de la boucle for précedente il est à 8
ton point de départ c'est la 5 eme colonne à laposition de ligne a

nbjours = 7
et toi ce que tu veux c'est qu'il répète la mise en forme 7 fois

tu fais
x=5

With Range(Cells(a, x ), Cells(a, nbjours + x + 1)) ' ici le +1 te fais la 13ème colonne

Parfait en enlevant le +1 qui en faite ici rajoute 1 à 7 et donc est de trop lol mais super topic résolue 100%

Merci à toi Bidouilleu_R et à bientot peut etre car j'ai encore plein d'autres question à venir. . ..

MERCI BEAUCOUP