Recher dans une plage de cellule

[davouille]

Bonjour, j'ai un problème dans cette macro je fais un recherche de DMI: dans la feuille puis je sélectionne a partir de cellule trouvé la dernier cellule vide vers le bas et a droite pour refaire une recherche de "Fabricant du système" dans cette sélection uniquement puis ce bouger a droite de cellule trouvé mais cela ne fonctionne pas pour la dernier ligne. soit = Selection.Offset(0, 1).Select

Cells.Find(What:="DMI:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Find(What:="Fabricant du système", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.Offset(0, 1).Select

 

[skoobi]

Re : Recher dans une plage de cellule

Bonjour davouille,

test en mettant Select à la place de Activate pour la deuxième recherche:

Cells.Find(What:="DMI:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Find(What:="Fabricant du système", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).[B][COLOR=Blue]Select[/COLOR][/B]
    Selection.Offset(0, 1).Select