Equivalent rechercheV et doublons [VBA]

Version imprimable

30/06/2014, 14h01
simon12

Equivalent rechercheV et doublons [VBA]

Bonjour à tous,

Débutant en VBA, et après des recherches, je suis bloqué sur deux points de mon petit programme qui devrait permettre une mise en forme d'une feuille Excel.

- Mon classeur contient deux feuilles. La première feuille contient des informations sur les colonnes A à K et la seconde sur les colonnnes A,B et C.
La colonne K a été remplie à partir de K10 à partir de la formule suivante : =RECHERCHEV(F10;Feuil1!A:C;2;FAUX)
Ensuite, j'ai étiré jusqu' à la fin de la feuille afin d'obtenir les valeurs souhaitées pour le reste.
Je souhaiterai que cette opération soit automatisée via une macro qui permette de faire cette recherche lors de chaque changement de la feuille. J' ai regardé la fonction vlookup mais je n'arrive pas au résultat voulu, certainement du à un problème de synthaxe.

- Ensuite, une macro va permettre de mettre en forme les deux feuilles sur une seule . Je souhaite supprimer toutes les lignes en doublon ( colonnes B et C identiques). Je sais qu'il est possible de le faire via "Données">"Supprimer les doublons" mais je souhaiterai faire cette opération sur lancement d'une macro. Mon code fonctionne pour un faible nombre de lignes, mais lorsque le nombre de lignes est élevé (ici environ 20 000) l'application met beaucoup de temps pour effectuer la recherche.

Merci de m'aiguiller un peu sur les possibilités.
Cordialement, Simon

Bonjour,

Tu devrais essayer quelque chose qui ressemble à ça:
Code:

1 2 3 4 5 6 7 8 9 10 Function Look_for(Valeur_cherchee As Variant, Plage_recherche As Range, Decalage As Integer) Look_for = Plage_recherche.Find(Valeur_cherchee).Offset(0, Decalage) End Function Sub test_look_for() MsgBox Look_for(Range("D2"), Range("A4:A8"), 1) End Sub Sub Dedoublonnage(Plage As Range) Plage.RemoveDuplicates Columns:=1, Header:=xlNo End Sub
La première fonction fait comme un rechercheV, sauf qu'elle ne peut pas rendre de valeur approximative, et le décalage est de 1 au lieu de 2 pour rendre la valeur située dans la colonne à droite etc. Essaie ce sera plus simple à comprendre

La deuxième est crée via enregistreur de macro et dédoublonne la plage selon sa première colonne.

Cordialement

Mr Poulpe

30/06/2014, 15h23
simon12

Bonjour,

Merci pour la réponse aussi rapide. Je suis en train d'essayer d'adapter la première fonction à mon problème.

Je ne comprend pas la deuxième par contre, je renseigne plage comment?

Merci
30/06/2014, 15h26
Mr Poulpe
Il est nécessaire de l'appeler depuis une autre procédure en renseignant la plage à dédoublonner en argument.

Par exemple avec un
Code:

1 2 3 Sub TEST2 Dedoublonnage(sheets(2).usedrange) End sub
Poulpe
30/06/2014, 15h57
simon12

Super, merci beaucoup
est-il possible de considérer les doublons que si deux colonnes ( ex: B et C) sont identiques ?
exemple:
B C
jean 1
robert 2
michel 1
jean 4
jean 1

ou seule la dernière ligne serait supprimée...

Remplace

Code:

1
2
3
Sub Dedoublonnage(Plage As Range)
Plage.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Par

Code:

1
2
3
Sub Dedoublonnage(Plage As Range)
Plage.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
End Sub

Oups, petit correctif sur ma fonction :

Code:

1
2
3
Function Look_for(Valeur_cherchee As Variant, Plage_recherche As Range, Decalage As Integer)
Look_for = Plage_recherche.Find(Valeur_cherchee, , xlValue, xlWhole).Offset(0, Decalage)
End Function

Tu risques de tomber sur des résultats bizarres sinon...

Bonjour,

merci beaucoup pour ces propositions.
J'ai corrigé la fonction "Look_for" comme vous me l'avez dit mais lorsque j'exécute le programme, un message d'erreur m'indiquant que l'indice n'appartient pas à la sélection apparait alors qu'elle n'apparaissait pas avant...

La fonction dédoublonnage me renvoie aussi un message d'erreur " argument ou appel de procédure incorrect"
Je cherche la raison.

Cordialement, Simon

J'ai supprimé l'erreur sur la fonction dédoublonnage en enlevant "Base 1" en tête du programme.

Voici mon code, mais la fonction Look_for me renvoie une erreur que je n'arrive pas à résoudre. Une idée?
Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Option Explicit
 
 
Sub programmeconversion()
 
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("regroupement")
 
recherchev_emplacements
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dedoublonnage (Sheets(1).UsedRange)
 
 
End With
End Sub
 
Function Look_for(Valeur_cherchee As Variant, Plage_recherche As Range, Decalage As Integer)
Look_for = Plage_recherche.Find(Valeur_cherchee, , xlValue, xlWhole).Offset(0, Decalage)
 End Function
 
 
Function recherchev_emplacements()
 
Dim derlign As Long, i&, j&, lim&
Dim valComp As String
Dim tabloIni, Temp
Dim derlign2 As Long
 
 
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("regroupement")
 
derlign = Range("B" & Rows.Count).End(xlUp).Row
derlign2 = Range("N" & Rows.Count).End(xlUp).Row
tabloIni = Range("A1:E" & derlign).Value
lim = UBound(tabloIni, 1)
ReDim Temp(1 To lim, 1 To 4)
j = 1
 
For i = 1 To lim
    valComp = tabloIni(i, 4)
 
    If valComp = "" Then
        Temp(j, 1) = tabloIni(i, 1)
        Temp(j, 2) = tabloIni(i, 2)
        Temp(j, 3) = tabloIni(i, 3)
        Temp(j, 4) = Look_for(Range("c" & i), ThisWorkbook.Sheets("regroupement").Range("M1:M" & derlign2), 1)
        j = j + 1
        Else
        Temp(j, 1) = tabloIni(i, 1)
        Temp(j, 3) = tabloIni(i, 3)
        Temp(j, 2) = tabloIni(i, 2)
        Temp(j, 4) = tabloIni(i, 4)
 
 
        j = j + 1
    End If
Next i
 
derlign = UBound(Temp, 1)
Range("A1:D" & derlign) = Temp
End With
 
 
End Function
 
Function Dedoublonnage(Plage As Range)
Plage.RemoveDuplicates Columns:=Array(2, 3), Header:=xlNo
End Function

Mon problème survient lorsque la fonction Look_for ne trouve pas de correspondance.
Est-il possible de de passer à la ligne suivante si aucune correspondace, sans envoyer de message d'erreur?

01/07/2014, 14h56
Mr Poulpe

Si tu veux juste ignorer, fais un "On error resume next" avant l'appel à la fonction, suivi d'un "on error goto 0" après.
01/07/2014, 15h34
Marc-L

Bonjour, bonjour !

Citation:

Envoyé par simon12

Mon problème survient lorsque la fonction Look_for ne trouve pas de correspondance.
Est-il possible de de passer à la ligne suivante si aucune correspondace, sans envoyer de message d'erreur?

Mauvaise utilisation de la méthode Find, pourtant il suffit de suivre l'exemple de son aide intégrée au VBA !

Comme dans les dizaines d'exemples dans les discussions de ce forum …

Et pous les doublons, il y a ce qu'il faut dans la :faq: sans oublier le tutoriel dédié !
01/07/2014, 16h14
simon12

Merci pour vos réponses.
Je vais essayer d' approfondir afin de faire fonctionner cette méthode dans mon cas.

Simon