Boucle jusqu'à la dernière cellule saisie

[J-Charles]

Bonjour à tous,

Je travaille sur un tableau dont le nombre de lignes varie. J'ai nommé la dernière cellule saisie de la colonne A avec la commande:

Range("A65536").End(xlUp).select
Selection.Name="DerCellule"

.
Je voudrais donc effectuer une boucle de A1 à la cellule nommée DerCellule. J'ai écris les lignes suivantes sans succés:

Range ("A1").select
Do While ActiveCell.Name <> "DerCellule"
... lignes de commandes

J'ai essayé d'autres commandes sans succés.
Quelqu'un aurait il une idée ? Je vous remercie tous d'avance.

 

[Catrice]

Re : Boucle jusqu'à la dernière cellule saisie

Bonjour,

Entre autres, tu peux essayer ceci :

Sub test()
For Each X In Range("A1:" & Range("A65536").End(xlUp).Address)
MsgBox X ' ou ici ton code
Next
End Sub

 

[J-Charles]

Re : Boucle jusqu'à la dernière cellule saisie

Salut Catrice,

Merci pour la rapidité de ta réponse, mais cette solution ne convient pas, j'avais essayer queque chose de semblable. Le problème est que dans ma colonne A les cellules sont toutes fusionnées par 2 ou 3 ou 4 ... et le reste de ma commande, fait que la macro fait du "sur place" dans la même cellule.
Merci encore.

 

[J-Charles]

Re : Boucle jusqu'à la dernière cellule saisie

Salut

Aprés de nombreuses recherches infructueuses et tout à fait par hasard, j'ai trouvé la réponse à ma question.
Dans ma boucle, il fallait écrire Do While Activecell <> Range("DerCellule") ... et non Do While Activecell <> DerCellule ...
Encore merci à ceux qui ont essayer de m'aider

 

[Catrice]

Re : Boucle jusqu'à la dernière cellule saisie

Re,

Je ne savais pas qu'il y a vait des cellules fusionnées ...
Ci-dessous, une solution pour les cellules fusionnées :

Sub test()
For Each X In Range("A1:" & Range("A65536").End(xlUp).Address)
If X.MergeArea.Resize(1, 1).Address = X.Address Then MsgBox X
Next
End Sub

Tu peux aussi faire ceci :
Sub test2()
Set fin = Range("A65536").End(xlUp)
Range("A1").Select
Do While ActiveCell <> fin
MsgBox ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Mais il faut selectionner les cellules, c'est plus long.

 

[J-Charles]

Re : Boucle jusqu'à la dernière cellule saisie

Bonjour Catrice,

Je suis désolé de n'avoir pu répondre plus tôt, mais la journée a été chargée. Demain matin j'effectue les test de tes lignes de code et je te tiens au courant.
Merci beaucoup