[vba-excel]Comment modifier donnée sur partie filtrée d'un tableau

Version imprimable

Bonjour,

Voilà, je dois modifier le contenu d'une colonne B si les données de la colonne A correspondante se terminent par INC.
Pour cela, j'ai commencé une macro VBA où je sélectionne les données qui m'intéressent gràce à un filtre puis je lui indique que la colonne B doit contenir que des +.

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 Sub MacroFiltre() Selection.AutoFilter Field:=1, Criteria1:="=*INC" For i = 2 To 3134 Cells(i, 2).Select Application.CommandBars("Stop Recording").Visible = False ActiveCell.FormulaR1C1 = "+" Next i End Sub
Le souci que j'ai c'est que ça ne tient pas compte de mon filtre, toutes les données de la colonne B contiennent +, qu'elles soient sélectionnées ou non.

Merci bcp de me donner un petit coup de pouce,
Virginie

Salut,

je ne te garanti rien mais peut-être que le fait de parcourir la selection sera plus adapté :

Code:

1
2
3
4
5
6
7
8
Sub MacroFiltre()
        Dim MyCell As Range
    Selection.AutoFilter Field:=1, Criteria1:="=*INC"
    For Each MyCell In Application.Selection
        Application.CommandBars("Stop Recording").Visible = False
        MyCell.FormulaR1C1 = "+"
    Next MyCell
End Sub

@++

18/01/2007, 16h46
boniface

Et non,
ça me donne toujours le même résultat à savoir que tte la colonne est remplie par des + que les données soient filtrées ou pas....

Alors essaie en lisant les valeurs :

Code:

1
2
3
4
5
6
7
8
Sub MacroFiltre()  
        Dim MyCell As Range 
    Selection.AutoFilter Field:=1, Criteria1:="=*INC"  
    For Each MyCell In Application.Selection
        Application.CommandBars("Stop Recording").Visible = False  
        If InStr(1, MyCell.Value, "INC") > 0 Then MyCell.FormulaR1C1 = "+"  
    Next MyCell 
End Sub

@++

salut, excel n'a pas besoin que tu lui mette un filtre, il est tout a fait capable de trouver les bonnes valeurs tout seul et bien plus rapidement qu'avec le filtre
essaye ça en changeant le nom de la feuille
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub cherche() With Worksheets("Boucle").Range("a:a") Set c = .Find("*INC.", LookIn:=xlValues) If Not c Is Nothing Then firstaddress = c.Address Do c.Offset(0, 1) = "+" Set c = .FindNext(c) Loop While Not c Is Nothing And Not firstaddress = c.Address End If End With End Sub
ça devrais te plaire