Compter le nbr de cellules

Bonjour,

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

Code:

---

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

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

Code:

---

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:

---

1 2 3 4

Dim Cel As Range, Plage As Range For Each Cel In Plage 'bla bla Next

---

Citation:

---

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

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:

---

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

---

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:

---

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:

---

SpecialCells

---

et

Code:

---

Find

---

Précise ce qe tu attends de ta somme.

Bonne journée.

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

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

Merci encore