dernière cellule occupée d'une ligne

[46MNO83]

Bonjour à toutes, à tous

C'est fantastique toutes les réponses que vous donnez et c'est super.
Sur le site j'ai trouvé, pour une macro, comment aller à la dernière cellule d'une colonne
Vous aurez peut-être la formule pour trouver la dernière cellule occupée d'une ligne

Merci à tous

 

[kjin]

Re : dernière cellule occupée d'une ligne

bonsoir,

MsgBox [IV10].End(xlToLeft).Address 'adresse ligne 10
'MsgBox [IV10].End(xlToLeft).Column 'colonne ligne 10

A+
kjin

 

[blord]

Re : dernière cellule occupée d'une ligne

Bonjour à tous, 46MNO83,

Pour trouver la première cellule vide de la ligne 1 :


Range("IV1").End(xlToLeft).Offset(0, 1).Select


Si on veut sélectionner la cellule non vide on fait :

Range("IV1").End(xlToLeft).Select

Blord

 

[ROGER2327]

Re : dernière cellule occupée d'une ligne

Bonsoir

Sub cell_droite()
    Selection.Offset(0, Columns.Count - Selection.Column).End(xlToLeft).Select
End Sub

sélectionne la dernière cellule non vide de la ligne où est la sélection courante.​

Bonne nuit.
ROGER2327

 

[46MNO83]

Re : dernière cellule occupée d'une ligne

merci à vous trois, c'est vraiment sympa de répondre et en plus aussi vite
et c'est sur ça fonctionne très bien et je peux vous assurer que je vais m'en servir plutôt que d'utiliser des boucles

si ce n'est vous demander
pour la dernière ligne de colonne A j'ai cette formule et je pouvais jongler avec la variable x
x = Range("A" & Cells.Rows.Count).End(xlUp).Row
ne serai t'il pas possible de faire pareil pour la dernière colonne d'une ligne

bonne soirée

 

[ROGER2327]

Re : dernière cellule occupée d'une ligne

Bonsoir 46MNO83

Sub cell_droite()
Dim x as Long
    x = Selection.Offset(0, Columns.Count - Selection.Column).End(xlToLeft).Column
End Sub

affecte le rang de la dernière cellule non vide de la ligne où est la sélection courante à la variable x.​

ROGER2327

 

[46MNO83]

Re : dernière cellule occupée d'une ligne

Merci Roger2327
je suis émerveillé
Tu es vraiment super, je te remercie
Sincèrement...