chris6999
XLDnaute Impliqué
Bonjour
Avec l'aide du FORUM j'ai créé une macro qui permet d'alimenter les cellules d'une fiche (en feuille 2) à partir des valeurs saisies sur les lignes de ma base de données en feuille 1.
Cette macro lance automatiqument l'impression de la fiche .
Le lancement de la macro se fait par double clic sur les cellules de la colonnes L.
Ainsi lorsque je double clique sur L7, la valeur "D" apparait dans ma colonne et incrémente le numéro de ligne dans la cellule D1 de la feuille 2 "fiche" (les cellules de la fiche sont alimentées à partir du numéro de ligne et de la formule INDIRECT.
Voici cette macro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("L7:L10000")) Is Nothing Then Exit Sub
If Target.Offset(0, -10).Value = "" Then Exit Sub
If Target.Value <> "" Then MsgBox "Ce document a déjà été imprimé. Cliquer sur OK pour éditer une copie": Cancel = True: Exit Sub
Sheets("Fiche de Suivi").Range("D1").Value = Target.Row
Target.Value = "D"
Sheets("Fiche de Suivi").PrintOut
Cancel = True
End Sub
Ce que je souhaiterais modifier :
Ne pas pouvoir afficher la valeur "D" sur plusieurs lignes en même temps. Ex si j'ai déjà imprimé la fiche par double clic dans D7, lorsque je double clique en D8, la valeur D disparaît de D7.
Plutôt que de lancer une impression automatique je souhaiterais pouvoir accéder à la fénêtre d'impression (par exemple pour choisir une imprimante ou choisir des paramètres d'impression).
Si vous avez une idée de la manière de modifier cette macro je suis preneuse. J'ai essayé pleins de choses mais ça ne fonctionne pas.
Merci d'avance
Cordialement
Avec l'aide du FORUM j'ai créé une macro qui permet d'alimenter les cellules d'une fiche (en feuille 2) à partir des valeurs saisies sur les lignes de ma base de données en feuille 1.
Cette macro lance automatiqument l'impression de la fiche .
Le lancement de la macro se fait par double clic sur les cellules de la colonnes L.
Ainsi lorsque je double clique sur L7, la valeur "D" apparait dans ma colonne et incrémente le numéro de ligne dans la cellule D1 de la feuille 2 "fiche" (les cellules de la fiche sont alimentées à partir du numéro de ligne et de la formule INDIRECT.
Voici cette macro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("L7:L10000")) Is Nothing Then Exit Sub
If Target.Offset(0, -10).Value = "" Then Exit Sub
If Target.Value <> "" Then MsgBox "Ce document a déjà été imprimé. Cliquer sur OK pour éditer une copie": Cancel = True: Exit Sub
Sheets("Fiche de Suivi").Range("D1").Value = Target.Row
Target.Value = "D"
Sheets("Fiche de Suivi").PrintOut
Cancel = True
End Sub
Ce que je souhaiterais modifier :
Ne pas pouvoir afficher la valeur "D" sur plusieurs lignes en même temps. Ex si j'ai déjà imprimé la fiche par double clic dans D7, lorsque je double clique en D8, la valeur D disparaît de D7.
Plutôt que de lancer une impression automatique je souhaiterais pouvoir accéder à la fénêtre d'impression (par exemple pour choisir une imprimante ou choisir des paramètres d'impression).
Si vous avez une idée de la manière de modifier cette macro je suis preneuse. J'ai essayé pleins de choses mais ça ne fonctionne pas.
Merci d'avance
Cordialement