compter dans plusieur colonne

recoucou

je n'ai toujours pas trouvé comment compter le nombre de "x" situé dans plusieurs colonnes sans refaire mon code x le nombre de colonne

qqu'un aurait une solution

merci :cry:

voilà mon code de départ

Code:

---

1 2 3 4 5 6 7

Dim i As Integer For i = 3 To 40     If Worksheets("fc 2007").Cells(i, 14) = "x" Then Worksheets("fc 2007").Cells(77, 2) = Worksheets("fc 2007").Cells(77, 2) + 0.5 Next

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub LaSub() Dim fl1 As Worksheet Dim DerniereLigne as long Dim DerniereColonne as integer Set fl1 = Worksheets("fc 2007") DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column   Set plage = fl1.Range("A1:" & Cells(DerniereLigne, DerniereColonne).Address) For Each Cel In plage If LCase(Cel) = "x" Then fl1.Cells(77, 2) = fl1.Cells(77, 2) + 0.5 Next Next   End Sub

---

Pas testé
Tu dis
A+