aller a la ligne..

[plumazon]

Bonsoir,

Voici mon probleme :

j'ai une serie de chiffre sur deux lignes completes je voudrais avec une macro chercher un chiffre specifique sur ces lignes. Mon probleme est que je ne sais pas comment faire si le chiffre est ds la deuxieme ligne...
Voici mon code:
col = 4
i = 47
While Cells(i, col) < Sheets("Feuil2").Range("b10").Value
col = col + 1
Wend
Sheets("Feuil2").Range("c11").Value = Sheets("Purchasing").Cells(47, col)
Sheets("Feuil2").Select

Merci d'avance

 

[skoobi]

Re : aller a la ligne..

Bonsoir,
si j'ai bien compris, à tester:

Sub test()
c = 0
For i = 47 To 48
    For col = 4 To 256
        If Cells(i, col).Value > Sheets("Feuil2").Range("b10").Value Then
            c = col
            Exit For
        End If
    Next col
    If c = col Then
        r = i
        Exit For
    End If
Next
Sheets("Feuil2").Range("c11").Value = Sheets("Purchasing").Cells(r, c)
Sheets("Feuil2").Select
End Sub

256 est à adapter bien sur.

 

[plumazon]

Re : aller a la ligne..

....me Skoobi et bonne journee