XL 2010 Macro qui applique la valeur conditional format

Soleil11

XLDnaute Occasionnel
Bonjour le forum,

J'ai ma macro qui parcoure les celulles depuis K4 jusqu'à la fin et copy la même valeur dans chaque cellule afin le conditional format s'applique jusqu'à la dernière qu'il a compté. Mais j'ai un petit problème il ne l'applique pas jusqu'à la dernière cellule. Pourtant le count correspond bien au nbre de cellules qu'il doit parcourir.

Pourriez-vous m'aider , j'ai attaché in fichier exemple.

_________________
Sub validatincondformat()

Dim x As Long

Dim NumRows As Long

NumRows = Range("K4", Range("K4").End(xlDown)).Rows.Count

ReDim a(1 To NumRows)

For x = 1 To NumRows

a(x) = Cells(x, 11).Value
Cells(x, 11).Value = a(x)

Next x
End Sub
__________________________

Merci pour votre aide.

Soleil11
 

Pièces jointes

  • Book1.xlsm
    21 KB · Affichages: 36

Discussions similaires

Statistiques des forums

Discussions
312 194
Messages
2 086 066
Membres
103 110
dernier inscrit
Privé