Bonjour,

Je souhaiterai que si la valeur de la cellule A1 est présente dans la colonne A de la ligne 2 à 6, le chiffre 1 soit inscrit dans la cellule P11, si présent dans la colonne B de la ligne 2 à 6, le chiffre 1 soit inscrit dans la cellule P12 etc.

Si ce n'est pas le cas, la valeur 0 est inscrite dans la cellule P associée à la colonne (P11 ou P12...)

J'ai utilisé le code suivant mais ça n'a pas l'air de marcher:

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
17
18
19
Sub test()
 
Dim i As Byte, j As Byte, X As Integer
X = 0
Z = 16
   For i = 2 To 6
      For j = 2 To 6
        If Sheets("page1").Cells(j, i).Value = Range("A1") Then
        X = X + 1
            Cells(11, Z).Value = X
 
            Else: Cells(11, Z).Value = "0"
 
        End If
    Next j
    Z = Z + 1
    Next i
 
End Sub
Merci pour votre aide.
MP