Macros Excel 2003 Variable

Résolu
Nina78000 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
Nina78000 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
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 3334 Date d'inscription   Statut Membre Dernière intervention   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 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

super, merci, ça fonctionne.
0