VBA sélection plage variable selon une entrée utilisateur

Résolu

Ananas -
Ananas - 19 juil. 2022 à 15:46

Bonjour,

Je suis à la recherche d'un moyen sous VBA de sélectionner puis utiliser une plage de données dont la colonne serait entrée dans une cellule par l'utilisateur et les lignes seraient fixe.

Exemple : l'utilisateur entre la valeur 150 dans la cellule HH16, la sélection sera donc : colonne 150 lignes 15 à 28 (les lignes ne changent pas), un changement de bordure sera ensuite appliqué à cette sélection.

Par conséquent si plus tard je remplace 150 par 43 dans la cellule HH16, ce seront les cellules colonne 43, lignes 15 çà 28 qui seront mises en forme.

Mon but est ensuite d'appliquer une mise en forme à ces cellules (un changement de bordure, j'ai trouvé la fonction pour réaliser cette mise en forme mais pas sur cette fameuse plage de cellules qui n'est pas fixe...)

Quelqu'un aurait une solution pour répondre à mon problème?
Windows / Edge 103.0.1264.44

A voir également:

VBA sélection plage variable selon une entrée utilisateur
Image de manchots sur une image de plage. - Forum Graphisme
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
Image de manchots sur une image de plage ✓ - Forum Graphisme
Incompatibilité de type vba ✓ - Forum Programmation
Retrouver moi l'original - Forum Musique / Radio / Clip

2 réponses

Réponse 1 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour,

un exemple:

Dim rg As Range, cl As Long
cl = [HH16]
Set rg = Range(Cells(15, cl), Cells(28, cl))
rg.Interior.ColorIndex = 4

Ananas

ça fonctionne très bien merci!

Réponse 2 / 2

Ananas

J'ai fait quelques ajustements pour que ça colle bien avec ce que je voulais faire et ça fonctionne à merveille, merci beaucoup!

j'ai mis le code de la macros ci-dessous si jamais ça peut intéresser quelqu'un d'autre à l'avenir (elle colore la bordure gauche des cases de la sélection).

Sub SetColor()
    Worksheets("FeuilleTest").Select
    Dim rg As Range, cl As Long
    cl = [HH16]
    Set rg = Range(Cells(15, cl), Cells(29, cl))
    rg.Borders(xlEdgeLeft).ColorIndex = 13
 
End Sub

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA Excel : sélection d'une plage variable

erreur d'execution 9, l'indice n'appartient pas à la sélection

VBA : Range avec références variables..

Erreur '9' l'indice n'appartient pas à la sélection

Votre réponse

Discussions similaires