Discussion :

[casefayere]

là, tu m'étonnes car j'ai testé, l'as-tu fait sur mon exemplaire ? car je ne vois pas d'erreur "Dl" étant déclaré en "Range" et tête de module

[Nathanaël.]

oui j'ai repris le fichier dispo et n'ai rien modifié.
Tous mes classeurs étaient fermés.
Ci joint un visuel.

[casefayere]

Sur quelle version Excel et quel système (Windows, Mac) travailles-tu ?
car je viens de réessayer sans problème, je dirais même impeccable

Je voulais même envoyer une nouvelle version où le Bouton "Valider" exporte toutes les saisies "mieux gérable en cas d'erreur de saisie

Dis-moi tout car ça m'embête beaucoup

[Nathanaël.]

EXCEL10 et windows server 2k8

[casefayere]

Il ne devrait pas y avoir de probleme, il faudrait essayer mon fichier sur un autre ordi.

En attendant, je joins l'autre version où tout passe par le bouton "Valider", essayes celui-là

[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.

[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