J'aimerais avoir de l'aide quand =E0 la programmation d'une macro. =C7a
fait 3 mois que je souhaite la faire mais je manque de temps pour tout
lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particuli=E8re qui est toujours
sur la premi=E8re ligne mais pas toujours dans la m=EAme colonne.
Je veux pouvoir s=E9lectionner les 6 colonnes =E0 gauche de celle o=F9 je
me trouve + la colonne o=F9 je me trouve + les 8 colonnes =E0 la droite
d'o=F9 je me trouve.
Et s=E9lectionner les 122 premi=E8re lignes de ces colonnes.
D=E9finir cette s=E9lection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais pr=E9sentement cette proc=E9dure environ 20 fois tous les lundis
matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de
pouvoir le faire plus rapidement!
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
MichDenis
'---------------- Sub test()
If ActiveCell.Column >= 7 Then ActiveCell.Offset(, -6).Resize(122, 15).Select End If
End Sub '----------------
"Souriane" a écrit dans le message de news:
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça fait 3 mois que je souhaite la faire mais je manque de temps pour tout lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je me trouve + la colonne où je me trouve + les 8 colonnes à la droite d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de pouvoir le faire plus rapidement!
Merci!
Souriane
'----------------
Sub test()
If ActiveCell.Column >= 7 Then
ActiveCell.Offset(, -6).Resize(122, 15).Select
End If
End Sub
'----------------
"Souriane" <sourianebad@bigfoot.com> a écrit dans le message de news:
1160072940.932135.40110@i3g2000cwc.googlegroups.com...
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça
fait 3 mois que je souhaite la faire mais je manque de temps pour tout
lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours
sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je
me trouve + la colonne où je me trouve + les 8 colonnes à la droite
d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis
matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de
pouvoir le faire plus rapidement!
If ActiveCell.Column >= 7 Then ActiveCell.Offset(, -6).Resize(122, 15).Select End If
End Sub '----------------
"Souriane" a écrit dans le message de news:
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça fait 3 mois que je souhaite la faire mais je manque de temps pour tout lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je me trouve + la colonne où je me trouve + les 8 colonnes à la droite d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de pouvoir le faire plus rapidement!
Merci!
Souriane
JLuc
*Bonjour MichDenis*, et pour completer la macro :
'---------------- Sub test() If ActiveCell.Column >= 7 Then .Select ActiveSheet.PageSetup.PrintArea = ActiveCell.Offset(, -6).Resize(122, 15) ActiveSheet.PrintOut Copies:=1, Collate:=True End If End Sub '----------------
"Souriane" a écrit dans le message de news:
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça fait 3 mois que je souhaite la faire mais je manque de temps pour tout lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je me trouve + la colonne où je me trouve + les 8 colonnes à la droite d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de pouvoir le faire plus rapidement!
Merci!
Souriane
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour MichDenis*,
et pour completer la macro :
'----------------
Sub test()
If ActiveCell.Column >= 7 Then
.Select
ActiveSheet.PageSetup.PrintArea = ActiveCell.Offset(,
-6).Resize(122, 15)
ActiveSheet.PrintOut Copies:=1, Collate:=True
End If
End Sub
'----------------
"Souriane" <sourianebad@bigfoot.com> a écrit dans le message de news:
1160072940.932135.40110@i3g2000cwc.googlegroups.com...
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça
fait 3 mois que je souhaite la faire mais je manque de temps pour tout
lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours
sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je
me trouve + la colonne où je me trouve + les 8 colonnes à la droite
d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis
matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de
pouvoir le faire plus rapidement!
'---------------- Sub test() If ActiveCell.Column >= 7 Then .Select ActiveSheet.PageSetup.PrintArea = ActiveCell.Offset(, -6).Resize(122, 15) ActiveSheet.PrintOut Copies:=1, Collate:=True End If End Sub '----------------
"Souriane" a écrit dans le message de news:
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça fait 3 mois que je souhaite la faire mais je manque de temps pour tout lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je me trouve + la colonne où je me trouve + les 8 colonnes à la droite d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de pouvoir le faire plus rapidement!
Merci!
Souriane
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
MichDenis
Je n'avais pas vu qu'on devait imprimer la plage :
Sub test() If ActiveCell.Column >= 7 Then ActiveSheet.PageSetup.PrintArea = _ ActiveCell.Offset(, -6).Resize(122, 15).Address ActiveSheet.PrintOut ActiveSheet.PageSetup.PrintArea = "" End If End Sub
"Souriane" a écrit dans le message de news:
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça fait 3 mois que je souhaite la faire mais je manque de temps pour tout lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je me trouve + la colonne où je me trouve + les 8 colonnes à la droite d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de pouvoir le faire plus rapidement!
Merci!
Souriane
Je n'avais pas vu qu'on devait imprimer la plage :
Sub test()
If ActiveCell.Column >= 7 Then
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.Offset(, -6).Resize(122, 15).Address
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
End If
End Sub
"Souriane" <sourianebad@bigfoot.com> a écrit dans le message de news:
1160072940.932135.40110@i3g2000cwc.googlegroups.com...
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça
fait 3 mois que je souhaite la faire mais je manque de temps pour tout
lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours
sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je
me trouve + la colonne où je me trouve + les 8 colonnes à la droite
d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis
matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de
pouvoir le faire plus rapidement!
Je n'avais pas vu qu'on devait imprimer la plage :
Sub test() If ActiveCell.Column >= 7 Then ActiveSheet.PageSetup.PrintArea = _ ActiveCell.Offset(, -6).Resize(122, 15).Address ActiveSheet.PrintOut ActiveSheet.PageSetup.PrintArea = "" End If End Sub
"Souriane" a écrit dans le message de news:
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça fait 3 mois que je souhaite la faire mais je manque de temps pour tout lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je me trouve + la colonne où je me trouve + les 8 colonnes à la droite d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de pouvoir le faire plus rapidement!
Merci!
Souriane
Souriane
Un gros merci!!! Ça fonctionne très bien. Merci pour le temps que vous y avez mis.
Souriane
Je n'avais pas vu qu'on devait imprimer la plage :
Sub test() If ActiveCell.Column >= 7 Then ActiveSheet.PageSetup.PrintArea = _ ActiveCell.Offset(, -6).Resize(122, 15).Address ActiveSheet.PrintOut ActiveSheet.PageSetup.PrintArea = "" End If End Sub
"Souriane" a écrit dans le message de news:
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça fait 3 mois que je souhaite la faire mais je manque de temps pour tout lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je me trouve + la colonne où je me trouve + les 8 colonnes à la droite d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de pouvoir le faire plus rapidement!
Merci!
Souriane
Un gros merci!!! Ça fonctionne très bien. Merci pour le temps que
vous y avez mis.
Souriane
Je n'avais pas vu qu'on devait imprimer la plage :
Sub test()
If ActiveCell.Column >= 7 Then
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.Offset(, -6).Resize(122, 15).Address
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
End If
End Sub
"Souriane" <sourianebad@bigfoot.com> a écrit dans le message de news:
1160072940.932135.40110@i3g2000cwc.googlegroups.com...
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça
fait 3 mois que je souhaite la faire mais je manque de temps pour tout
lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours
sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je
me trouve + la colonne où je me trouve + les 8 colonnes à la droite
d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis
matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de
pouvoir le faire plus rapidement!
Un gros merci!!! Ça fonctionne très bien. Merci pour le temps que vous y avez mis.
Souriane
Je n'avais pas vu qu'on devait imprimer la plage :
Sub test() If ActiveCell.Column >= 7 Then ActiveSheet.PageSetup.PrintArea = _ ActiveCell.Offset(, -6).Resize(122, 15).Address ActiveSheet.PrintOut ActiveSheet.PageSetup.PrintArea = "" End If End Sub
"Souriane" a écrit dans le message de news:
Bonjour!
J'aimerais avoir de l'aide quand à la programmation d'une macro. Ça fait 3 mois que je souhaite la faire mais je manque de temps pour tout lire sur les macros. Est-ce que quelqu'un pourrait m'aider?
Mon courseur se trouve dans une cellule particulière qui est toujours sur la première ligne mais pas toujours dans la même colonne.
Je veux pouvoir sélectionner les 6 colonnes à gauche de celle où je me trouve + la colonne où je me trouve + les 8 colonnes à la droite d'où je me trouve.
Et sélectionner les 122 première lignes de ces colonnes.
Définir cette sélection comme ma zone d'impression.
Imprimer et sortir sans sauvegarder.
Quelqu'un aurait-il la gentillesse de m'aider?
Je fais présentement cette procédure environ 20 fois tous les lundis matin et j'ai 5 minutes pour le faire. :-( Ce serait chouette de pouvoir le faire plus rapidement!
