Sélectionner deux cellules en 1 clic

[maval]

Bonjour,

N'ayant pas trouvé de solution sur le Net.
J'aimerai en cliquant sur une cellule pouvoir sélectionner deux cellules en même temps qui se trouve dans la même ligne et dans les colonnes "C😀"
exemple: cliquer sur la cellule C3 donne la sélection à "C3 & D3"
cliquer sur la cellule C17 donne la sélection à "C17 & D17" ect...

Je vous remercie de votre aide

Cordialement

Maval

 

[fanfan38]

Re : Sélectionner deux cellules en 1 clic

Bonjour Maval
Un fichier est toujours le bienvenu
Clic droit sur le nom de ta feuille et choisi visualiser le code et copie les lignes suivantes
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 3 And Target.Column > 4 Then Exit Sub
Range(Cells(Target.Row, 3), Cells(Target.Row, 4)).Select
End Sub
si tu selectionnes 1 cellule en colonne C ou en colonne D les 2 cellules sont selectionnées.
A+ François

 

[phlaurent55]

Re : Sélectionner deux cellules en 1 clic

Bonjour Maval,

avec ce code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Range(Cells(Target.Row, Target.Column), Cells(Target.Row, Target.Column + 1)).Select
End Sub

à+
Philippe

Edit: Bonjour François

 

[maval]

Re : Sélectionner deux cellules en 1 clic

Bonjour François,

Merci d'avoir répondu mais j'ai un souci

si tu selectionnes 1 cellule en colonne C ou en colonne D les 2 cellules sont selectionnées.

Que je sélectionne n'importe quelle cellule sa m'active toujours "C & D" alors que je préférerai que si je sélectionne uniquement la C ou la D les 2 cellules sont sélectionnées.

Merci pour ton aide

@+

Max

 

[maval]

Re : Sélectionner deux cellules en 1 clic

Bonjour Philippe,

Je te remercie mais y a t-il pas un code qui lorsque je click sur une cellules "C ou D" qui me selectionne les deux

Bonne journée et merci encore

Max

 

[phlaurent55]

Re : Sélectionner deux cellules en 1 clic

Re,

voici

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column < 3 Or Target.Column > 4 Then Exit Sub
If Target.Column = 3 Then
Range(Cells(Target.Row, Target.Column), Cells(Target.Row, Target.Column + 1)).Select
Else
Range(Cells(Target.Row, Target.Column - 1), Cells(Target.Row, Target.Column)).Select
End If
End Sub

à+
Philippe

 

[maval]

Re : Sélectionner deux cellules en 1 clic

Re

Exactement la recherche mais j'ai ceci pour que l’événement se fasse avec le click gauche y a t-il un problème???

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Merci et bonne journée

@+

Max

 

[phlaurent55]

Re : Sélectionner deux cellules en 1 clic

Re,

dans ce cas il faut utiliser ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column < 3 Or Target.Column > 4 Then Exit Sub
If Target.Column = 3 Then
Range(Cells(Target.Row, Target.Column), Cells(Target.Row, Target.Column + 1)).Select
Else
Range(Cells(Target.Row, Target.Column - 1), Cells(Target.Row, Target.Column)).Select
End If
End Sub

la ligne: If Target.Count <> 1 Then Exit Sub est là pour éviter que la procédure boucle sur elle même


à+
Philippe

 

[maval]

Re : Sélectionner deux cellules en 1 clic

Re Philippe,

Je te remercie beaucoup juste une petite modif que je viens de voir Il faut part moment que je sélectionne deux ou trois cellules et je viens de m'apercevoir que je ne peut pas sélectionner plus d'une cellules avec "Ctrl" y a t-il un moyen pour modifier cela.

Un grand merci d'avance et bonne journée
@+

Max

 

[phlaurent55]

Re : Sélectionner deux cellules en 1 clic

Re,

je viens de tester

la sélection de plusieurs cellules reste toujours possible en maintenant la touche Ctrl enfoncée
et ça marche également avec la touche Maj.

à+
Philippe

 

[maval]

Re : Sélectionner deux cellules en 1 clic

Re,

Non si tu veut sélectionner exemple: "C3😀3 puis C5: D5 puis C17😀17" tu ne peut pas?
Ou alors je n'est pas compris?

@+

Max

 

[job75]

Re : Sélectionner deux cellules en 1 clic

Bonjour maval, fanfan38, Philippe,

Si j'ai bien compris c'est simple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, [C:D]) Is Nothing Then _
  Intersect(ActiveCell.EntireRow, [C:D]).Select
End Sub

A+

 

[job75]

Re : Sélectionner deux cellules en 1 clic

Re,

Pour que des sélections multiples soient possibles utiliser :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [C:D]) Is Nothing Then _
  Intersect(Target.EntireRow, [C:D]).Select
End Sub

A+

 

[maval]

Re : Sélectionner deux cellules en 1 clic

Bonjour Job

Oui sa fonctionne mais je ne peut pas sélectionner plusieurs cellule ensemble exemple: "C33 puis C5: D5 puis C1717" avec "Ctrl" ou autre?

@+

Max

 

[maval]

Re : Sélectionner deux cellules en 1 clic

Re Job

Oui Nickel mon post 14 c'est croiser avec le tiens

Merci beaucoup
Et bonne journée

Max