Syntaxe application.match en remplacement de boucle

Version imprimable

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:

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

12/07/2018, 18h01
patricktoulon

re

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
12/07/2018, 18h36
Transitoire

Bonjour,
Je comprend pas non plus de problème de lenteur qu'il y aurait pour boucler de A1 à A10??? :weird:
Cordialement 8-)
12/07/2018, 19h16
patricktoulon

re

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

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:

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:

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:

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:

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.

13/07/2018, 12h41
patricktoulon

re
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:

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
;)
13/07/2018, 13h52
buigui

Merci Patrick

Sacrément simple en effet. :D

Par contre, et je ne sais pas expliquer pourquoi, tu pourras voir que l'exemple application.match que j'ai donné fonctionne bien sur plusieurs lignes en même temps (pourvu qu'elles soient regroupées).
13/07/2018, 13h59
patricktoulon

re

re
de rien j
e regarderais ce soir match tu m'a rendu curieux d'avoir pris ce chemin la ;) pour ce que tu a a faire
surtout que meme si ca fonctionne tu est obligé de boucler sur les item retournés pas matchet boucler serait contraire a ton souhait qui est de sortir du system de boucle si j'ai bien compris
13/07/2018, 14h37
buigui

Cette utilisation d'application.match pour supprimer des lignes je la pratique depuis un certain temps, elle m'avait été conseillée sur ce forum. Sans boucle, simplement comme je l'ai rédigée plus haut. Tu me diras...
13/07/2018, 15h44
patricktoulon

1 pièce(s) jointe(s)

re

re
OK je te dis :c'est bien ce que je pensais ca te donne bien la premiere occurence mais pas les autres ,d'ou mon questionnement sur l'utilisation de cette methode dans ton cas qui n'est pas appropriée

Pièce jointe 396359
14/07/2018, 12h08
RyuAutodidacte
Bonjour buigui (:coucou: Patrick),

Citation:

Envoyé par buigui

Cette utilisation d'application.match pour supprimer des lignes je la pratique depuis un certain temps, elle m'avait été conseillée sur ce forum. Sans boucle, simplement comme je l'ai rédigée plus haut. Tu me diras...

Avant de copier, il est important d'en comprendre le principe, voilà l'exemple à adapter (le Delete peut être remplacé par Clear) :
Exemple à adapter

L'utilisation de :
Code:

1 2 3 Application.ScreenUpdating = False 'le code Application.ScreenUpdating = True
en début et fin de code permettra d'accélérer celui-ci
14/07/2018, 12h25
patricktoulon

re

bonjour RYU

oui mais de toute facon son but etait de suprimer le besoins de boucle donc match heu...comment dire ?????
bref ca n'est pas appropriété dans le cadre d'un replace par 1 dans une masse de cellules sans quoi il faut boucler forcement
c'est sur ce point que j'essaie d'eclairer la lanterne de buigui
pour cet exercice la et les contraintes du demandeur , il n'y a rien de plus simple qu'un filtre
14/07/2018, 12h35
RyuAutodidacte

Re,

Relis bien le "Quote" j'ai fait une modif sur mon précédent post (bold, rouge), ce qu'il a inscrit n'a rien à voir et n'est pas remis en contexte

De plus la méthode utilise une colonne Temporaire pour ce faire.

Edit : après je ne connais pas l'agencement de ses données …
27/07/2018, 15h34
buigui
Citation:
Envoyé par 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:

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

;)
Bonjour Patrick,

Lorsqu'aucune des cellules de B1 à B10 n'a la valeur 1, un message d'erreur apparait.
Comment y remédier stp?
27/07/2018, 23h18
patricktoulon

re
bonsoir
fait un test countif avant le filtre tout simplement et tu sort si 0