Macros Excel 2003 Variable Résolu/Fermé

Question

Bonjour, 

J'ai plusieurs fichiers a traiter quotidiennement dans mon travail.
On ma bien aidé ici pour la dernière ligne colonnes variable sur un fichier. Un gd merci.

mais j'ai encore le problème. Le même. sauf devant cette fameuse colonne avec le nombre lignes variable j'ai des cellules vide. Donc ma formule ne prend pas en compte ma demande (Range"A" ou "B" ou "C") et fait défiler les donnés sur la colonne de la feuille entière.
J'ai essayé les colonnes divers et défini, mais ça ne change pas, la colonne est infini, au lieu de s'arrêter au niveau demandé.
je ne sais pas si mon explication est claire.
voila mes formules.

Sub LesDer()
Dim Derli As Long, DerCol As Long
Dim DerCel As Long
Derli = Range("A" & Rows.Count).End(xlUp).Row

   Range("X2").Select
     ActiveCell.FormulaR1C1 = "URGENT"
    Range("W2").Select
    'pas repondue
    ActiveCell.FormulaR1C1 = "X"
    Range("W2:X2").Select
    Selection.AutoFill Destination:=Range("W2:X2" & Derli), Type:=xlFillDefault
    Range("W2:X2" & Derli).Select
    
merci pour votre aide.

 

Configuration: Windows XP / Chrome 32.0.1700.107

Gyrus · Answer

Bonjour,

Essaie comme cela :

Sub LesDer()
Dim Derli As Long, DerCol As Long
Dim DerCel As Long
    Derli = Range("A" & Rows.Count).End(xlUp).Row
    Range("X2").FormulaR1C1 = "URGENT"
    Range("W2").FormulaR1C1 = "X"
    Range("W2:X2").Select
    Selection.AutoFill Destination:=Range("W2:X" & Derli), Type:=xlFillDefault
End Sub

A+