Discussion :

[fabrice44]

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

voilà mon code de départ

Code :

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

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

[ouskel'n'or]

Code :

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

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+