XL 2016 Coller des données dans la dernière ligne vide

[reredg1234]

Bonjour,

Je sais que c'est un thème déjà abordé mais malgré mes recherches je tourne en rond et je n'y arrive pas...

J'ai un onglet saisie ou des personnes mettent des dispo. Un onglet Copie de BDD qui reprend ces données et un onglet BDD ou j'aimerais coller toutes les dispos des différentes personnes qui auront le fichier.
Donc de coller les données sur la dernière ligne du tableau et après je pourrais faire les extractions.

Ce n'ai peut être pas le système le plus jolie mais je pense que ca fonctionne ^^

Merci pour votre aide et prenez soins de vous ;-)

 

[jmfmarques]

Bonjour
Ta question se résume-t-elle finalement à comment déterminer la dernière ligne remplie d'une colonne X d'une feuille "Feuille" ?

 

[reredg1234]

Bonjour

oui c’est bien ça

 

[jmfmarques]

Bien.
Alors :
ceci te retourne par exemple le N° de la dernière ligne remplie de la colonne D de la feuille "toto"

with worksheets("toto")
  derlig = .range("D" & .rows.count).end(xlup).row
end with

 

[Staple1600]

Bonjour le fil, reredg1234, jmfmarques

Sub matité()
With Worksheets("toto")
  Derlig = .Range("D" & .Rows.Count).End(xlUp).Row
End With
MsgBox Derlig
gilreD = Cells(Rows.Count, "D").End(3).Row
MsgBox gilreD
MsgBox Derlig = gilreD
End Sub

Sinon, il faudrait mieux copier sur la 1ere cellule vide après la dernière ligne non vide, non ?

 

[reredg1234]

Oui c'est effectivement ca : copier sur la 1ere cellule vide après la dernière ligne non vide.

Avec la macro que tu m'as donné cela s'affiche sur la dernière ligne du tableau mais ne continue pas vers le bas.

Comment est ce que je peux faire ?

 

[Staple1600]

Re

•>reredg1234
A qui tu tu adresses ta dernière question à jmfmarques ou à l'autre ?
(L'autre étant moi, je ne m'abuse)

 

[reredg1234]

Oui c’était plutôt pour toi staple1600

 

[jmfmarques]

Comment est ce que je peux faire ?

J'ai pu observer (toi non ?) que la ligne suivant la dernière remplie avait le rang de la dernière remplie + 1.
Etonnant, n'est-il pas ?
Et celle la précédant, le rang de la dernière remplie -1.
C'est comme les jours. Le lendemain est toujours le suivant et la veille, le précédent.
Sur ce ... Bonne suite.

 

[Staple1600]

Re

Alors comme le dit jfmarques, plus un, cela fait trois
(en tout cas, c'est le cas, en VBA)
[A TESTER SUR UNE FEUILLE VIERGE]

Sub carpatique()
Dim DerLig As Long
[A1:E28].Clear: [A1] = "=ROW()^2": [A1:A17].FillDown ' uniquement pour faire le test
[E1:E11] = Application.UserName
DerLig = Cells(Rows.Count, "A").End(3).Row
Range("A1").Copy
Cells(DerLig + 1, "C").PasteSpecial xlValues
Application.CutCopyMode = False
Range("A7").Copy Cells(Rows.Count, "E").End(3)(2)
Application.CutCopyMode = False: [C18,E12].Interior.Color = vbYellow: [C18,E12].Font.Bold = -1
End Sub

NB: Ne retenir et "étudier" que les lignes en gras et magenta.

PS: Bonjour à toi également jmfmarques...
(cf message#5)