DTPicker, dates qui inversent les mois et les jours

MERCI,

Encore un PB je pense que cela provient de mon PC :
Je regarde chez moi sur mon ordi perso.
En tout cas merci d'avoir pris le temps, c'est fort agréable.
J'en profite : pourriez vous me conseiller un ouvrage, un site ou une methode pour apprendre à programmer correctement ?
Bien cordialement.
Pièce jointe 164336

As-tu bien tout en haut du module de l'usf

Code:

---

Dim Dl as range

---

parce qu'il n'y a pas plus simple comme code

Bonjour CASEFAYERE,
Pourriez vous m'aider dans un code ?
=(A2)
imprimer
=(A3) 'decaller d'une cellule sur la droite
imprimer
=(A4) 'decaller d'une cellule sur la droite
imprimer
pour n fois

J'ai essayé cela mais marche pas ...

Code:

---

1 2 3

ActiveCell.FormulaR1C1 = "=RC[ActiveCell.Offset(0, 1).Select]" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False

---

Moi, je veux bien tout ce que tu veux dans la limite de mes connaissances, mais il faut que tu t'expliques mieux que ça, par ailleurs as-tu résolu ce probleme

Code:

---

Set Dl = .Range("A" & .Rows.Count).End(xlUp)(2, 1)

---

car tu ne le dis pas

Alors sur mon PC perso XL2007, marche pas le DTPICKER n'est pas présent et beaucoup de ligne de code ne passe pas ...
J'ai dû mettre mon projet de coté pour le moment GRRR.

Alors je vous explique mon problème :
J'ai fait un tableau EXCEL il y a quelques temps 2 feuilles de calcul.
La première feuille saisie en ligne.
La seconde feuille : mise en forme avec une formule de recherche qui fait apparaitre toutes les infos saisies sur la 1ère feuille.
Le problème est qu'il faut imprimer chaque feuille 1 à 1 pour environ 300 saisie.
Donc je voudrai faire défiler toutes les valeurs avec une impression entre chaque ...

Code:

---

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

ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C" Range("A1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[1]" Range("A1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[2]" Range("A1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[3]" Range("A1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[4]" Range("A1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False

---

Citation:

---

Alors sur mon PC perso XL2007, marche pas le DTPICKER n'est pas présent et beaucoup de ligne de code ne passe pas ...

---

eh oui, il faut regarder les discussions sur ce sujet car je ne ferai pas tout.

Citation:

---

J'ai fait un tableau EXCEL il y a quelques temps 2 feuilles de calcul.
La première feuille saisie en ligne.
La seconde feuille : mise en forme avec une formule de recherche qui fait apparaitre toutes les infos saisies sur la 1ère feuille.
Le problème est qu'il faut imprimer chaque feuille 1 à 1 pour environ 300 saisie.
Donc je voudrai faire défiler toutes les valeurs avec une impression entre chaque ...

---

Ecoutes, nous sommes le weekend, je ne veux pas me prendre la tête, le mieux est d'avoir ton fichier (avec données bidon) et me laisser réfléchir tranquillement, j'espère que tu as le temps, et si tu peux, expliques avec un maximum de renseignements ta finalité, 300 saisies à imprimer ?, 300 feuilles ?, perso si je te propose quelque-chose , je ne testerai pas (l'encre coûte cher).
bon courage

ok je comprends, Merci quand même !
Bon Week End !