Discussion :

[Yannv]

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

[Invité]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Yannv]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Regarde si ça fonctionne mieux ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Yannv]

Regarde si ça fonctionne mieux ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Yannv]

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