poursuivre la recherche la valeur à ligne n+1 si elle n'existe pas à la ligne n

[daocasa]

bonjour,

J'ai passé toute la journée d'hier de trouver solution à mon problème:

comment faire pour la fonction "find" continu de chercher à la ligne n+1, si la ligne n est non trouvé.

For n = 1 To 99

y = Cells(n + 5, 2).Value

l = n + 5
MsgBox (y)


Set k = Range("A109:A297").Find(What:=y)

k.Activate
m = ActiveCell.Row
MsgBox (m)

Range("A" & m & ":AY" & m).Copy

Range("B" & l & ":AZ" & l).PasteSpecial

Next n

 

[Robert]

Re : poursuivre la recherche la valeur à ligne n+1 si elle n'existe pas à la ligne n

Bonsoir Daocasa, bonsoir le forum,

Peut-être comme ça :

Sub Macro1()
Dim n As Byte
Dim l As Byte
Dim y As Variant
Dim k As Range

For n = 1 To 99
    l = n + 5
    y = Cells(l, 2).Value
    MsgBox y
    Set k = Range("A109:A297").Find(What:=y)
    If Not k Is Nothing Then
        m = k.Row
        MsgBox (m)
        Range("A" & m & ":AY" & m).Copy
        Range("B" & l & ":AZ" & l).PasteSpecial
        Exit sub
    End If
Next n
End Sub

 

[daocasa]

Re : poursuivre la recherche la valeur à ligne n+1 si elle n'existe pas à la ligne n

Bonjour,

Merci pour votre réponse effectivement c'est ce que j'ai réalisé , merci pour votre réponse. 🙂