Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

retour en ligne pour chaque br trouver

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion infotun
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

infotun

Guest
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 modification par un modérateur:
Trier par date Trier par votes
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
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 😎
 
Vote positif 0 Vote négatif
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 😱 vous pouvais m'indiquer comment introduire ce code pour office2007..
merci
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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
Re : retour en ligne pour chaque br trouver

Re...
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
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 😱
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
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

Dernière édition:
Vote positif 0 Vote négatif
Re : retour en ligne pour chaque br trouver

salut et merci pour ta disponibilité 🙂
j'ai eu un problème d'erreur lorsque j'ai essayé ton code.
voici ci-joint un exemple ou sa bug.🙁
 

Pièces jointes

Vote positif 0 Vote négatif
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
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
719
Phil69970
D
  • Question Question
XL 2021 Récap excel toutes versions si possible
Réponses
12
Affichages
352
job75
R
  • Question Question
Microsoft 365 Formule qui sélectionne un ligne et qui récupère la ligne en-dessous
2
Réponses
29
Affichages
863
roro67200
R
  • Question Question
Microsoft 365 Macro qui enchaine deshoraires Aller-Retour en fonction de critères
Réponses
10
Affichages
297
bsalv
B
F
  • Question Question
XL 2016 Transformation fichier
Réponses
6
Affichages
334
Cousinhub
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
375
Cousinhub
  • Question Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
964
My<3
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
231
Marie L
M
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
567
mikeduff
M
N
  • Question Question
XL 2010 recherche formule
2
Réponses
23
Affichages
682
n_turf
N
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
285
PR.
P
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
691
Jaykerz
J
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
2 K
Fabrice16ct
F
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
1 K
rastafouette
P
  • Question Question
Microsoft 365 Création d'un fichier Excel pour gérer le bénévolat valorisé
Réponses
8
Affichages
262
Nain porte quoi
P
  • Question Question
Microsoft 365 Insertion texte + numéro qui change à chaque changement de ligne
Réponses
4
Affichages
256
ptit_ange69
P
W
  • Résolu(e)
XL 2019 Retirer un mot dans un pavé de cellules contenant des Vblf
2
Réponses
21
Affichages
634
Webperegrino
W
  • Résolu(e)
Microsoft 365 récupérer la dernière ligne de chaque anomalie déclarée
Réponses
3
Affichages
174
natorp
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
489
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…