Macros Excel 2003 Variable

Résolu
Nina78000 Messages postés 10 Statut Membre -  
Nina78000 Messages postés 10 Statut Membre -
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.



A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3360 Statut Membre 526
 
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+
1
Nina78000 Messages postés 10 Statut Membre
 
Bonjour,

super, merci, ça fonctionne.
0