Tester valeurs des cellules de plusieurs colonnes et lignes

[Nagrom]

Bonjour,

Je souhaiterai passer en revue 5 lignes (2 à 6) de 5 colonnes (B à F) pour tester la présence d'une valeur dans ces cellules. J'ai tappé le code suivant mais ça ne fonctionne pas. Pourriez-vous m'indiquer ce qui ne va pas.

Sub test()

For i = B To F
For j = 2 To 6

If Sheets("page1").Range(i & j).Value = B3 Then
    Range("P11").Value = "1"
End If

Next i
Next j


End Sub

Merci d'avance.

 

[ROGER2327]

Re : Tester valeurs des cellules de plusieurs colonnes et lignes

Bonjour Nagrom

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub test()
Dim i, j
   For i = 2 To 6
      For j = 2 To 6
         If Sheets("page1").Cells(j, i).Value = "B3" Then
            Range("P11").Value = "1"
         End If
      Next j
   Next i
End Sub[/B][/COLOR]

ROGER2327
#3062

 

[Nagrom]

Re : Tester valeurs des cellules de plusieurs colonnes et lignes

Merci pour votre réponse. J'ai testé le code mais ça ne fonctionne pas.

J'ai mis ci-joint le fichier avec votre code.

 

[job75]

Re : Tester valeurs des cellules de plusieurs colonnes et lignes

Bonsoir Nagrom, salut Roger,

Aussi par la méthode Find :

Dim ref As Range
Set ref = Sheets("page1").Range("B2:F6").Find(Range("B3"), LookIn:=xlValues, LookAt:=xlWhole)
If Not ref Is Nothing Then Range("P11") = 1

A+

 

[job75]

Re : Tester valeurs des cellules de plusieurs colonnes et lignes

Salut C-C,

Et en plus simple :

If Application.CountIf([B2:F6], [B3]) Then [P11] = 1

ou cette formule en P11:

=REPT(1;SIGNE(NB.SI(B2:F6;B3)))

A+

 

[job75]

Re : Tester valeurs des cellules de plusieurs colonnes et lignes

Re,

C-C a raison, B3 est dans la zone de recherche...

Alors peut-être modifier comme suit (il faut trouver au moins 2 valeurs) :

If Application.CountIf([B2:F6], [B3]) > 1 Then [P11] = 1

ou la formule en P11 :

=REPT(1;NB.SI(B2:F6;B3)>1)

A+

 

[Nagrom]

Re : Tester valeurs des cellules de plusieurs colonnes et lignes

Meric à tous pour les solutions proposées. Je vais tester tous ça.

Bonne soirée.

 

[Nagrom]

Re : Tester valeurs des cellules de plusieurs colonnes et lignes

Bonjour,

Je souhaiterai que si la valeur de la cellule B3 est présente dans la colonne A, le chiffre 1 soit inscrit dans la cellule P11, si présent dans la colonne B, le chiffre 1 soit inscrit dans la cellule P12... Si ce n'est pas le cas, la valeur 0 est inscrite dans la cellule P associée à la colonne

J'ai modifié le code de C-C comme ceci mais ça n'a pas l'air de marcher:

Sub testb_bis()


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.

 

[job75]

Re : Tester valeurs des cellules de plusieurs colonnes et lignes

Bonjour,

Sub Recherche()
Dim n As Byte
[P11:P25].ClearContents
For n = 1 To 15 'pour colonnes de A à O
  [P10].Offset(n) = IIf(Application.CountIf(Columns(n), [B3]) > IIf(n = [B3].Column, 1, 0), 1, 0)
Next
End Sub

Evidemment pour la colonne où se trouve B3 (colonne 2), 1 s'inscrit en P12 s'il y a au moins 2 valeurs.

Et pourquoi du VBA ? Comme déjà dit, des formules utilisant NB.SI en P11 P12... sont beaucoup plus élégantes.

Mais vous préférez peut-être un marteau pour écraser une mouche

A+