Discussion :

[abouhossam]

bjr à tous
j'ai developpé une macro qui a comme but de m'envoyer le nbre de cellules selectionnées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then
Range("g" & Target.Row).Value = Target.Count
End If
End Sub

je veux que Range("g" & Target.Row).Value affiche que le nbre de cellules de même ligne.
svp.
merci d'avance.

pour être un peu clair
comment je peux compter les cellules selectionnées de même ligne.
svp
merci à vous.

[aalex_38]

Bonjour,

Une exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox Target.Rows.Count
End Sub

[abouhossam]

merci aalex_38
j'ai bien mixé ton code avec le mien et ça me donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then
    If Target.Rows.Count = 1 Then
    Range("g" & Target.Row).Value = Target.Count
    End If
End If

ça marche
mais quand je selectionnes plusieures cellules en utilisant la touche Ctrl; la cellule Range("g" & Target.Row) m'envoie le nbre même si les cellules sont de lignes differents
merci

[Fvandermeulen]

Salut,
Je crois avoir cerné ta question, tu veux savoir combien de cellules sont sélectionnées sur une même ligne (sur base des colonnes)
J'espère que c'est ça car j'ai trouvé une solution tirée par les cheveux et j'en n'ai plus beaucoup (enfin ils sont courts)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then
Range("g" & Target.Row).Value = (Right(Selection.Address(ReferenceStyle:=xlR1C1), 1) - Right(Left(Selection.Address(ReferenceStyle:=xlR1C1), 4), 1)) + 1
End If
End Sub

A+

[abouhossam]

merci Fvandermeulen
mais le problème c'est que lorceque je selectionne par exemple:
A5;B5;C6;D7--------> la cellule G5 affiche 4; même si les cellules ne sont pas de la même ligne 5.
je crois que c'est clair.
merci.

[Fvandermeulen]

Donc tu fais des multi sélection avec Ctrl+clickG ...
Moi qui croyais déjà m'être bien tiré les cheveux
Donc dans ton dernier exemple tu veux:
En ligne 5 qu'on affiche 2
En ligne 6 qu'on affiche 1
Et en ligne 7 qu'on affiche 1
C'est bien ça ?

[abouhossam]

merci Fvandermeulen
c'est bien ce que tu as dis.
merci bcp.