Code VBA qui plante

Bonjour à toutes et à tous.

Je voudrais inscrire dans la cellule A25 de la feuille « MENU_BD » le N° de la première ligne vide de la feuille «PORTF_BD »

Je n’y arrive pas.

Comment corriger (ou réécrire entièrement ?) ma macro

Sub RecupNumeroLigneVide()

Dim DerniereLigne As Long

Sheets("MENU_BD").Select

DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row

Sheets("MENU_BD").Range("A25") = DerniereLigne.Value

End Sub

Bonsoir

Lorsque vous postez un code, veillez à utiliser les balises de code </>

Essayez comme ceci :

Sub RecupNumeroLigneVide()
Dim DerniereLigne As Long

With Sheets("MENU_BD")
    DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
    Sheets("MENU_BD").Range("A25") = DerniereLigne
End With
End Sub

Cordialement

Bonjour

Bonjour à tous

Un autre essai.

Option Explicit

Dim DerniereLigne As Long

Sub RecupNumeroLigneVide()
    Sheets("MENU_BD").Select
    DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("MENU_BD").Range("A25").Copy Cells(DerniereLigne, 1)
End Sub

Bye !

Merci à vous deux.

Les codes fonctionnent parfaitement

Bonne soirée

Nota : J'ai bien vu ton panneau DAN, et ça fait un moment que je cherche, mais je je trouve pas le bouton à cocher pour indiquer que mon problème est résolu.

Où se trouve t-il ?

Bonjour,

Quand tu es connecté, regarde le post qui t'a donné la meilleure solution. En haut à droite dans le menu il y a un petit v qui permet de cloturer le fil. Tu peux également le réouvrir si besoin

Cordialement