Sélectionner une plage de cellules avec un bouton

Fermé
Thomus - 28 juil. 2014 à 18:08
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 28 juil. 2014 à 19:37
Bonjour,

J'aimerais pouvoir sélectionner une plage de cellules en double-cliquant sur la première cellule de la ligne.

Par exemple, en double-cliquant sur A3, la plage ("A3:E3") se sélectionne. L'objectif sera de pouvoir changer le format de cette plage ainsi sélectionnée..

Mais les choses se compliquent un peu car en réalité, mon tableau initial ne comporte au début d'une seule ligne ("A3:E3") et via une autre macro, je peux créer autant de ligne que je veux via une copie de cette première ligne.

La macro que j'essaie donc de faire ici doit pouvoir également se "copier-coller" via la dernière..

:s

Avis aux amateurs :D

3 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
Modifié par Patrice33740 le 28/07/2014 à 19:16
Bonjour,

Si il s'agit d'un tableau contenant la cellule A3, dans le module de feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
                                        Cancel As Boolean)
  [A3].CurrentRegion.Select
End Sub

Cordialement
Patrice
0
Bonsoir,

En fait je dois pouvoir cliquer sur nimporte quelle cellule dans la colonne A par exemple.

De plus, si je double clique sur A4 par exemple, la plage ("A4:E4") doit se selectionner..
Et donc si je clique sur A5, la plage ("A5:E5") se sélectionne,

etc
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
28 juil. 2014 à 19:34
Re,

Alors :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    Intersect(.CurrentRegion, .EntireRow).Select
  End With
End Sub


0
Voici ce qu'il me fallait, merci quand même

ActiveCell.Select
Selection.Offset(0, -15).Resize(Selection.Rows.Count, _
Selection.Columns.Count + 15).Select
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
28 juil. 2014 à 19:37
Avec ce code si tu double-cliques colonne A, tu auras une erreur !
0