Sélectionner des colonnes et lignes avec changement de couleur

Bonjour,

Je suis nouveau dans le monde du VBA , je cherche une macro qui en cliquant sur une cellule (n'importe ou sur la feuille) me sélectionne les 4 lignes et les 4 colonnes à partir de cette cellule, de plus je voudrais pouvoir changer la couleur( 8 couleurs différents) des ces cellules, c'est à dire qu'une fois elle peut être bleu une fois jaune etc.....

Merci de votre aide

Papigouzou

Bonjour et bienvenue,

Un début de réponse compte-tenu des informations.

Cdlt.

Sub XXX()
Dim rng As Range
    With ActiveCell
        Set rng = .Resize(4, 4)
        rng.Interior.ColorIndex = 5
    End With
End Sub

Bonjour Jean-Eric

et merci pour la rapidité

Pour la couleur je voudrais que quand je clique sur un bouton , la il y en aura 8 , que les colonnes et lignes prennent la couleur du bouton sur lequel je vais cliquer , j'espère mettre fait comprendre !!

Cordialement

Papigouzou

Re,

Tu fais un effort et tu joins un classeur.

Cdlt.

Voici le fichier

Les explications sont dedans

Merci

Cdlt

Bonjour,

Je relance pour savoir si quelqu'un a la solution .

Merci

Papigouzou

Bonjour,

Tu peux être n'importe où dans chaque tableau, mais son coin supérieur gauche doit commencer par "T" pour que la couleur s'applique.

Macro unique pour tous les boutons :

Sub couleur()
    Dim lig As Long, col As Long
    lig = Int((ActiveCell.Row - 4) / 5) * 5 + 4
    col = Int((ActiveCell.Column - 2) / 5) * 5 + 2
    If Left(Cells(lig, col), 1) = "T" Then Cells(lig, col).Resize(4, 4).Interior.Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
End Sub

eric

Bonjour

Merci Eriic

C'est exactement ce que je voulais , j'étais pas près de trouver la solution !

Cdlt

Papigouzou

Rechercher des sujets similaires à "selectionner colonnes lignes changement couleur"