[VBA] ecrire dans cellules filtrées

bonjour,
je ne connais pas VBA , je bosse en vb et je file un coup de main a une copine ;) ..

voila mon pb :
je filtre un tableau ... donc il ne me reste plus que certaines lignes .
Je voudrais ecrire par ex dans la colonne D des lignes restantes la date du jour

J ai tente de compter les lignes pour faire une boucle d ecriture mais il me compte l essemble des lignes sans tenir compte du filtre

comment pourrais je faire ??

Merci d avance pour votre aide.

Yann

Bonsoir,

Code:

---

1 2 3 4 5

Sub parcoursItemsVisibles() For Each c In Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible) MsgBox c.Value & " " & c.Address Next c End Sub

---

JB

Citation:

---

Envoyé par Boisgontier

Bonsoir,

Code:

---

1 2 3 4 5

Sub parcoursItemsVisibles() For Each c In Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible) MsgBox c.Value & " " & c.Address Next c End Sub

---

JB

---

bonjour, et merci pour ta reponse .. j ai eu erreur sur [A65000] . j ai changé la valeur et meme pb ..

merci pour ton aide

Yann

Regarde si ça fonctionne mieux ainsi

Code:

---

1 2 3 4

NoCol = 4 For Each c In Range("A1:A65536").SpecialCells(xlCellTypeVisible) Cells(c.Row, NoCol).Value = Format(Now(), "dd/mm/yyyy") Next

---

A+

Citation:

---

Envoyé par ouskel'n'or

Regarde si ça fonctionne mieux ainsi

Code:

---

1 2 3 4

NoCol = 4 For Each c In Range("A1:A65536").SpecialCells(xlCellTypeVisible) Cells(c.Row, NoCol).Value = Format(Now(), "dd/mm/yyyy") Next

---

A+

---

bonsoir, et encore merci de ton aide
ca ne fonctionne toujours pas , en fait la valeur de C est ce qu il y a ecrit dans la case A , et non le numero de ligne

en fait . ca me donne (cells M14.row,36) .. donc ca ne marche pas
merci d avance de ton aide ..

Yann

C est bon ca marche c etait un pb dans la decription de la variable Nocol que j avais defini en string

merci encore de ton aide