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