Prendre en considération la dernièe ligne dans une macro
Fermé
aziz_alg80
Messages postés
383
Date d'inscription
vendredi 12 février 2010
Statut
Membre
Dernière intervention
3 juin 2024
-
Modifié le 12 nov. 2019 à 06:53
aziz_alg80 Messages postés 383 Date d'inscription vendredi 12 février 2010 Statut Membre Dernière intervention 3 juin 2024 - 12 nov. 2019 à 21:40
aziz_alg80 Messages postés 383 Date d'inscription vendredi 12 février 2010 Statut Membre Dernière intervention 3 juin 2024 - 12 nov. 2019 à 21:40
A voir également:
- Prendre en considération la dernièe ligne dans une macro
- Aller à la ligne dans une cellule excel - Guide
- Vente en ligne particulier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Partager photos en ligne - Guide
- Macro word - Guide
1 réponse
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
12 nov. 2019 à 07:42
12 nov. 2019 à 07:42
Bonjour,
Dernier cellule non vide colonne E:
Dernier cellule non vide colonne E:
derlig = Range("E" & Rows.Count).End(xlUp).Row
12 nov. 2019 à 21:40
Finalement le code est :
Sub Macro_DCD()
Dim derlig As Integer
Range("A1").Select
derlig = Range("A" & Rows.Count).End(xlUp).Row
Range("E1").Select
ActiveCell.FormulaR1C1 = "Montant"
Range("E2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E" & derlig)
Range("F1").Select
End Sub
Encore une fois merci