Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
Salut
avec un double clic sur b1 (à mettre dans le module de la feuille concerné) Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$1" Then Cancel = True Sheets("TaFeuille").PrintOut End If End Sub
A+ rural thierry
"cris570" a écrit dans le message de news:
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant sur une cellule nommée impression depuis une autre feuille ? Merci de m'aider ?
Salut
avec un double clic sur b1 (à mettre dans le module de la feuille concerné)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$B$1" Then
Cancel = True
Sheets("TaFeuille").PrintOut
End If
End Sub
A+
rural thierry
"cris570" <cris570@hotmail.com> a écrit dans le message de news:
ePdR3FRDFHA.2876@TK2MSFTNGP12.phx.gbl...
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant sur
une cellule nommée impression
depuis une autre feuille ?
Merci de m'aider ?
avec un double clic sur b1 (à mettre dans le module de la feuille concerné) Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$1" Then Cancel = True Sheets("TaFeuille").PrintOut End If End Sub
A+ rural thierry
"cris570" a écrit dans le message de news:
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant sur une cellule nommée impression depuis une autre feuille ? Merci de m'aider ?
cris570
Merci Thierry,
mais peux tu être plus expliquatif, car je suis un débutant Merci
Merci Thierry,
mais peux tu être plus expliquatif, car je suis un débutant
Merci
mais peux tu être plus expliquatif, car je suis un débutant Merci
ru-th
re-
pour lancer ta macro, nous utiliserons un évenement géré par excel au niveau de la feuille dans l'exemple c'est le double clic, nous aurions pu choisir l'évenement selection_change qui aurait réagit... au changment de selection de cellule
Pour y accéder, alt+f11, lance l'éditeur VBE, puis dans la fenetre prorpiété en haut à gauche double clic sur la feuille qui subira le double clic, dans la fenetre centrale, nous choisissons au lieu de "général", "worksheet" et à côté pour l'évenement déclencheur au lieu de selection_change, le BeforeDoubleClick.
Il nous reste à insèrer avant le end sub
If Target.Address = "$B$1" Then 'si la cellule où lieu le double clic est b1 alors Cancel = True 'je ne fais pas l'évenement normal 'à savoir la modification de la cellule Sheets("TaFeuille").PrintOut 'j'imprime la feuille nommé TaFeuille End If
tu adaptes et les références de ta cellule, et le nom de TaFeuille
a+ rural thierry "cris570" a écrit dans le message de news:
Merci Thierry,
mais peux tu être plus expliquatif, car je suis un débutant Merci
re-
pour lancer ta macro, nous utiliserons un évenement géré par excel au niveau
de la feuille
dans l'exemple c'est le double clic, nous aurions pu choisir l'évenement
selection_change qui aurait réagit... au changment de selection de cellule
Pour y accéder, alt+f11, lance l'éditeur VBE, puis dans la fenetre prorpiété
en haut à gauche double clic sur la feuille qui subira le double clic,
dans la fenetre centrale, nous choisissons au lieu de "général", "worksheet"
et à côté pour l'évenement déclencheur au lieu de selection_change, le
BeforeDoubleClick.
Il nous reste à insèrer avant le end sub
If Target.Address = "$B$1" Then
'si la cellule où lieu le double clic est b1 alors
Cancel = True
'je ne fais pas l'évenement normal
'à savoir la modification de la cellule
Sheets("TaFeuille").PrintOut
'j'imprime la feuille nommé TaFeuille
End If
tu adaptes et les références de ta cellule, et le nom de TaFeuille
a+
rural thierry
"cris570" <cris570@hotmail.com> a écrit dans le message de news:
eXTvMORDFHA.3824@TK2MSFTNGP10.phx.gbl...
Merci Thierry,
mais peux tu être plus expliquatif, car je suis un débutant
Merci
pour lancer ta macro, nous utiliserons un évenement géré par excel au niveau de la feuille dans l'exemple c'est le double clic, nous aurions pu choisir l'évenement selection_change qui aurait réagit... au changment de selection de cellule
Pour y accéder, alt+f11, lance l'éditeur VBE, puis dans la fenetre prorpiété en haut à gauche double clic sur la feuille qui subira le double clic, dans la fenetre centrale, nous choisissons au lieu de "général", "worksheet" et à côté pour l'évenement déclencheur au lieu de selection_change, le BeforeDoubleClick.
Il nous reste à insèrer avant le end sub
If Target.Address = "$B$1" Then 'si la cellule où lieu le double clic est b1 alors Cancel = True 'je ne fais pas l'évenement normal 'à savoir la modification de la cellule Sheets("TaFeuille").PrintOut 'j'imprime la feuille nommé TaFeuille End If
tu adaptes et les références de ta cellule, et le nom de TaFeuille
a+ rural thierry "cris570" a écrit dans le message de news:
Merci Thierry,
mais peux tu être plus expliquatif, car je suis un débutant Merci
RaMa
Bonjour
au choix Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = [impression].Address Then [a1:b6].PrintOut MsgBox "c'est parti sur l'imprimante" End If End Sub
où
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _ As Range, Cancel As Boolean) If Target.Address = [impression].Address Then Cancel = True [a1:b6].PrintOut MsgBox "c'est parti sur l'imprimante" End If End Sub
Salutations RaMa "cris570" a écrit dans le message de news:
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant sur une cellule nommée impression depuis une autre feuille ? Merci de m'aider ?
Bonjour
au choix
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = [impression].Address Then
[a1:b6].PrintOut
MsgBox "c'est parti sur l'imprimante"
End If
End Sub
où
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
If Target.Address = [impression].Address Then
Cancel = True
[a1:b6].PrintOut
MsgBox "c'est parti sur l'imprimante"
End If
End Sub
Salutations
RaMa
"cris570" <cris570@hotmail.com> a écrit dans le message de news:
ePdR3FRDFHA.2876@TK2MSFTNGP12.phx.gbl...
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant sur
une cellule nommée impression
depuis une autre feuille ?
Merci de m'aider ?
au choix Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = [impression].Address Then [a1:b6].PrintOut MsgBox "c'est parti sur l'imprimante" End If End Sub
où
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _ As Range, Cancel As Boolean) If Target.Address = [impression].Address Then Cancel = True [a1:b6].PrintOut MsgBox "c'est parti sur l'imprimante" End If End Sub
Salutations RaMa "cris570" a écrit dans le message de news:
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant sur une cellule nommée impression depuis une autre feuille ? Merci de m'aider ?
RaMa
appuie sur Alt F11 tu te retrouves sur un module de feuille colle l'une où l'autre des 2 macros proposées où celle de ru-th Nb pour la cellule de lancement de la feuille concernée tu dois la nommer impression dans cet exemple de macro
"RaMa" a écrit dans le message de news:
Bonjour
au choix Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = [impression].Address Then [a1:b6].PrintOut MsgBox "c'est parti sur l'imprimante" End If End Sub
où
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _ As Range, Cancel As Boolean) If Target.Address = [impression].Address Then Cancel = True [a1:b6].PrintOut MsgBox "c'est parti sur l'imprimante" End If End Sub
Salutations RaMa "cris570" a écrit dans le message de news:
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant sur une cellule nommée impression depuis une autre feuille ? Merci de m'aider ?
appuie sur Alt F11
tu te retrouves sur un module de feuille
colle l'une où l'autre des 2 macros proposées où celle de ru-th
Nb pour la cellule de lancement de la feuille concernée tu dois la nommer
impression dans cet exemple de macro
"RaMa" <PaSpam_rmarceau@free.fr> a écrit dans le message de news:
ua28mURDFHA.3928@TK2MSFTNGP15.phx.gbl...
Bonjour
au choix
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = [impression].Address Then
[a1:b6].PrintOut
MsgBox "c'est parti sur l'imprimante"
End If
End Sub
où
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
If Target.Address = [impression].Address Then
Cancel = True
[a1:b6].PrintOut
MsgBox "c'est parti sur l'imprimante"
End If
End Sub
Salutations
RaMa
"cris570" <cris570@hotmail.com> a écrit dans le message de news:
ePdR3FRDFHA.2876@TK2MSFTNGP12.phx.gbl...
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant
sur une cellule nommée impression
depuis une autre feuille ?
Merci de m'aider ?
appuie sur Alt F11 tu te retrouves sur un module de feuille colle l'une où l'autre des 2 macros proposées où celle de ru-th Nb pour la cellule de lancement de la feuille concernée tu dois la nommer impression dans cet exemple de macro
"RaMa" a écrit dans le message de news:
Bonjour
au choix Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = [impression].Address Then [a1:b6].PrintOut MsgBox "c'est parti sur l'imprimante" End If End Sub
où
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _ As Range, Cancel As Boolean) If Target.Address = [impression].Address Then Cancel = True [a1:b6].PrintOut MsgBox "c'est parti sur l'imprimante" End If End Sub
Salutations RaMa "cris570" a écrit dans le message de news:
Salut à toutes et tous
Peut-on lancer l'impression d'un feuille dans un classeur, en cliquant sur une cellule nommée impression depuis une autre feuille ? Merci de m'aider ?
cris570
Je suis allé sur la feuille et la cellule ou je veux creer une édition, puis j'ai tapé Ctel+F11 une nouvelle feuille c'est crée, je dois la nommer : Impression ??? ensuite ???
Je suis allé sur la feuille et la cellule ou je veux creer
une édition, puis j'ai tapé Ctel+F11
une nouvelle feuille c'est crée, je dois la nommer : Impression ???
ensuite ???
Je suis allé sur la feuille et la cellule ou je veux creer une édition, puis j'ai tapé Ctel+F11 une nouvelle feuille c'est crée, je dois la nommer : Impression ??? ensuite ???
RaMa
appuyer simultanément sur les touches Alt et F11 apparaît alors la fenêtre du projet VBA cliquer sur feuil1 la feuille de code vierge apparaît tu copies les macros comme je te l'avais indiqué puis reviens dans excel avec alt Q ça devrait être opérationnel!!
"cris570" a écrit dans le message de news:
Je suis allé sur la feuille et la cellule ou je veux creer une édition, puis j'ai tapé Ctel+F11 une nouvelle feuille c'est crée, je dois la nommer : Impression ??? ensuite ???
appuyer simultanément sur les touches Alt et F11
apparaît alors la fenêtre du projet VBA
cliquer sur feuil1
la feuille de code vierge apparaît
tu copies les macros comme je te l'avais indiqué
puis reviens dans excel avec alt Q
ça devrait être opérationnel!!
"cris570" <cris570@hotmail.com> a écrit dans le message de news:
OFqh28RDFHA.3924@TK2MSFTNGP15.phx.gbl...
Je suis allé sur la feuille et la cellule ou je veux creer
une édition, puis j'ai tapé Ctel+F11
une nouvelle feuille c'est crée, je dois la nommer : Impression ???
ensuite ???
appuyer simultanément sur les touches Alt et F11 apparaît alors la fenêtre du projet VBA cliquer sur feuil1 la feuille de code vierge apparaît tu copies les macros comme je te l'avais indiqué puis reviens dans excel avec alt Q ça devrait être opérationnel!!
"cris570" a écrit dans le message de news:
Je suis allé sur la feuille et la cellule ou je veux creer une édition, puis j'ai tapé Ctel+F11 une nouvelle feuille c'est crée, je dois la nommer : Impression ??? ensuite ???
