J'ai un document x et j'aimerais imprimer que la cellule=20
E15, E25 et A17 a l'endroit ou elles sont situ=E9 sans que=20
les autres renseignements s'imprime!!
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
isabelle
bonjour Nancy,
voici un exemple,
Sub Macro1() Application.DisplayAlerts = False On Error Resume Next Set plage = Application.InputBox(prompt:= _ "Faite votre sélection à l'aide de la touche CTRL enfoncé", Type:=8) If plage Is Nothing Then MsgBox "Aucune sélection n'a été fait ! recommencer" Exit Sub End If Application.ScreenUpdating = False Set a = Range(plage.Address) feuille = ActiveSheet.Name ActiveSheet.Copy Before:=Sheets(1) Cells.ClearContents For Each c In Sheets(feuille).Range(a.Address) Range(c.Address) = c Next Range("A1:" & Cells.SpecialCells(xlCellTypeLastCell).Address).Select Selection.PrintPreview Reponse = MsgBox("Voulez-vous imprimer", vbYesNo + vbCritical + vbDefaultButton2) If Reponse = vbYes Then Selection.PrintOut ActiveWindow.SelectedSheets.Delete Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
isabelle
Bonsoir,
J'ai un document x et j'aimerais imprimer que la cellule E15, E25 et A17 a l'endroit ou elles sont situé sans que les autres renseignements s'imprime!!
Merci Nancy
bonjour Nancy,
voici un exemple,
Sub Macro1()
Application.DisplayAlerts = False
On Error Resume Next
Set plage = Application.InputBox(prompt:= _
"Faite votre sélection à l'aide de la touche CTRL enfoncé", Type:=8)
If plage Is Nothing Then
MsgBox "Aucune sélection n'a été fait ! recommencer"
Exit Sub
End If
Application.ScreenUpdating = False
Set a = Range(plage.Address)
feuille = ActiveSheet.Name
ActiveSheet.Copy Before:=Sheets(1)
Cells.ClearContents
For Each c In Sheets(feuille).Range(a.Address)
Range(c.Address) = c
Next
Range("A1:" & Cells.SpecialCells(xlCellTypeLastCell).Address).Select
Selection.PrintPreview
Reponse = MsgBox("Voulez-vous imprimer", vbYesNo + vbCritical +
vbDefaultButton2)
If Reponse = vbYes Then Selection.PrintOut
ActiveWindow.SelectedSheets.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
isabelle
Bonsoir,
J'ai un document x et j'aimerais imprimer que la cellule
E15, E25 et A17 a l'endroit ou elles sont situé sans que
les autres renseignements s'imprime!!
Sub Macro1() Application.DisplayAlerts = False On Error Resume Next Set plage = Application.InputBox(prompt:= _ "Faite votre sélection à l'aide de la touche CTRL enfoncé", Type:=8) If plage Is Nothing Then MsgBox "Aucune sélection n'a été fait ! recommencer" Exit Sub End If Application.ScreenUpdating = False Set a = Range(plage.Address) feuille = ActiveSheet.Name ActiveSheet.Copy Before:=Sheets(1) Cells.ClearContents For Each c In Sheets(feuille).Range(a.Address) Range(c.Address) = c Next Range("A1:" & Cells.SpecialCells(xlCellTypeLastCell).Address).Select Selection.PrintPreview Reponse = MsgBox("Voulez-vous imprimer", vbYesNo + vbCritical + vbDefaultButton2) If Reponse = vbYes Then Selection.PrintOut ActiveWindow.SelectedSheets.Delete Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
isabelle
Bonsoir,
J'ai un document x et j'aimerais imprimer que la cellule E15, E25 et A17 a l'endroit ou elles sont situé sans que les autres renseignements s'imprime!!
