besoin d'aide

[RASTA70]

Bonsoir,

j'ai besoin daide , mon pb est le suivant j'ai une liste de code client et une liste d'article , je souhaite faire apparitre sur une ligne le code client et sur la meme ligne les articles qu'il commande .
j'ai essayé avec un tableau croise mais il ya trop de données .
l'autres solution c'est avec une rechercheV mais c'est contraignant.
est ce queq'un aurait une solution , je joins le fichier.
merci d'avance.

 

[EXCELERATOR]

Re : besoin d'aide

Mais qu'est-ce que ça peut bien vouloir dire ???? 😕

En pièce-jointe ton fichier corrigé :

à retenir pour la case a1: $a$1 pour verrouiller la case dans ta formule
$a1 pour verrouiller la colonne
a$1 pour verrouiller la ligne
$a$1:$z$30 pour verrouiller la matrice 😀

A plus

 

[jp14]

Re : besoin d'aide

Bonjour

Ci dessous le fichier avec une macro évènementielle.
Un double click sur la valeur lance la macro

A tester

JP

 

[EXCELERATOR]

Re : besoin d'aide

Salut JP,

autant pour moi j'ai répondu vite, pas vu qu'il existe plusieurs valeurs par code.

Dis moi svp, comment visualiser ta macro.

Merci

A plus

 

[jp14]

Re : besoin d'aide

Bonjour

La macro se trouve dans la feuille 2.
Après ouverture de l'éditeur vba (alt F11)
Il faut cliquer sur feuil2 cf image.

JP

 

[bcharef]

Re : besoin d'aide

Bonjour JP ,
Bonjour à toutes et à tous.

Est-il possible d'améliorer la présente macro, afin d'éviter de toujours cliquer sur les divers cellules de la colonne A, soit 678 cellules "clics" au lieu d'une seule d'une part et de réaliser une solution par une formule d'autre part.

A vous lire.

Cordialement.

Bcharef

 

[jp14]

Re : besoin d'aide

Bonsoir
Ci dessous la macro modifiée pour mettre à jour l'ensemble des données.

A tester

JP

 

[bcharef]

Re : besoin d'aide

Rebonjour JP ,
Rebonjour à toutes et à tous.

En absence RASTA70, je vous remercie pour la suite qui a m'été accordé.

Et toujours, dans le cadre d'améliorer, on constate des lignes répétitives et que le fonctionnement de la macro n'est pas rapide.

Mais, si vous me permettiez, est-il possible de le réaliser par formule?

Salutations distinguées.

Bcharef

 

[RASTA70]

Re : besoin d'aide

MERCI à tous ceux qui ont participé , c'est exactement ce qu'il me fallait .
vous etes trop fort , merci encore

 

[bqtr]

Re : besoin d'aide

Bonsoir à tous,

Voici un exemple :

Sub Tri()

Dim Tablo, k As Long, i As Integer, Coll As Object, TabKs, TabItm
Set Coll = CreateObject("Scripting.Dictionary")

With Sheets("table")
  .Range("F1:IV65536").Clear
  Tablo = .Range("A2:B" & .Range("A65536").End(xlUp).Row)
  For k = 1 To UBound(Tablo)
     If Not Coll.Exists(Tablo(k, 1)) Then
        Coll(Tablo(k, 1)) = Tablo(k, 2) & " "
     Else
        Coll(Tablo(k, 1)) = Coll(Tablo(k, 1)) & Tablo(k, 2) & " "
     End If
  Next
 
  TabKs = Coll.keys
  TabItm = Coll.items
  
  For i = 0 To UBound(TabKs)
    .Cells(i + 1, 6) = TabKs(i)
    .Cells(i + 1, 7).Resize(, UBound(Split(Trim(TabItm(i)))) + 1) = Split(Trim(TabItm(i)))
  Next i
End With

End Sub

Exemple plus que très inspiré de celui-ci ICI 😱
😉 à JB

A+

 

[bcharef]

Re : besoin d'aide pour une solution par formule.

Bonjour à toutes et à tous.

Je repose ma question encor une fois, est-il possible de résoudre le prèsent probléme par une Formule.

Cordialement.

Bcharef

 

[bcharef]

Re : besoin d'aide

Bonsoir à toutes et à tous


Je repose ma question encor une troisiéme fois, est-il possible de résoudre le prèsent probléme par une Formule.

Cordialement.

Bcharef