selectionnner des lignes pour y appliquer une macro

[pascal21]

bonjour le forum
je cherche le moyen de faire la chose suivante:
je sélectionne à la souris un nombre de lignes voulues 2, 3 , 4 etc.....
j'aimerais appliquer une macro sur ces lignes mais uniquement dans les colonnes A à N puis une autre macro sur les mêmes lignes mais cette fois sur les colonnes O à P
j'ai les macros mais pas celle de la selection de la zone voulue
pouvez-vous m'aider merci

 

[pascal21]

Re : selectionnner des lignes pour y appliquer une macro

Pour faire remonter merci

 

[pierrejean]

Re : selectionnner des lignes pour y appliquer une macro

Bonjour pascal21

Vois si tu peux t'inspirer de ceci

Sub test()
x = Selection.Rows.Row
y = Selection.Rows.Row + Selection.Rows.Count - 1
Set plage1 = Range("A" & x & ":" & "N" & y)
Set plage2 = Range("O" & x & ":" & "P" & y)
MsgBox (plage1.Address)
MsgBox (plage2.Address)
End Sub

 

[pascal21]

Re : selectionnner des lignes pour y appliquer une macro

Bonjour pierrejean nous messages se sont croisés je vais essayer pour voir comment il fonctionne merci

 

[pascal21]

Re : selectionnner des lignes pour y appliquer une macro

re
ça ne semble pas prendre en compte les colonnes demandées
mais ça fonctionne pour les lignes, c'est à dire que la macro s'exécute sur toutes les colonnes du classeur

 

[pierrejean]

Re : selectionnner des lignes pour y appliquer une macro

Re

Comme je ne sais rien de ta macro , je ne vais pas pouvoir aller plus loin !!!!

 

[pascal21]

Re : selectionnner des lignes pour y appliquer une macro

oui c'est vrai que j'ai été avare de renseignements
en fait la macro colorie en bleu la zone "plage1" et met un double trait sous la dernière ligne sélectionnée
j'ai mis ton code puis le mien que j'ai commencer par
with plage1
etc.....

 

[pascal21]

Re : selectionnner des lignes pour y appliquer une macro

c'est bon j'ai trouvé comment faire
à la fin de ton code j'ai mis
plage1.select
with plage1
ma_macro
oui je sais ce n'est surrement pas trop académique ce select mais en attendant de trouver mieux je fais avec
merci bonne soirée

 

[pierrejean]

Re : selectionnner des lignes pour y appliquer une macro

Re

Curieux !!

ceci fonctionne

Sub test()
x = Selection.Rows.Row
y = Selection.Rows.Row + Selection.Rows.Count - 1
Set plage1 = Range("A" & x & ":" & "N" & y)
Set plage2 = Range("O" & x & ":" & "P" & y)
plage1.Interior.ColorIndex = 4
plage2.Interior.ColorIndex = 3
End Sub

 

[pascal21]

Re : selectionnner des lignes pour y appliquer une macro

re
bah! chez moi ça sélectionnait toutes les colonnes et ça appliquait la macro sur toutes les colonnes
quoi qu'il en soit ce bout de code risque bien de me resservir pour d'autres macros