Selection automatique de plusieurs cellules

[robynou]

Bonjour,

Voici le problème dont je cherche la solution en excel/VBA:
Lorsque je sélectionne une cellule quelconque sur ma feuille excel "Reference Sheet", j'aimerais que toute la colonne soit sélectionnée:

Code :

1
2
3
With Sheets("Reference Sheet")
        If ActiveCell.Row <> 0 Then Rows(ActiveCell.Row).Select
End With

VBA n'etant pas dynamique, avez vous une solution a proposer qui fonctionne a chaque fois que l'utilisateur clique sur n'importe quelle cellule?
Merci d'avance !

[Fvandermeulen]

Salut Robynou (et les autres)
Tu peux rendre VBA dynamique en mettant ton code dans le module de feuille avec une action sur un changement.
Le plus simple, click droit sur l'onglet de la feuille concernée, ensuite Voir code.

Tu colle le code ci-dessous, il s'effectuera à chaque "changement" de cellule.
Par contre es tu bien certain du résultat que tu vas obtenir, ça me semble étrange de vouloir sélectionner l'ensemble de la ligne dans ce contexte...

Code :

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
With Sheets("Reference Sheet")
If ActiveCell.Row <> 0 Then Rows(ActiveCell.Row).Select
End With
 
End Sub

A+

[Krovax]

Dans l'évènement selection change de la feuille de calcul ou l'équivalent dans thisworkbook (tu verra que VBA peut être très dynamique si on apprend a le connaitre )
les tuto
this workbook : http://silkyroad.developpez.com/VBA/EvenementsClasseur/
Feuille decalcule : http://silkyroad.developpez.com/VBA/EvenementsFeuille/

Ensuite tu mets juste dans le code

Code :

selection.Entirecolumn.select

Bon le code complet pour une feuille de calcul

Code :

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.EntireColumn.Select
End Sub

Mais lis quand mémé les tutos pour voir un peu comment ca fonctionne (et savoir ou placer le code )

Edit : Bonjour Fvandermeulen, c'est vrai que le code utilisé les ligne mais la question les colonnes... Au moins il aura les deux version

[Fvandermeulen]

Envoyé par Krovax

...

Edit : Bonjour Fvandermeulen, c'est vrai que le code utilisé les ligne mais la question les colonnes... Au moins il aura les deux version

Salut Krovax, bien vu, j'avais même pas fait gaffe !

[robynou]

Les deux solutions marchent nickel. Merci pour les reponses pertinentes

[mapeh]

Bonjour,

faudrait m'expliquer cette ligne, robynou....

Code :

If ActiveCell.Row <> 0 ....

Une cellule active est forcément dans la feuille, donc la ligne est forcément différente de 0...

Juste pour explication...