Trouver la derniere ligne de la dernière colonne

[JORDAN]

Boujour tout le monde,
Je souhaite trouver la denière ligne de la dernière colonne
avec la 1ere ligne du code ci-dessous je trouve bien la dernière colonne
ma 2eme ligne est fausse mais je n'arrive pas à trouver la bonne syntaxe
pour trouver la dernière ligne de la dernière colonne
Merci pour votre aide et bonne journée

DerCol = Range("DONNEES!A1").End(xlToRight).Column

DerLigne = Sheets("DONNEES").Cells(.End(xlUp).Row, DerCol)

 

[wilfried_42]

Re : Trouver la derniere ligne de la dernière colonne

Bonjour

à essayer

Derlig = Range("DONNEES!A65536").End(xlUp).Row

 

[vbacrumble]

Re : Trouver la derniere ligne de la dernière colonne

Bonjour

Une autre

DerLig = Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row

ou aussi

DerLigne = ActiveSheet.UsedRange.Rows.Count

A+

 

[JORDAN]

Re : Trouver la derniere ligne de la dernière colonne

Bonjour Wilfried, Vbacrumble,

Merci à tous les deux pour votre aide
Je viens de tester vos codes

Celui de Wilfried donne bien la dernière ligne de la colonne A
mais pas celle de la dernière colonne

Par contre ceux de Vbacrumble trouve la ligne 100 de la dernière colonne ! ! !
et c est pareil pour les 2 codes

je ne pige pas trop

Si vous savez pourquoi ça fait ça ???

 

[allegro50]

Re : Trouver la derniere ligne de la dernière colonne

Bonjour
Pour completer le code Wilfried

Sub derniere()
Derlig = Range("Feuil1!A65536").End(xlUp).Row
Dercol = Range("X" & Derlig).End(xlToLeft).Column

MsgBox Derlig & " " & Dercol
End Sub

 

[mromain]

Re : Trouver la derniere ligne de la dernière colonne

bonjour le fil,

une autre solution :

With ThisWorkbook.Sheets("Feuil1")
    laLigne = .Cells(.Rows.Count, .Columns.Count).End(xlUp).Row
End With

a+

 

[JORDAN]

Re : Trouver la derniere ligne de la dernière colonne

Bonjour Allegro,

Merci pour ton aide

en regardant ton code je pense que cela va trouver la dernière ligne
de la colonne A puis la dernière colonne

Ce que je cherche c'est le contraire
trouver en 1er la dernière colonne puis la derniere ligne de cette colonne

 

[JORDAN]

Re : Trouver la derniere ligne de la dernière colonne

Bonjour mromain

je viens de tester ta solution
ton code me renvoi en colonne CV ??? Bizarre

Je vais joindre un fichier

 

[JORDAN]

Re : Trouver la derniere ligne de la dernière colonne

Ci-joint mon fichier test

Lorsque je saisi une référence dans l'userform1, si elle n'existe pas dans la colonne A
elle est automatiquement ajoutée et vient créer une nouvelle colonne de sous-références
Ensuite avec l'userform2, je viens alimenter cette nouvelle référence et c'est là que
ça ne va plus . . .

j'en profite pour mon 2nd problème :

dans l'userform1 la ombobox2 viens s'alimenter en fonction de la combobox1
Jusque làça va mais si la référence n'existe pas, le combobox1_change plante
ce qui est normal, faut-il rajouter une temporisation ou existe-t-il un autre moyen ??


Merci à vous tous pour votre aide

 

[JORDAN]

Re : Trouver la derniere ligne de la dernière colonne

Re à tous,

ça y est j'ai trouvé, avec un petit mélange de vos codes :

DerCol = ActiveSheet.UsedRange.Columns.Count
DerLigne = Cells(Rows.Count, DerCol).End(xlUp).Row

Cells(DerLigne + 1, DerCol) = UserForm2.TextBox1.Value

Merci et bonne journée

 

[JORDAN]

Re : Trouver la derniere ligne de la dernière colonne

re,

Si ça interesse quelqu'un je joint mon fichier test


Bonne app