Macro excel, detection de fin de tableau
Bonjour,
Je suis très débutant.
Pour ne pas tronquer un tableau évolutif, j’indique dans ma macro une valeur de nombre de lignes 10 fois supérieures a la réalité afin d'être sur de la fin de mon tableau.
Exemple 2000 lignes dans l'exemple ci-dessous
Selection.AutoFill Destination:=Range("D2:D2000"), Type:=xlFillDefault
Range("A" & Rows.Count).End(xlUp).Select
Columns("D:D").Select
Selection.NumberFormat = "#,##0.00 $;[Red]#,##0.00 $"
Range("D2:D2000").Select
Cette façon de faire marche bien, mais ce n'est pas satisfaisant
Pour la fin du tableau, rien de plus efficace qu’une boucle qui compte le nb de lignes
Voici mon code
Range("D2").Select
IntNbLigne = 2
While Range("D" & CStr(IntNbLigne)) <> ""
IntNbLigne = IntNbLigne + 1
Wend
IntNbLigne = IntNbLigne - 1
Selection.AutoFill Destination:=Range("D2
Range("D2:D" & CStr(IntNbLigne)).Select
Range("D1061").Select
ActiveWindow.LargeScroll Down:=9
ça ne marche pas , j'ai un code execution 1004 avec le message suivant
La méthode AutoFill de la classe Range a échoué
Pouvez vous m'indiquer mon Erreur
Merci Cordialement
Bonjour et bienvenue sur le forum
Essaie en supprimant les 2 dernières instructions.
Bye !
Merci pour ta rapide réponse, mais ça ne marche pas
Bonne soirée
Cordialement
Bonjour,
Merci de joindre un fichier et des explications précises de que tu souhaites.
Cdlt.