manipulation de plage de cellules resultant d'un filtre

[christa]

Bonjour a tous,

J'aimerais savoir comment constituer une plage de cellules issues du resultat d'un filtrage et parcourir chaque cellule de la plage en leur assignant une valeur.

en ce qui concerne la plage, mon code ne fonctionne pas :
Sub Plage()
Dim toto As Range
toto = Range("a1:a10")
Dim cell As Range
For Each cell In toto
cell.Value = "3"

Debug.Print (cell.Value)
Next cell
end sub


merci d'avance pour toute aide

 

[frangy]

Re : manipulation de plage de cellules resultant d'un filtre

Bonjour Christa,

Pour attribuer la référence de la plage A1:A10 à la variable toto, tu dois utiliser l'instruction SET.

Sub Plage()
Dim toto As Range, cell As Range
    Set toto = Range("a1:a10")
    For Each cell In toto
        cell.Value = "3"
    Next cell
End Sub

A+

 

[christa]

Re : manipulation de plage de cellules resultant d'un filtre

merci beaucoup frangy,ca fonctionne tres bien, je verrai demain comment faire fonctionner une plage issue d'un filtre