Discussion :

[boniface]

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 :

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

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

[mortalino]

Salut,

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

Code :

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

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

@++

[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....

[mortalino]

Alors essaie en lisant les valeurs :

Code :

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

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

@++

[alsimbad]

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 :

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

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