Aller sur la première ligne vide

Bonjour à tous,

voici bien longtemps que je ne suis pas venu vous embetter en raison de changement de situation professionnelle. J'espère que tout le monde va bien.

Je cherche un bout de code pour aller automatiquement sur la première ligne vide de mon tableau en colonne B.

Je vous joins un bout de programme.

https://www.excel-pratique.com/~files/doc2/Courrierpour_forum.xls

D'avance, merci à tous,

Bien cordialement,

Elfi

Bonjour,

Voici une solution :

Dim lgLigFin As Long

lgLigFin = Worksheets("Courrier").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1

merci pour la rapidité. Je teste et vous tiens au courant.

Bien cordialement,

Elfi

Bonjour,

Essaie ce code pour ajouter une ligne :

Sub Ajout()
'Macro Dan pour Plabrousse le 12/06/09
Dim dlg As Long
With Sheets("Courrier")
dlg = .Range("B65536").End(xlUp).Row
If dlg = 2 Then End
.Range("B" & dlg & ":" & "H" & dlg).Copy Destination:=.Range("B" & dlg + 1)
.Range("B" & dlg + 1 & ":" & "H" & dlg + 1).ClearContents
End With
End Sub

Code à associer à ton bouton.

A noter que ta feuille à un bug car systématiquement, le code remplit la ligne 10. Donc supprime toutes tes lignes jusque la ligne 5 incluse.

Amicalement

Dan

Merci Dan.

Que veux-tu dire par supprime toutes tes lignes. Dois-je recommencer depuis le début?

Je me suis mal expliqué, pardonnez moi.

Mon ojectif, dans le tableau est de recopier la dernière ligne saisie, puis de la vider de son contenu afin de créer une nouvelle ligne de saisie et ce au fur et à mesure que le courrier est dépouillé. J'ai essayé vos code mais je n'arrive pas au résultat escompté.

Je sais, je suis nul en VBA mais je me soigne, hi, hi,

Amicalement,

Elfi

re,

Que veux-tu dire par supprime toutes tes lignes. Dois-je recommencer depuis le début?

Dans ta feuille du fichier que tu as posté, supprime la flèche rouge puis sélectionne toutes les lignes depuis la ligne 6 jusque 22 par exemple, puis EDITION / SUPPRIMER

Mon ojectif, dans le tableau est de recopier...

C'est ce que le code fait.

Quel est le résultat que tu obtiens ?

A te relire

Dan

Super Dan,

en fait rien de fonctionnait car je n'avais pas supprimé les lignes comme tu me l'indiquait. Maintenant, ça marche !

Juste un petit truc:

les cellules de la colonne B contiennent une formule simple qui évite de resaisir la date. Quand j'ajoute une ligne avec ton code, la formule ne se recopie pas. Y a -t-il une solution?

Merci encore,

Elfi

Re,

Effectivement je n'avais pas vu cela.

Change cette ligne dans le code

.Range("B" & dlg + 1 & ":" & "H" & dlg + 1).ClearContents

par

.Range("C" & dlg + 1 & ":" & "H" & dlg + 1).ClearContents

Amicalement

Dan

REm : si ton pb est terminé n'oublie pas le RESOLU sur le fil. Merci de ta particpation.

C'est super DAN.

Je m'en veux car j'aurai pu trouver la correction avec un peu de jugeote.

Tout fonctionne à merveille.

Pour "résolu", c'est OK

Bravo et merci.

Amicalement,

Elfi.