Discussion :

[Nathanaël.]

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.

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Dl as range

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

[Nathanaël.]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

car tu ne le dis pas

[Nathanaël.]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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.

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

[Nathanaël.]

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