retour en ligne pour chaque br trouver

I

infotun

XLDnaute Nouveau
salut
j'ai une liste de code :
ligne 1: <Synonym>a posteriori</Synonym><br><Synonym>après coup</Synonym>
ligne 2: <Synonym>dans</Synonym><br><Synonym>derrière</Synonym>
ligne 3: <Synonym>en définitive</Synonym><br><Synonym>ensuite</Synonym>
etc...

et je souhaiterais les transformer comme suit :
<Synonym>a posteriori</Synonym>
<Synonym>après coup</Synonym>
<Synonym>dans</Synonym>
<Synonym>derrière</Synonym>
<Synonym>en définitive</Synonym>
<Synonym>ensuite</Synonym>

merci pour votre aide :)
 
Dernière édition:
Trier par date Trier par votes
ROGER2327

ROGER2327

XLDnaute Barbatruc
Re : retour en ligne pour chaque br trouver

Bonjour infotun
Si vos données son en A1, A2, A3, ..., A(n), alors
Code: 
[COLOR="DarkSlateGray"]=SI(MOD(LIGNE();2);GAUCHE(SUBSTITUE(DECALER(A$1;(LIGNE()-1)/2;0);"<br>";CAR(10));CHERCHE(CAR(10);SUBSTITUE(DECALER(A$1;(LIGNE()-1)/2;0);"<br>";CAR(10)))-1);DROITE(SUBSTITUE(DECALER(A$1;(LIGNE()-1)/2;0);"<br>";CAR(10));NBCAR(SUBSTITUE(DECALER(A$1;(LIGNE()-1)/2;0);"<br>";CAR(10)))-CHERCHE(CAR(10);SUBSTITUE(DECALER(A$1;(LIGNE()-1)/2;0);"<br>";CAR(10)))))[/COLOR]
en B1, B2, B3, B4, B5, B6, ..., B(2n) devrait faire l'affaire.​
ROGER2327
 
Vote positif 0 Vote négatif
JNP

JNP

XLDnaute Barbatruc
Re : retour en ligne pour chaque br trouver

Bonjour Infotun, Roger :),
Une approche en VBA, avec les données aussi en colonne A, sous réserve d'un <br> unique par ligne
Code: 
Sub Test()
Dim I As Integer, j As Integer, Tableau() As String
I = 1
While Cells(I, 1) <> ""
Tableau = Split(Cells(I, 1), "<br>")
Cells(I, 1) = Tableau(0)
Rows(I + 1).Insert
Cells(I + 1, 1) = Tableau(1)
I = I + 2
Wend
End Sub
Bonne journée :cool:
 
Vote positif 0 Vote négatif
I

infotun

XLDnaute Nouveau
Re : retour en ligne pour chaque br trouver

salut ROGER2327 j'ai essayer ton code mais sa na rien donné
JNP je ne suis pas un expert en excel surtout en vba :eek: vous pouvais m'indiquer comment introduire ce code pour office2007..
merci
 

Pièces jointes

  • retourenligne.xls
    21 KB · Affichages: 57
Dernière édition:
Vote positif 0 Vote négatif
I

infotun

XLDnaute Nouveau
Re : retour en ligne pour chaque br trouver

salut ROGER2327 ton code marche bien merci
mais il ne marche pas pour les longues lignes parce que la longueur des lignes est variable..
example :
<Synonym>abattu</Synonym><br><Synonym>affecté</Synonym><br><Synonym>affolé</Synonym><br><Synonym>agité</Synonym><br><Synonym>altéré</Synonym><br><Synonym>attendri</Synonym><br><Synonym>bousculé</Synonym><br><Synonym>chambardé</Synonym>

merci pour votre aide :)
 
Vote positif 0 Vote négatif
ROGER2327

ROGER2327

XLDnaute Barbatruc
Re : retour en ligne pour chaque br trouver

Re...
infotun à dit:
salut ROGER2327 ton code marche bien merci
mais il ne marche pas pour les longues lignes parce que la longueur des lignes est variable..
example :
<Synonym>abattu</Synonym><br><Synonym>affecté</Synonym><br><Synonym>affolé</Synonym><br><Synonym>agité</Synonym><br><Synonym>altéré</Synonym><br><Synonym>attendri</Synonym><br><Synonym>bousculé</Synonym><br><Synonym>chambardé</Synonym>

merci pour votre aide :)
Cliquez pour agrandir...
Oui, j'ai répondu au problème posé dans lequel il n'était nullement de longues lignes.
Maintenant il s'agit d'un autre problème, qui a certainement une autre réponse. Ce qui serait sympathique, ce serait de poser le problème réel et complet : ça éviterait de perdre son temps à résoudre des problèmes qui ne se posent pas...
​
Cordialement,
ROGER2327
 
Vote positif 0 Vote négatif
ROGER2327

ROGER2327

XLDnaute Barbatruc
Re : retour en ligne pour chaque br trouver

Re...
infotun à dit:
salut ROGER2327 dans le fichier que j'ai attaché en haut il y avais des lignes longues...
merci sincèrement de ton aide :eek:
Cliquez pour agrandir...
...qui ne contenaient q'un seul <br> :
ligne 1: <Synonym>a posteriori</Synonym><br><Synonym>après coup</Synonym>
ligne 2: <Synonym>dans</Synonym><br><Synonym>derrière</Synonym>
ligne 3: <Synonym>en définitive</Synonym><br><Synonym>ensuite</Synonym>
Cliquez pour agrandir...
ROGER2327
 
Vote positif 0 Vote négatif
ROGER2327

ROGER2327

XLDnaute Barbatruc
Re : retour en ligne pour chaque br trouver

Suite...
Une proposition de solution à votre deuxième problème dans le classeur joint.
Code: 
[COLOR="DarkSlateGray"]Option Explicit

Sub découpe()
Dim oDat, oSep, dSp
Dim i As Long, j As Long
   With Sheets("Feuil1")
      oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)).Value
   End With
   oDat = Application.Transpose(oDat)
   ReDim Preserve oDat(1 To -1 + UBound(oDat))
   ReDim oSep(1 To 1)
   For i = 1 To UBound(oDat)
      If Not IsEmpty(oDat(i)) Then
         dSp = Split(oDat(i), "<br>")
         For j = 0 To UBound(dSp)
            oSep(UBound(oSep)) = dSp(j)
            ReDim Preserve oSep(1 To 1 + UBound(oSep))
         Next j
      End If
   Next i
   ReDim Preserve oSep(1 To Application.Max(1, -1 + UBound(oSep)))
   With Sheets("Feuil2")
      .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).ClearContents
      .Range(.Cells(1, 1), .Cells(UBound(oSep), 1)).Value = Application.Transpose(oSep)
      .Activate
   End With
End Sub[/COLOR]
Les données sont prises dans la colonne A de la feuille Feuil1.
Le résultat est affiché dans la colonne A de la feuille Feuil2.​
ROGER2327
 

Pièces jointes

  • infotun_v2.zip
    9.1 KB · Affichages: 26
Dernière édition:
Vote positif 0 Vote négatif
ROGER2327

ROGER2327

XLDnaute Barbatruc
Re : retour en ligne pour chaque br trouver

Re...
Normal. Alors que la plus longue chaîne de caractères que vous avez proposée précédemment comptait 235 caractères, celle qui fait échouer la procédure possède 407 caractères. Nombre de fonctions ne traite que des chaînes de longueur inférieure ou égale à 255. D'autres fonctions acceptent des chaînes plus longues.
Par conséquent, si vous voulez traiter des chaînes de plus de 255 caractères, il faut éliminer de la procédure les fonctions qui ne les acceptent pas. Par exemple, essayez ce qui suit :
Code: 
[COLOR="DarkSlateGray"]Sub découpe()
Dim oDat, oSep, dSp
Dim i As Long, j As Long
   With Sheets("Feuil1")
      oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)).Value
   End With
   ReDim oSep(1 To 1)
   For i = 1 To -1 + UBound(oDat, 1)
      If Not IsEmpty(oDat(i, 1)) Then
         dSp = Split(oDat(i, 1), "<br>")
         For j = 0 To UBound(dSp)
            oSep(UBound(oSep)) = dSp(j)
            ReDim Preserve oSep(1 To 1 + UBound(oSep))
         Next j
      End If
   Next i
   ReDim Preserve oSep(1 To Application.Max(1, -1 + UBound(oSep)))
   With Sheets("Feuil2")
      .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).ClearContents
      .Range(.Cells(1, 1), .Cells(UBound(oSep), 1)).Value = Application.Transpose(oSep)
      .Activate
   End With
End Sub[/COLOR]
Cela dit, il serait commode que vous donnassiez toutes les contraintes de votre problème : cela éviterait de perdre son temps à traiter un problème nouveau tous les jours.​
ROGER2327
 
Vote positif 0 Vote négatif

Discussions similaires

F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
788
Fabrice16ct
F
L
  • Question
XL 2016 VBA Excel : Valeur récapituler sur un seul Mail
Réponses
10
Affichages
685
Gégé-45550
Gégé-45550
C
  • Question
Power Query Requete SQL en PowerQuery
Réponses
1
Affichages
325
chris
chris
K
  • Question
Autres 'Resolu' 'Nettoyer' des lignes par une macro
Réponses
7
Affichages
268
klorane
K
B
  • Question
XL 2021 Max.Si.Ens double critères
Réponses
4
Affichages
188
BANDIN
B
CISCO
  • Question
Microsoft 365 VBA : Transformer une liste de textes en liens.
Réponses
2
Affichages
280
CISCO
CISCO
O
  • Question
Power Query Convertir un tableau de colonnes en lignes avec plusieurs variables (power query)
Réponses
8
Affichages
425
oobiz
O
M
  • Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
628
ManuXZ
M
petitbuzuc
  • Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
270
fanch55
fanch55
M
  • Résolu(e)
Microsoft 365 Formules pour tableaux
Réponses
4
Affichages
225
Marvin57
M

Membres actuellement en ligne

18 membres et 258 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 485
Messages
2 088 805
Membres
103 971
dernier inscrit
abdazee