remplir une cellule aprés tri

[raxou]

Bonjour,

j'ai un Autofilter qui me sélectionne les cases vides de range "g" et je voudrai (avec une macro) remplir ces fameuses cases en mettant "X" sans que cela le fasse à toute la colonne mais seulement aux lignes sélectionnées!!! Les cellules de A à F sont remplies.
Merci d'avance
Raxou

 

[skoobi]

Re : remplir une cellule aprés tri

Bonsoir,

en supposant que les données commencent en G2:
1- d'abord identifier la dernière cellule filtre inactif:

Set dercell = [G65536].End(xlUp)

2- puis ajoutes ceci plus loin après avoir remit le filtre:

For Each cellule In Range([G2], dercell).SpecialCells(xlCellTypeVisible)
cellule.Value = "X"
Next
End Sub
[/CODE]