Sylvie aime les fruits

Bonjour,

Pas facile d'exprimer ma demande, je l'ai donc résumée dans le pièce jointe.

Merci d'avance à celui qui m'aidera!

bonjour,

commencer par utiliser la commande convertir de excel pour dispatcher tous les fruit dans des colonnes uniques.

Le traitement sera bien facilité

cordialement

bonjour

cela repond à ta question ; tu trouvera certainement mieux

1> utiliser convertir dans le menu données 2> la fonction transpose ! c'est une matricielle ;3 >les fonctions ,si; nb.si ; nb : pour aller chercher le nom 4> la fonction si pour rattacher les carracteres liés au nom

a+

Bonsoir à tous,

Tu veux restructurer ta base actuelle ou

simplement extraire les fruits sur une colonne (d'un nom choisi) ?

il faudrait un fichier un peu + étoffé pour tester (une dizaine de noms)

Amicalement

Claude

Merci à vous mais je ne comprends toujours pas De plus mon menu est en anglais. J'ai essayé de trouver un commande 'convert' mais plouf plouf...

Je remets un fichier plus concret en annexe pour répondre à la question de 'dubois':

Il s'agit d'un fichier de 4000 lignes reprenant des contacts presse. Chaque journaliste traite plusieurs sujets, repris en colonne 'S'. Je voudrais, si un journaliste traite par exemple 5 sujets différents, avoir une ligne par sujet et reprenant toutes les données de la ligne.

@+

Bonjour,

En résumé, tu veux transformer ta base de 4000 lignes en une base de 15000 lignes (environ)

c'est bien çà ?

sur une autre feuille ?

Une macro étant une pièce d'horlogerie, merci de joindre une feuille avec la structure réelle,

une dizaine de lignes suffit, mais il faut la ligne d'en-têtes réelle et au bon endroit.

à te relire

Claude

Claude,

C'est tout à fait ça! Le fichier fait en tout 4074 lignes.

Je vous joins en annexe le fichier demandé.

Bien à vous,

Julien

re,

On parle bien maintenant de la colonne "G" Sujets du Contact ?

Effectivement... J'aurais pu le préciser, sorry

Bonsoir,

La feuille à traiter doit être placée en 1er dans les onglets,

résultat sur feuille créée nommée "bibi"

Sub NouvBase()
Dim Lg%, Lg2%, i%, J%, Cel As Range, Ct As Byte, x
''Macros par Claude Dubois pour "Copire" Excel-Pratique le 19 Mai 2010
    Application.ScreenUpdating = False
        On Error Resume Next
        Application.DisplayAlerts = False
        Sheets("bibi").Delete
        On Error GoTo 0
    Sheets.Add.Name = "bibi"
    Sheets(2).Activate
    Lg = Range("a65536").End(xlUp).Row
    For i = 1 To Lg
        Ct = 0
        Set Cel = Cells(i, 7)
            For J = 1 To Len(Cel) 'compte les ;
                If Mid(Cel, J, 1) = ";" Then Ct = Ct + 1
            Next J
        With Sheets("bibi")
            Lg2 = .Range("a65536").End(xlUp)(2).Row
            Rows(i).Copy Destination:=.Range(.Rows(Lg2), .Rows(Lg2 + Ct))
            If Ct > 0 Then
                    .Cells(Lg2, 7) = Application.Substitute(.Cells(Lg2, 7), " ", "?")
                    .Cells(Lg2, 7) = Application.Substitute(.Cells(Lg2, 7), ";", " ")
                    x = Split(.Cells(Lg2, 7))
                For J = 0 To Ct
                    .Cells(Lg2 + J, 7) = x(J)
                    .Cells(Lg2 + J, 7) = Application.Substitute(.Cells(Lg2 + J, 7), "?", " ")
                    .Cells(Lg2 + J, 7) = Trim(.Cells(Lg2 + J, 7).Value)
                Next J
            End If
        End With
    Next i
        With Sheets("bibi")
            .Activate
            .Rows(1).Delete
            .Range("a:s").Columns.AutoFit
        End With
End Sub

Amicalement

Claude

Bonjour

à tester rapidité sur tes 4000 contacts:

Claude, je vous remercie pour le temps que vous avez passé pour m'aider. Si ce n'est pas indiscret, quelle est votre profession?

Cotire, excusez moi d'avoir essayé de vous aider

Mais ne le prenez pas comme cela Bien évidemment je vous remercie également!

Rares sont les sites où on peut trouver des personnes comme vous, je le dis sérieusement, je suis impressionné!

Bien à vous,

Bonjour Julien, Michel, forum,

Je ne connais pas le pourquoi du comment tu as voulu changer la structure de ta base ?

Sache que si c'est pour filtrer les "Sujets du Contact", on savait faire avec ta base d'origine,

mais ceci est un autre sujet !

Amicalement

Claude.

retraité d'un Sce Méthodes (industrie automobile)

cotire, hypocrite en plus ?

Michel,

un petit salut, çà ne mange pas de pain non plus !

Claude

Cher Michel,

Sachez simplement que je n'avais pas vu votre réponse, raison pour laquelle je ne vous ai pas remercié. J'ai une moyenne de 250 mails à décortiquer tous les matins. Peut-être n'ai-je pas vu le mail m'avertissant qu'il y avait une réponse postée par vos soins. De plus, je ne suis pas un grand habitué des forums...

Je comprends votre frustration mais ne sais malheureusement revenir en arrière. Alors, si vous remercier est un geste hypocrite, j'éviterai de le faire à l'avenir.

Maintenant, vous en connaissez la raison et j'espère vous lire plus cordial à l'avenir.

Encore merci pour votre aide.

Copire

Bonjour à tous.

Super belle journèe en vue. Tout bleu.

Allez, on en reste là..si vous voulez bien. Tout se passe courtoisement et la solution est trouvée. Il arrive que tout ne soit pas parfait..ou comme on le voudrait.

Merci

Trés cordialement

Bonjour à tous,

Copire, n'oublie pas la petite formalité