Discussion :

[johndeuf]

Bonjour le forum,

J essaie d appliquer une macro a des blocs de cellules excel

mon probleme c est que une fois celui ci contient 1 cellule, une autre fois 4, ou encore 8... le nombre de cellule contenue dans mon bloc de cellule est donc variable.

cependant les cellules sont toujours les une a la suite des autres sur une meme colonne. il n y a donc que le nombre de ligne qui varie. ex ("A1:C1") ou ("E1:K1")

en cochant l option position relative ds la petite barre d enregistrement
j obtient par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Range("A1:C1").Select

mais alors ma macro ne s efectuera alors que sur des blocs de 3 cellules...

Comment faire pour que vba applique ma macro sur le bloc que j ai selectionné
celui ci pouvant biensur comporté 4 ou 10 ou... cellules ?

Merci beaucoup

[SfJ5Rpw8]

Comment ajouter une commande au menu contextuel d'une cellule Excel ?

[Lexot2]

Bonjour

Voila une macro qui colorie en rouge une plage de cellules sélectionnée. Il suffira d'adapter ton code à cet exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim c As Range
For Each c In Selection
 
       c.Interior.ColorIndex = 3
 
Next c

Cordialement

[johndeuf]

Merci Lexot


3 lignes !
la honte pour moi
c est exactement ce que je voulais.

Kimbe raid !

[Lexot2]

Bonjour

Cette macro fournit le numéro de la première et la dernière ligne de la plage sélectionnée (pre et der). Il faut sélectionner du haut vers le bas sur une seule colonne(cellule active en haut).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim c As Range
Dim pre As Integer, der As Integer
pre = ActiveCell.Row
 
For Each c In Selection
       der = der + 1
Next c
der = der + pre - 1

Cordialement