nombre de cellules

Version imprimable

14/09/2009, 14h54
abouhossam
bjr à tous
j'ai developpé une macro qui a comme but de m'envoyer le nbre de cellules selectionnées.
Code:

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.

Bonjour,

Une exemple :

Code:

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

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

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

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:

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+

14/09/2009, 15h50
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.
14/09/2009, 16h02
Fvandermeulen

Donc tu fais des multi sélection avec Ctrl+clickG ...
Moi qui croyais déjà m'être bien tiré les cheveux :aie:
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 ?
14/09/2009, 16h13
abouhossam

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

Re,
Pour suivre ma première piste il faudrait jouer avec les caractères, du style compter les "," et vérifier si il y a des ":" pour ensuite faire des Left, Right 8O
Je suis donc parti sur une autre piste, colorer provisoirement le fond de cellule de la sélection pour pouvoir faire un compte via des boucles.
Je sais pas si il y a mieux mais à cette heure-ci c'est tout ce que mon pauf' petit cerveau a trouvé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long, j As Long, n As Long If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then Selection.Interior.ColorIndex = 5 n = 0 For i = 3 To 9 'Boucle basé sur les lignes utilisées selon les conditions du Target For j = 1 To 8 'Boucle basé sur les colonnes utilisées selon les conditions du Target If Cells(i, j).Interior.ColorIndex = 5 Then n = n + 1 Next j Cells(i, 7).Value = n n = 0 Next i Range(Cells(3, 1), Cells(9, 6)).Interior.ColorIndex = xlNone 'Plage basée sur les conditions du Target End If End Sub
Dis moi si ça te vas :ccool:

A+

Ne serait ce pas possible de faire un truc du genre:
Cela suppose qu'il parcour la plage par ligne mais je ne suis pas sur de ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim C as Range Cpt=1 For each C in Selection.Range If C.Row=l then Cpt=Cpt+1 Else MsgBox("Ligne " & l & "Nombre de cellules " & Cpt) Cpt=1 l=C.Row end if Next C

14/09/2009, 16h43
abouhossam

merci Fvandermeulen
mais ça ne donne rien et les cellules G n'affichent pas le nbre de cellules, " il reste égale à 0 "
merci tous de m^m

merci diude54
ton code donne erreur sur la ligne

Code:

For each C in Selection.Range

merci.
14/09/2009, 16h46
abouhossam

je m'excuse
je vous laisse
à demain.
14/09/2009, 16h49
Fvandermeulen
Je te mets le fichier Test que j'ai fait, je comprends pas que ça ne fonctionne pas chez toi, sinon l'approche de Diude54 doit le faire aussi mais à creuser pour ton cas.
Edit: Pour Diude54, ne vaut il pas mieux passer par une variable qui récupère la plage sur base de la sélection ? du genre:
Code:

1 2 Set MaPlage = Selection For Each C In MaPlage

Re,
Juste parceque l'option de Diude54 ma plaisait j'ai fait un truc sur base de son idée :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, n As Long
Dim LaPlage As Range, Cel As Range
 
Range("g3:g9").ClearContents
 
If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then
    Set LaPlage = Selection
    i = 1
        For Each Cel In LaPlage
 
                If Cel.Row = n Then
                    i = i + 1
                    Cells(Cel.Row, 7) = i
                Else
                    i = 1
                    Cells(Cel.Row, 7) = i
                End If
            n = Cel.Row
        Next Cel
End If
End sub

A+

Je propose ceci, il reporte dans la colonne G le nombre de cases contenues dans l'intersection de la sélection et de chaque ligne de la zone A3:F9

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Dim i As Integer
 
Range("G3:G9").ClearContents
For i = 3 To 9
    Set c = Intersect(Target, Range("A" & i & ":F" & i))
        If Not c Is Nothing Then Range("G" & i).Value = c.Count
    Set c = Nothing
Next i
End Sub

merci diude54; Fvandermeulen; mercatog et à tous
il y a des remarques:
**pour le 1er code de Fvandermeulen
j'ai fait des petites changements:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long, j As Long, n As Long If Target.Row < 10 And Target.Column < 7 And Target.Row > 2 Then n = 0 For i = 3 To 9 For j = 1 To 6 Selection.Interior.ColorIndex = 5 If Cells(i, j).Interior.ColorIndex = 5 Then n = n + 1 Next j Cells(i, 7).Value = n n = 0 Next i Selection.Interior.ColorIndex = xlNone 'Range(Cells(3, 1), Cells(9, 6)).Interior.ColorIndex = xlNone End If End Sub
mais pour quoi le compteur remet à 0 ?!
**pour le 2ème code de Fvandermeulen
il ya un prob c'est que par exemple si quelqu'un selectionne la zone (D6:E16), même G10.G11.G12.G13.G14.G15.G16 affichent 2.2.2.2.2.2.2
**pour le code de mercatog c'est parfait je le garde avec un petit changement :
supprimer la ligne

Code:

Range("G3:G9").ClearContents

pour ne pas remettre le compteur à 0
merci à tous