Discussion :

[buigui]

Bonjour

Je souhaite utiliser application.match pour éviter d'avoir recours à une boucle, plus longue en temps de traitement.

De A1 à A10 j'ai les valeurs 10
De B5 à B10 j'ai les valeurs 1

Code :

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

1
2
3
4
5
6
 Sub Applicationmatch()
                                 With Range("a1:b10")
                                 v = Application.Match(1, Range("b:b"), 0)
                                'Je souhaiterais que la valeur en A soit 1 sur toutes les lignes où la valeur en B est 1
                                End With
    End Sub

Comment coder cela svp?

Merci par avance.
Cdt

[patricktoulon]

bonjour
je comprends pas bien le rapport entre match est ton souhait
match c'est pour matcher une occurence rien a voir avec le fait que tu veuille des "1" partout
soit tu cherche a faire quelque chose et match n'est pas la fonction pour ca
soit tu n'en dis pas assez

[Transitoire]

Bonjour,
Je comprend pas non plus de problème de lenteur qu'il y aurait pour boucler de A1 à A10???
Cordialement

[patricktoulon]

re
perso je dirais qu'une chose "Autofilter" si tu veux les avoir toutes d'un coup tes "1" ou "10"
A mediter

[buigui]

Bonjour à tous, merci pour vos participations.

La feuille sur lequel je travaille a plus de 10.000 lignes, une centaine de colonne, je l'ai schématisée.

Sur un autre macro, j'avais le code suivant:

Code :

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

1
2
3
4
5
6
  L = Cells(Rows.Count, 1).End(xlUp).Row
                    For i = 1 To L
                            If Cells(i, 2).Value = "1" Then
                                    Cells(i, 2).EntireRow.Delete
                            End If
                        Next

Le temps de traitement était très long. J'ai alors utilisé application.match en remplacement pour éviter d'utiliser les boucles. C'est devenu bien plus rapide.

Code :

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

1
2
3
4
5
6
L = Cells(Rows.Count, 1).End(xlUp).Row
 
           With Range("a1:b" & L)
              V = Application.Match(1, Range("b:b"), 0)
              Rows(V & ":" & .Rows.Count).EntireRow.Delete
            End With

Aujourd'hui j'ai la macro ci-dessous utilisant une boucle.

Code :

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

1
2
3
4
5
6
L = Cells(Rows.Count, 1).End(xlUp).Row
                    For i = 1 To L
                            If Cells(i, 2).Value = 1 Then
                                    Cells(i, 1).Value = 1
                            End If
                        Next

Les temps de traitement sont longs. Voilà pourquoi je souhaiterais pourvoir utiliser application.match en remplacement, dans le même esprit que le cas précédent.

Code :

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

1
2
3
4
5
6
Sub Applicationmatch()                               
                                With Range("a1:b10")
                                 V = Application.Match(1, Range("b:b"), 0)
                                'Je souhaiterais que la valeur en A soit 1 sur toutes les lignes où la valeur en B est 1
                                End With
    End Sub

Mes connaissances actuelles en syntaxe VBA me font défaut..
Qu'en pensez-vous? A vous lire.

[patricktoulon]

bonjour
sauf erreur de ma part match te donne UNE!! occurence mais pas toute alors a quoi te servirais match !!!?????

tourne toi vers autofilter ,2 lignes de rien du tout pour filtrer une colonne et c'est bouclé
je ne peux etre plus clair

regarde comme c'est simple
exemple

Code :

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

1
2
3
4
5
6
7
Sub test()
With ActiveSheet.Range("B1:B10")
    .AutoFilter Field:=1, Criteria1:="1"
    .SpecialCells(xlVisible).Offset(0, -1).Value = 1
    .AutoFilter
End With
End Sub