Microsoft 365 Besoin d'aide SVP

Staple1600

XLDnaute Barbatruc

• 12 Février 2020

• #2

Bonjour le fil

C'est urgent à quel point?
Au point d'oublier de lire la charte du forum ? 🙄

 

Vote positif 0 Vote négatif

M

mohcine_5

XLDnaute Nouveau

• 12 Février 2020

• #3

Bonjour ,
je tiens à m'excuser si quelques chose m'est echappé j'aurais juste besoin d'aide parceque j'ai un livrable demain si vous pouvez tenir compte de ma reque je vous serais reconnaissant à vie
et merci mille fois

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Février 2020

• #4

Re

Pas besoin d'excuses
Lire la charte (et s'en souvenir) suffisait 😉

2 – Tous les membres du forum répondent gracieusement aux questions. Il n’y a donc aucune obligation de résultat et de délai. Les mots URGENT, SOS, AU SECOURS sont donc à bannir.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Février 2020

• #5

Re

Sur mon fichier de test, ce truc fait un quelque chose d'approchant du résultat souhaité

VB:

Sub Macro1()
Dim c As Range, j&, t
'Suppression doublons
Range("A1:B" & Val("Staple") + 1600).RemoveDuplicates Columns:=1, Header:=xlNo
j = 1
For Each c In Range("B1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
t = Split(VBA.Trim(c.Text), ",")
Cells(j, "D").Resize(UBound(t) + 1) = Application.Transpose(t)
Cells(j, "C").Resize(UBound(t) + 1) = Cells(c.Row, "A")
Erase t
j = Cells(Rows.Count, 4).End(xlUp).Row + 1
Next
End Sub

 

Vote positif 0 Vote négatif

M

mohcine_5

XLDnaute Nouveau

• 12 Février 2020

• #6

Bonjour , je ne suis pas expert en vba peux tu me propsoer une formule en excel
Merci infiniment

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Février 2020

• #7

Re

Non, je ne peux pas.
Attendons le passage d'un formuliste

PS: Tu me redis Bonjour, mais je suis le même qui te disait de lire la charte du forum 😉
Tu sais que tu peux éditer le titre de ta question.
Afin que ton titre résume bien ta question.
Car "Besoin d'aide URGENT" ne nous apprend rien... 🙄
1) On sait que les gens qui posent ici des questions cherchent de l'aide
2) Mais on se fiche de savoir si c'est urgent ou pas.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Février 2020

• #8

Re

Pour te montrer ce que fait la macro

 

Vote positif 0 Vote négatif

M

mohcine_5

XLDnaute Nouveau

• 12 Février 2020

• #9

magnfique c'est ce que je cherche mais j'ai besoin de ca en formule
Merci beaucoup j'apprecie vraiment

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Février 2020

• #10

Re

Dilemme ou choix cornélien
Dans l'urgence, vaut-il attendre une formule ou prendre le temps d'apprendre** comment on utilise une petite macro* sur un classeur?
*: surtout quand la petite macro est déjà écrite, et qu'on a juste a la copier dans Excel.

**: sachant qu'il y a plein de tutos sur le web pour expliquer.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Février 2020

• #11

Bonsoir à tous,

Une méthode sans macro est expliquée dans le fichier joint.

ça ressemble à du bricolage mais au bout du compte, ça le fait.

Ce n'est pas automatique, ça ne remplace pas une bonne macro mais puisque c'est urgent...

Bonne-nuit 😳

 

Pièces jointes

• mohcine_5- bricolage- v1.xlsx

  20.7 KB · Affichages: 12

Dernière édition: 13 Février 2020

Vote positif 0 Vote négatif

Solution

M

mohcine_5

XLDnaute Nouveau

• 13 Février 2020

• #12

Merci beaucoup les amis c'est TOP excellente journée à vous

 

Vote positif 0 Vote négatif