Macro : copier la dernière cellule de la colonne

0

Bonjour, comment copier la dernière cellule d'une colonne d'une feuille sur une cellule d'une autre feuille ?

Posté le 3 septembre 2014, 15:09
par yema
Répondre
-1

Tu peux essayer quelque chose comme ça :

Sub DerniereCelluleDeLaColonne()
	'Retourne la valeur de la dernière cellule de la colonne B
	Dim DerniereCellule As String
	With ActiveSheet
		DerniereCellule = .Cells(.Rows.Count, "B").End(xlUp).Row
	End With
	
	'Recopier la valeur dans une nouvelle cellule
	Sheets("Feuil2").Range("A1").Value = DerniereCellule
End Sub
Vince Posté le 3 septembre 2014, 20:19
par Vince
0

Hello,

Pourquoi pas se faire une petite procédure avec passage d'argument :


Sub Bouton1_Clic()
  Call CopyLastCell("Feuil1", "B", "Feuil2", "A1")
End Sub

Sub CopyLastCell(NomFeuilleDépart As String, ColonneDépart As String, NomFeuilleArrivée As String, CellArrivée As String)
  Sheets(NomFeuilleArrivée).Range(CellArrivée).Value = Sheets(NomFeuilleDépart).Cells(Sheets(NomFeuilleDépart).Rows.Count, ColonneDépart).End(xlUp).Row
End Sub
mariowilli Posté le 4 septembre 2014, 08:44
par mariowilli
2

C'est la diégèse

Posté le 19 septembre 2014, 00:14

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :