Tester présence d'une valeur sur une plage donnée

Version imprimable

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:

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

Bonjour,
essayes comme ça, je n'ai pas vérifié :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
Dim i As Integer, j As Byte, X As Integer
X = 0
Z = 16
i = 1
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
   If j = 6 Then j = 1: Z = 17: i = 2
   If j = 6 And Z = 17 Then Exit For
Next j
 
End Sub

Code:

1
2
3
4
5
6
7
Sub Test()
Dim c As Range
With Sheets("page1")
   Set c = .Range("A2:P6").Find(Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
   If Not c Is Nothing Then .Range("P" & 10 + c.Column).Value = 1
   Set c = Nothing
End with

05/04/2010, 14h38
Monsieur Peck

Re,

casefayere--> il y a une erreur d'excécutuion qui s'affiche: Dépassement de capacité.

mercatog et casefayere --> Je suis trompé dans ce que j'ai écrit dans le premier message, voilà la bonne version:

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 Q11 etc.

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

Merci d'avance pour votre aide

Code:

1
2
3
4
5
6
7
8
sub Test()
Dim c As Range
With Sheets("page1")
   Set c = .Range("A2:P6").Find(Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
   If Not c Is Nothing Then .Cells(11, 15 + c.Column).Value = 1
   Set c = Nothing
End With
end sub

Code:

1
2
3
4
5
6
7
8
9
10
Sub Test2()
Dim c As Range
With Sheets("page1")
    .Range("P11:AD11").Value = 0
    For Each c In .Range("A2:P6")
        If c = .Range("A1") Then .Cells(11, 15 + c.Column).Value = 1
    Next c
End With
 
End Sub

re,
excuses-moi pour le code envoyé trop vite mais mercatog s'occupe mieux de toi
sinon je corrige le mien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
Dim i As Integer, j As Integer, X As Integer, z As Integer
X = 0: z = 16: i = 1: Cells(11, 16) = "": Cells(11, 17) = "" 'reinitialisation des cellules mais pas obligé
For j = 2 To 6
   If Range("A" & j) = Range("A1") Then
      Cells(11, z) = Cells(11, z) + 1
   End If
   If j = 6 And z = 17 Then Exit For
   If j = 6 And z = 16 Then z = 17: j = 1
Next j
If Cells(11, 16) = 0 Then Cells(11, 16) = "0"
If Cells(11, 17) = 0 Then Cells(11, 16) = "0"
End Sub

05/04/2010, 17h51
Monsieur Peck

Merci à vous deux!

Est ce que vous pourriez m'expliquer à quoi correspond chaque terme du morceau suivant:

Code:

.Cells(11, 15 + c.Column)

Merci.
05/04/2010, 18h47
casefayere

c est déclaré comme range, donc c.column représente le numéro de colonne, dans le code de mercatog, suivant ce que find trouve c est egal à 1 (col A) ou a 2 (col B)

a +
05/04/2010, 18h51
Monsieur Peck

Merci pour les infos. :ccool: