Ordre des mots

Bonjour,

je reste bloqué pour une manip qui est certainement simple pour les experts que l'on trouve sur ce site!

620.xlsx (11.62 Ko)

Bonjour @ tous,

Salut Youssef,

tu sais pas expliquer ton souhait, alors c'est normal que l'on trouve une difficulté à te répondre, {Ordre des mots n'a rien à voir avec ta demande}

Il faut bien poser la question stp, puisque c'est pas la première fois que tu poses des questions comme ça.

en D2 :

=SIERREUR(CHOISIR(COLONNES($D:D);STXT(A2;TROUVE("]";A2)+1;99);GAUCHE(A2;TROUVE("[";A2)-1));"")

@ tirer vers la droite puis vers le bas

il faut mettre les cellules au format Standard.

@ + +

Bonjour Youssef, Rachid, bonjour le forum,

Une proposition VBA :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (derniere Ligne)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter)
DL = O.Range("A" & Application.Rows.Count).End(xlUp).Row 'défini la dernière ligne éditée Dl de la colonne A de l'onglet O
For I = 1 To DL 'boucle de 1 à Dl
    'si la cellule ligne I colonne 1 (=A) n'est pas vide, renvoie la partie après le caractère "]" dans la cellule ligne I colonne 4 (=D)
    If O.Cells(I, 1).Value <> "" Then O.Cells(I, 4).Value = Split(O.Cells(I, 1).Value, "]")(1)
    'si la cellule ligne I colonne 2 (=B) n'est pas vide, renvoie la partie avant le caractère "[" dans la cellule ligne I colonne 5 (=E)
    If O.Cells(I, 2).Value <> "" Then O.Cells(I, 5).Value = Split(O.Cells(I, 2).Value, "[")(0)
Next I 'prochaine ligne de la boucle
End Sub

Ma solution avec des formules :

520-girodo.xlsx (14.67 Ko)
R@chid a écrit :

Bonjour @ tous,

Salut Youssef,

tu sais pas expliquer ton souhait, alors c'est normal que l'on trouve une difficulté à te répondre, {Ordre des mots n'a rien à voir avec ta demande}

Il faut bien poser la question stp, puisque c'est pas la première fois que tu poses des questions comme ça.

en D2 :

=SIERREUR(CHOISIR(COLONNES($D:D);STXT(A2;TROUVE("]";A2)+1;99);GAUCHE(A2;TROUVE("[";A2)-1));"")

@ tirer vers la droite puis vers le bas

il faut mettre les cellules au format Standard.

@ + +

.ça marche pas

je pense que l'image facile a comprendre


merci ThauThème ça marche bien merci bq

Bonjour à tous,

J'avais produit il y a quelques temps une fonction personnalisée pour un cas identique. Je la livre...

Function EPURERENTRE(tx As String, c1 As String, c2 As String)
    Dim T, i%
    Application.Volatile
    T = Split(Replace(tx, c1, c2), c2)
    For i = 1 To UBound(T) Step 2
        T(i) = ""
    Next i
    EPURERENTRE = Replace(Join(T, c2), c2, "")
End Function

Utilisation :

=EPURERENTRE(A2;"[";"]")

(Après avoir collé la fonction dans un module standard du classeur).

Cordialement.

Bonjour @ tous,

je te l'avais bien signalé, il faut mettre les cellules au format standard.

R@chid a écrit :

il faut mettre les cellules au format Standard.

Voir PJ

1youssefpro-v1.xlsx (17.53 Ko)

@ + +

Rechercher des sujets similaires à "ordre mots"