Discussion :

[usul3]

Bonjour,

voila mon probleme, j'essais de compter le nombre de cellules se trouvant dans une plage de cellules, voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
With Worksheets(1).
        Set Plage = .Range(.Cells(Ligne,2), .Cells(i,2))
End With
 
For Each Cells In Range (Plage)
         If Cells <> "" Then
         NbCel = NbCel + 1
         End If
Next Cells

lorsque je compile, j'ai un message d'erreur à la 5eme ligne sur Cells ???

et serait-il possible de faire la somme des valeurs se trouvant dans ces cellules avec SUM() ???

Merci pour votre temps !!

[pijaku]

Bonjour,
Pour compter le nombre de cellules dans une plage :

Code :

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

1
2
3
Dim Plage As Range
Set Plage = .Range(.Cells(Ligne,2), .Cells(i,2))
MsgBox Plage.Count

Cells ne peux pas être une variable car c'est un nom appartenant à la syntaxe VBA. Je pense que l'erreur vient de là.
Tu pourrais déclarer Cel par exemple :

Code :

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

1
2
3
4
Dim Cel As Range, Plage As Range
For Each Cel In Plage
'bla bla
Next

et serait-il possible de faire la somme des valeurs se trouvant dans ces cellules avec SUM() ???

Là je n'ai pas compris ce que tu désires.
1- tu veux faire la somme de cellules contenant des formules SUM()?
2- tu veux utiliser SUM() pour faire le total des valeurs contenues dans des cellules?
Tu dis...

EDIT : concernant l'erreur ligne 5 : la syntaxe Range (Plage) n'est pas bonne non plus. Plage suffit... Cf mon exemple ci-dessus

[Philippe Tulliez]

Bonjour,
Pour compléter la réponse de Pijaku.
Pour faire la somme d'une plage ou calculer le nombre de cellules non-vide, tu peux utiliser WorksheetFunction

Code :

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

1
2
3
4
5
6
7
8
 With Worksheets(1)
  Set plage = .Range(.Cells(ligne, 2), .Cells(i, 2))
 End With
 With Application.WorksheetFunction
  Debug.Print .Sum(plage) ' Somme de la plage
  Debug.Print .CountA(plage) ' Compte le nombre de cellules non vide de la plage
 End With
End Sub

[MarcelG]

Bonjour à vous deux, Bonjour le Forum,

Comme tu veux compter le nombre de cellules non vides de ton champ Plage, et le contenu des plages non vides n'est pas précisé, tu peux coder

Code :

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

1
2
3
4
5
6
7
8
Public Sub essai()
Dim plage As Range
Set plage = Range("A3:A11")
With plage
    Debug.Print .Count - .SpecialCells(xlCellTypeBlanks).Count
End With
Set plage = Nothing
End Sub

Tu remarqueras les 2 points suivants:

1 - la variable plage est déclarée en début de code
2 - elle est vidée en fin de code.

Plus généralement, pour des raisons de rapidité et d'efficacité, des méthodes sont considérer en priorité par rapport au balayage des cellules une par une, à savoir les 2 méthodes

Code :

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

SpecialCells

et

Code :

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

Find

Précise ce qe tu attends de ta somme.

Bonne journée.

[usul3]

Merci à vous pour ces réponses aussi élaborées, comme je débute ca m'aide vachement bien.

Concernant la somme c'est pour faire le total des valeurs contenues dans des cellules !!

Merci encore