Discussion :

[jpvba]

Bonjour a vous,


J'ai trouvé sur le forum une function qui me semble très intéressante et si modifié pourrais répondre a un de mes besoins. (la function a été posté par Daranc)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function rmult(valcherch As Variant, x As Range, colonne As Long) As Variant
Dim u As Variant
Dim nb As Long
Dim boucle As Long
 
 
 
For boucle = 1 To x.Rows.Count
 
    If x(boucle, 1) = valcherch Then
        u = u & x(boucle, colonne) & "~"
        nb = nb + 1
    End If
 
Next boucle
 
 
rmult = u
 
End Function

Ce que je voudrais avoir comme résultat serais au lieu d'avoir un séparateur qui est ~ dans l'exemple ci-haut que les résultats sois copie dans une cellule différente dans la meme rangé

Par exemple dans la cellule a1 résultat1, cellue b1 résultat2, etc ...


merci encore une fois !!!

[geogeo70]

Bonsoir,

La fonction recherche une valeur en colonne 1 d'une base et rend une valeur de même ligne de la colonne choisie. Toutes les valeurs rendues sont concaténées en une chaîne séparée par des "~"...
Je pense qu'une fonction ne peut être utilisée par des "effets de bord" (par exemple écrire dans les cellules d'une feuille). Dans votre cas il vaudrait mieux la réécrire en Procédure Sub.
J'ai fait un essai,

Code :

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

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
Sub rmult(valcherch As Variant, x As Range, colonne As Long, r As Long)
Dim u As Variant
Dim nb As Long
Dim boucle As Long
 
 
nb = 1
For boucle = 1 To x.Rows.Count
 
    If x(boucle, 1) = valcherch Then
        x(nb, r) = x(boucle, 1)
        x(nb, r + 1) = x(boucle, colonne)
        nb = nb + 1
    End If
 
Next boucle
 
End Sub
 
Sub essai()
Dim x As String
Dim source As Range
 
Set source = Range("sources")
Call rmult("riri", source, 2, 4)
End Sub

j'ai mis en plus le paramètre r pour la colonne résultat


cordialement
geogeo

[jpvba]

Salut geogeo

merci beaucoup pour ton aide , c'Es apprécié !!!

Il faudrait que la sub choisi automatiquement l'endroit ou que la function rmul a été exécuté.

J'aurais pensé une sub utilisant un copier spéciale valeur avec un convertir afin de créé les colonnes

Ce qui serais vraiment le top des tops
c'est qu'au lieu du séparateur, que chacun des valeurs soient dans la meme cellule sur une ligne différente (comme lorsque l'on fait un alt+enter). Également il faudrait que ce sois seulement les valeurs différentes qui sont trouvé.

Est-ce qu'il y a quelqu'un qui peut m'aider ???

[geogeo70]

peux tu donner un exemple de resultat par rapport à mon exemple?

merci
geogeo

[jpvba]

Bonjour geogeo,

Pour le alt+enter j'ai remplacer le tilde (~) par chr(10) et ca fonctionne.


Si je me fis a ton exemple, il faudrait rajouter d'autre ligne car tu n'a pas des doublons.

Supposons que nous aurions


riri 8
riri 9
riri 10
riri 8
riri 11

et que j'exécute la function, nous aurions 8, 9, 10, 8, 11

ce que je veux c'est avoir comme résultat serais 8, 9, 10, 11



un gros merci !!!

[Al__22]

Tu peux vérifier ceci en utilisant un dictionnaire ou alors un tableau (si les données renvoyées par ta recherche sont des valeurs) mais c'est moins beau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub rmult(valcherch As Variant, x As Range, colonne As Long, r As Long)
Dim u As Variant
Dim nb As Long
Dim boucle As Long
Dim tablverif() As Variant
 
nb = 1
For boucle = 1 To x.Rows.Count
 
    If x(boucle, colonne) > UBound(tablverif) Then ReDim Preserve tablverif(x(boucle, colonne))
    If x(boucle, 1) = valcherch And tablverif(x(boucle, colonne)) <> 1 Then
        x(nb, r) = x(boucle, 1)
        x(nb, r + 1) = x(boucle, colonne)
        tablverif(x(boucle, colonne)) = 1
        nb = nb + 1
    End If
 
Next boucle
 
End Sub

Autrement la fonction Find et Find.Next me parait mieux adaptée ou même la fonction Like.

[geogeo70]

bonjour,

J'ai essayé de repondre à ton problème, comme tu ne mets le résultat que dans une cellule j'ai refait une fonction qui rend une chaîne contenant les valeurs cherchées en enlevant les doublons :

Code :

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

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
Option Base 1
 
Function rmult(valcherch As Variant, x As Range, colonne As Long) As String
Dim u As Variant
Dim nb As Long
Dim boucle As Long
 
Dim tabval() As Variant
 
ReDim tabval(x.Rows.Count)
 
nb = 1
u = ""
For boucle = 1 To x.Rows.Count
    If x(boucle, 1) = valcherch Then
        tabval(nb) = x(boucle, colonne)
        nb = nb + 1
    End If
Next boucle
For i = 1 To nb - 1
   For j = i + 1 To nb - 1
      If tabval(i) = tabval(j) Then tabval(j) = ""
   Next j
Next i
For i = 1 To nb
   If tabval(i) <> "" Then u = u & tabval(i) & Chr(10)
Next i
If Right$(u, 1) = Chr(10) Then u = Left$(u, Len(u) - 1)
 
rmult = u
End Function
Sub essai()
Dim x As String
Dim source As Range
 
Set source = Range("sources")
Range("G2") = rmult("riri", source, 2)
End Sub

Je ne sais si tu as une base de données grande dans ce cas il vaudrait mieux placer les données dans un tableau ça irait plus vite
Tu peux aussi uliliser la fonction en fonction personnelle de la feuille.

cordialement
geogeo

[Marc-L]

Bonjour !

Ce que je voudrais avoir comme résultat serais au lieu d'avoir un séparateur qui est ~ dans l'exemple ci-haut que les résultats sois copie dans une cellule différente dans la meme rangé

Tu peux aussi rester comme cela puis utiliser la méthode Range.TextToColumns …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[jpvba]

Code :

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

1
2
3
4
5
6
7
Sub essai()
Dim x As String
Dim source As Range
 
Set source = Range("sources")
Range("G2") = rmult("riri", source, 2)
End Sub

Est-ce possible de définir la cellule sélectionner au lieu de donner définir un range ??? et sans définir le doublons

Comme cela, je pourrais l'utiliser a toute les sauces

J'ai trouvé cela sur le web que j'ai modifié mais j'ai un hic ... lorsque j'exécute la sub la première lettre de chaque mot également est éliminés ce qui est vraiment étranges ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
    Dim Dico, c As Range
    Set Dico = CreateObject("Scripting.Dictionary")
    On Error Resume Next
    For Each c In Range("A1", Range("k65536").End(xlUp))
        tablo = Split(c, Chr(10))
        For Each Item In tablo
            Item = Application.Trim(Item)
            Dico.Add Item, ""
        Next Item
        c = ""
        For Each k In Dico.keys
            c = c & Chr(10) & k
        Next
        c = Left(Right(c, Len(c) - 2), Len(c) - 2)
        For Each k In Dico.keys
            Dico.Remove k
        Next
    Next c
End Sub

finalement dans le dictionnaire que Al__22 a mis un lien il y a qqch d'intéressant


Cependant c'est une function

Code :

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

1
2
3
4
5
6
7
Function SansDoublon(c)
 
   a = Split(Application.Trim(c), Chr(10))
   Set mondico = CreateObject("Scripting.Dictionary")
   For i = 0 To UBound(a): mondico.Item(a(i)) = 1: Next i
   SansDoublon = Join(mondico.keys, sep)
 End Function

Pouvez vous m'aider en faisant une sub qui copie le résultat à l'endroit de la selection ie a celule source est la cellule de destination du résulat

[jpvba]

La derniere function de geogeo marché finalement nickel !!!


Je ne sais pas pourquoi la base 1 a été déclaré ... sans ce changement, la function marche également


parcontre je suis également intéressé pour la sub qui enleve tous les doublons (dernier reply)

[geogeo70]

bonsoir,

j'ai utilisé un tableau pour gérér les valeurs à traiter et rendre une chaîne des valeurs en utilisant les indices à partir de 1, option base 1 ouvre un tableau qui commence à l'indice 1 sinon on utilise l'indice 0 pour rien mais ça fonctionne sans!

Voilà, bonne recherche

cordialement,
geogeo

PS : dans ma proposition les doublons sont traités. Quant à l'essai de la fonction, ce n'est qu'un exemple, tu peux ne pas utiliser de nom de "range" et passer la zone directement dans la fonction. Le résultat est une chaîne, donc tu peux écrire :

Code :

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

[G2] = rmult("riri", range("B2:C9"), 2)

[jpvba]

merci geogeo


je m'en suis aperçu après mon poste, je suis désolé !!!


concernant la procédure sansdoublons Est-ce que vous savez pourquoi la première l'etre de chaque cellule traité est également tronqué et si oui, savez vous comment y remédié car je trouve utile cette sub ???