Recherche dans une plage

jp14

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Re : Recherche dans une plage

Bonsoir jp14

tu peux essayer le code ci dessous :

Code:
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!

XLDnaute Barbatruc
Re : Recherche dans une plage

Bonsoir jp14, Pierrot93, le Forum,

Dans la plupart des cas, on peut aussi faire directement :
Code:
[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,
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 966
Membres
101 852
dernier inscrit
dthi16088