Bonjour à tous, J'ai un tableau à quatre colonnes (A-D) Je voudrai, à l'aide d'une macro, que lorsqu'on sélectionne la cellule A1 et que l'on clique sur le bouton qui lance la macro, les cellules adjacentes, B1,C1 et D1 se sélectionnent automatiquement (Plage A1:D1 sélectionnée). Le problème c'est que je n'arrive pas à écrire cette macro... Si quelqu'un d'entre vous a la solution, ce serait sympa de m'aider. Merci d'avance et bonne journée.

Re-bonjour, c'est encore moi... J'ai trouvé un moyen, il y a peut-être mieux, mais ça marche : a = ActiveCell.Row b = ActiveCell.Column Range(Cells(a, b), Cells(a, b + 3)).Select Merci à ceux qui ont cherché à m'aider. A plus

Bonjour, Non, non... On peut pas mieux faire ! [hello]

essaye avec ca en placant ce code directement sur la feuille et non dans un module Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) b = ActiveCell.Column If b = 1 Then Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3)).Select End If End Sub comme ca sans cliquer sur un bouton des que tu selectione une cellule dans la colonne a il fait ce que tu demande

Bonsoir et merci à Galopin01 pour ses encouragements et à Yojema, pour le moment j'ai quand même besoin de lancer une macro (qui transfère des données dans une autre feuille) par l'intermédiaire d'un bouton mais je garde précieusement ton code pour une autre occasion. Bonne soirée à tous.Quel bonheur de pouvoir compter sur des spécialistes qui sont toujours là quand on a besoin d'eux, bravo à vous et encore merci.

Salut 2 pistes... : [code]ActiveCell.CurrentRegion.Select[/code] [code]Range(Selection, Selection.End(xlToRight)).Select[/code] bonne chance !

Ouai ! On peut également sélectionner la page entière dès qu'on ouvre le classeur ou y peindre en rouge... [horsujet] Aïe ! Non... pas la tête ! [crazy]