Methode find

[KTM]

Salut chers tous
Dans le fichier que je joint
J'aimerais par macro sélectionner la plage "A1","B"& lig
La colonne A contient une formule.
lig est le numero de la derniere ligne de la colonne A dont la valeur est differente de zero.
J'ai fai le code qui suit mais il ne fonctionne pas comme j'ai expliqué . Quelque chose ne va pas pas dans mon code. Comment corriger ?

Sub test()
Dim lig As Integer
lig = Range("A1", Range("A1").End(xlDown)).Find(0, Lookat:=xlPart).Row - 1
Range("A1", "B" & lig).Select
End Sub

 

[job75]

Bonsoir KTM,

Sub test()
With [A1].CurrentRegion
    .Resize(Evaluate("MAX(IF(" & .Columns(1).Address & "<>0,ROW(" & .Columns(1).Address & ")))")).Select
End With
End Sub

VBA sait que la formule évaluée est matricielle...

A+

 

[eriiic]

Bonjour,

quand tu travailles avec range.Find toujours l'affecter à une variable range avant.
Ca te permet de tester qu'il a bien trouvé. Sinon si tu fais un .Row sur Nothing, erreur assurée.
J'ai laissé .Select mais c'est à faire que quand on n'a pas lechoix.

    Dim lig As Long, c As Range
    Set c = Range("A1", Range("A1").End(xlDown)).Find(0, Lookat:=xlPart)
    If Not c Is Nothing Then
        ' soit
        lig = c.Row
        Range("A1", "B" & lig).Select
        ' ou :
        [A1:B1].Resize(c.Row).Select
    Else
        'non trouvé
    End If

eric

 

[KTM]

Merci a vous deux .j'ai testé les deux solutions.
Seule celle de Job75 passe mais je voudrais que la sélection concerne les colonnes A et B uniquement

 

[eriiic]

Seule celle de Job75 passe

Ah bon ? Chez moi (2010) ça passe. Ca fait quoi chez toi ?
eric

 

[KTM]

La macro sélectionne toute la plage A1:B10 au lieu de A1:B4 comme dans cet exemple

 

[job75]

Bonjour KTM, eriiiic, le forum,

Puisque vous voulez du Find :

Sub test()
Dim f, c As Range
With [A1].CurrentRegion.Columns(1)
    f = .Formula
    .Value = .Value
    .Replace 0, "", xlWhole
    Set c = .Find("*", , xlValues, xlWhole, , xlPrevious)
    .Formula = f
    If c Is Nothing Then MsgBox "Sélection impossible" Else .Resize(c.Row, 2).Select
End With
End Sub

A+

 

[KTM]

Merci Champion