Selection automatique de plusieurs cellules

robynou · 01/07/2009, 11h45

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 :

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 · 01/07/2009, 11h54

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 :

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 · 01/07/2009, 11h58

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 :

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 · 01/07/2009, 12h28

Citation:

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 · 01/07/2009, 14h03

Les deux solutions marchent nickel. Merci pour les reponses pertinentes

mapeh · 01/07/2009, 14h14

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...

01/07/2009, 11h45	#1
robynou Invité régulier Date d'inscription: avril 2008 Messages: 11	Selection automatique de plusieurs cellules 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 : 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 ! Dernière modification par AlainTech ; 05/07/2009 à 07h19. Motif: Balises [code]

01/07/2009, 11h54	#2
Fvandermeulen Membre Expert Nom : Frédéric Vandermeulen Date d'inscription: juillet 2007 Localisation: Bruxelles Âge: 34 Messages: 1 414	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 : 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+ __________________ N'oubliez pas le si votre problème est solutionné.

01/07/2009, 11h58	#3
Krovax Expert Confirmé Date d'inscription: juillet 2008 Localisation: Elsass Âge: 24 Messages: 1 887	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 : 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

01/07/2009, 14h14	#6
mapeh Membre actif Date d'inscription: octobre 2007 Localisation: 29 Messages: 176	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...

01/07/2009, 14h03	#5
robynou Invité régulier Date d'inscription: avril 2008 Messages: 11	Les deux solutions marchent nickel. Merci pour les reponses pertinentes

		Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Selection automatique de plusieurs cellules

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email