Discussion :

[m@tix]

Bonjour,

Comme le titre l'indique, je cherche le code pour retourner dans une variable la dernière cellule remplie d'une ligne. Je pense qu'il faut utiliser la fonction End(xlLeft), mais je me perds un peu..

Pour info, mon but est d'effacer l'ensemble données de la ligne i (variable), excepté la première cellule, (i,1) donc. Peut-être y-a-t-il plus simple ?

J'avais déjà tenté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks(xxx).Worksheets(yyy).Rows(i).Select
Selection.EntireRow.ClearContents

... mais là tout s'efface évidemment.

Merci d'avance !

[jfontaine]

Bonjour,

Plutot xltoright

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(i).End(xlToRight).Column

pour la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i,Rows(i).End(xlToRight).Column).select

[m@tix]

Merci jfontaine !

Et à partir de là, comment ferais-tu pour effacer ce que je souhaite (voir premier post) ?

Edit: au passage, je pense que tu voulais plutôt écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, Columns(i).End(xlToRight).Column).Select

[mercatog]

mon but est d'effacer l'ensemble données de la ligne i (variable), excepté la première cellule, (i,1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub aaa()
Dim Temp As String                     'à adapter
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")              ' à adapter
    Temp = .Range("A" & i)
    .Rows(i).ClearContents
    .Range("A" & i) = Temp
End With
End Sub

Regarde ce lien

Ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim LastCol As Integer
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")              ' à adapter
    LastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
    If LastCol > 1 Then .Range(.Cells(i, 2), .Cells(i, LastCol)).ClearContents
End With

[m@tix]

Merci mercatog, ça fonctionne impec !
J'étais parti sur quelque chose comme ça, qui ne passe pas évidemment... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
lastcell = Workbooks(xxx).Worksheets(yyy).Cells(i, Columns(i).End(xlToRight).Column).Address
Workbooks(xxx).Worksheets(yyy).Range("B & i :l astcell").ClearContents

Pourquoi ? Etait-ce possible en raisonnant de façon similaire ?

[jfontaine]

Edit: au passage, je pense que tu voulais plutôt écrire:

Code :Sélectionner tout - Visualiser dans une fenêtre à part
Cells(i, Columns(i).End(xlToRight).Column).Select

Non il s'agit bien de Row si tu veux connaitre la dernière cellule d'une ligne.