Recherche dans une plage

[jp14]

Bonjour

Dans une macro
j = Sheets("nomfeuille1").Cells.SpecialCells(xlLastCell).Address
permet de déterminer la dernière cellule remplie de la feuille nomfeuille1

For Each cellule In champ
permet de balayer l'ensemble des cellules qui se trouve dans la plage champ.

Comment affecter à la variable champ ( dim champ as range) la zone allant de la cellule A1 à la cellule dont l'adresse est dans j ( après avoir supprimé le carractère dollar).

Merci d'avance pour la réponse.

 

[Pierrot93]

Re : Recherche dans une plage

Bonsoir jp14

tu peux essayer le code ci dessous :

Sub test()
Dim j As String
j = Sheets("feuil1").Cells.SpecialCells(xlCellTypeLastCell).Address(0, 0)

For Each c In Range("A1:" & j)

Next c
End Sub

Bonne soirée
@+

 

[myDearFriend!]

Re : Recherche dans une plage

Bonsoir jp14, Pierrot93, le Forum,

Dans la plupart des cas, on peut aussi faire directement :

[SIZE=2][COLOR=NAVY]Dim[/COLOR] Cellule [COLOR=NAVY]As[/COLOR] Range
    [COLOR=NAVY]For Each[/COLOR] Cellule [COLOR=NAVY]In[/COLOR] Sheets("nomfeuille1").UsedRange
        [COLOR=GREEN]'...[/COLOR]
        [COLOR=GREEN]'...[/COLOR]
    [COLOR=NAVY]Next[/COLOR] Cellule[/SIZE]

Je dis "dans la plupart des cas" car UsedRange ne représentera que la plage de cellules utilisée dans la feuille et ne commencera donc pas forcément en A1 (par exemple, si la colonne A ne contient aucune donnée, UsedRange pourra donc commencer en B1). La dernière cellule de UsedRange est, par contre, nécessairement similaire à SpecialCells(xlCellTypeLastCell).

Cordialement,

 

[jp14]

Re : Recherche dans une plage

Bonjour Pierrot93,myDearFriend!, le Forum,

Merci pour vos réponses.

JP