Décalage checkbox (printout avec macro)
mickysor
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
il y a des macros qui me font tourner en bourrique.....
je précise toutes ces macros fonctionnaient parfaitement sur office 2003.
je précise aussi dans format de controle j'ai coché cette option: ne pas déplacer ou redimmentionner avec les cellules
maintenant que je suis sur office 2010, lorsque je lance les macros d'impression
a partir d'un autre tableau
en utilisant un code comme ceci:
Application.Run "'BV CHILLY-MAZARIN.xlsm'!print"
et dans cette macro il y a:
With Worksheets("bv recto")
.OLEObjects("checkbox4").Activate
.OLEObjects("checkbox4").Object.Value = True
.OLEObjects("checkbox4").PrintObject = True
.OLEObjects("checkbox6").Activate
.OLEObjects("checkbox6").Object.Value = True
.OLEObjects("checkbox6").PrintObject = True
End With
Dim strValidationRange As String
Dim rngValidation As Range
Dim rngDepartment As Range
Application.ScreenUpdating = True
Range("k:k").Select
Set rngValidation = Range("d71").End(xlDown).Offset(0, 9)
With Range("A350.").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & rngValidation.Address
' Set the value in the selection cell to each selection in turn
' and print the results.
For Each rngDepartment In rngValidation.Cells
Range("A350.").Value = rngDepartment.Value
Range("A2:H66").Select
Selection.PrintOut
Next
Range("A12:H15").Select
Application.ScreenUpdating = True
End With
With Worksheets("bv recto")
.OLEObjects("checkbox4").Object.Value = False
.OLEObjects("checkbox6").Object.Value = False
End With
______________________________________________________
je ne comprends pas à chaque fois les checkbox se déplacent!!
il y a des macros qui me font tourner en bourrique.....
je précise toutes ces macros fonctionnaient parfaitement sur office 2003.
je précise aussi dans format de controle j'ai coché cette option: ne pas déplacer ou redimmentionner avec les cellules
maintenant que je suis sur office 2010, lorsque je lance les macros d'impression
a partir d'un autre tableau
en utilisant un code comme ceci:
Application.Run "'BV CHILLY-MAZARIN.xlsm'!print"
et dans cette macro il y a:
With Worksheets("bv recto")
.OLEObjects("checkbox4").Activate
.OLEObjects("checkbox4").Object.Value = True
.OLEObjects("checkbox4").PrintObject = True
.OLEObjects("checkbox6").Activate
.OLEObjects("checkbox6").Object.Value = True
.OLEObjects("checkbox6").PrintObject = True
End With
Dim strValidationRange As String
Dim rngValidation As Range
Dim rngDepartment As Range
Application.ScreenUpdating = True
Range("k:k").Select
Set rngValidation = Range("d71").End(xlDown).Offset(0, 9)
With Range("A350.").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & rngValidation.Address
' Set the value in the selection cell to each selection in turn
' and print the results.
For Each rngDepartment In rngValidation.Cells
Range("A350.").Value = rngDepartment.Value
Range("A2:H66").Select
Selection.PrintOut
Next
Range("A12:H15").Select
Application.ScreenUpdating = True
End With
With Worksheets("bv recto")
.OLEObjects("checkbox4").Object.Value = False
.OLEObjects("checkbox6").Object.Value = False
End With
______________________________________________________
je ne comprends pas à chaque fois les checkbox se déplacent!!
A voir également:
- Décalage checkbox (printout avec macro)
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Copier coller formule excel sans décalage ✓ - Forum Bureautique
- Macro maker - Télécharger - Divers Utilitaires
3 réponses
Bonjour,
Effectivement ça ne fonctionne plus de la même façon...
essaye,
A+
Effectivement ça ne fonctionne plus de la même façon...
essaye,
With ActiveSheet.CheckBox1A adapter à ton contexte bien évidemment
.Value = False
.PrintObject = False
.Placement = xlFreeFloating 'fixe =3
.Placement = xlMove 'libre =2
End With
A+
Bonjour,
quel est le bon code?
.Placement = xlFreeFloating 'fixe =3
ou ce code?
.Placement = xlMove 'libre =2
je ne comprends pas.j'ai essayé le
xlFreeFloating et le xlMove
et rien à faire les checkbox se déplacent.
j'ai l'impression que ça se produit avec ce code:
Application.Run "'BV CHILLY-MAZARIN.xlsm'!print"
l'écran bouge et les checkbox se déplacent
quel est le bon code?
.Placement = xlFreeFloating 'fixe =3
ou ce code?
.Placement = xlMove 'libre =2
je ne comprends pas.j'ai essayé le
xlFreeFloating et le xlMove
et rien à faire les checkbox se déplacent.
j'ai l'impression que ça se produit avec ce code:
Application.Run "'BV CHILLY-MAZARIN.xlsm'!print"
l'écran bouge et les checkbox se déplacent