XL 2016 Fonction concat sous conditions

[ERN]

Bonsoir à tous,

Je me permets de vous solliciter afin de sortir d'un problème de concaténation.
J'ai des données verticales (texte) que j'aimerais rassembler sous certaines conditions. Par exemple, certaines cellules sont en majuscule puis d'autres en minuscule principalement. la quantité est aléatoire. Je cherche donc a assembler automatiquement les suites de cellules en majuscule puis celles en minuscule et ainsi de suite, le tout avec un retour à la ligne, mais je nage...

Est-ce que quelqu'un a une idée ?

(Fichier joint)

Merci d'avance,

 

[vgendron]

Bonjour

Pas clair du tout.. Majuscule, minuscule.. on concatène quoi?? tout?

Sub test()
fin = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To fin
    Result = Result & Range("A" & i) & Chr(10)
    
Next i
Range("B1") = Result
End Sub

 

[ERN]

Bonjour

Pas clair du tout.. Majuscule, minuscule.. on concatène quoi?? tout?

Sub test()
fin = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To fin
    Result = Result & Range("A" & i) & Chr(10)
   
Next i
Range("B1") = Result
End Sub

Bonjour,
Je m'attendais à ce que ça ne soit pas clair du tout. Par exemple, j'aimerais que la concaténation commence à chaque changement de type d’écriture. Dans mon fichier exemple, il faudrait concaténer : A2+A3 puis A4+A5 ensuite A6+A7+A8+A9+A10 et puis A11 jusqu’à A22.
Le nombre de colonne est aléatoire malheureusement mais je pensais qu'il serait possible de dire de commencer et arrêter à chaque changement de style d’écriture.

J’espère être plus précis dans ma demande

 

[vgendron]

Voici un test par macro: suffit de cliquer sur le bouton
pour le test, j'ai remplacé tout le texte par de simple lettres Minuscule et MAJUSCULE

pour que cela fonctionne il faut que TOUTE la cellule soit en Majuscule OU Minuscule
si Minuscule et Majuscule sont mélangées dans une cellule, ca ne fonctionnera pas

 

[ERN]

Bonsoir vgendron,

Votre code fonctionne parfaitement. Vous n'imaginez pas à quel point vous me rendez service.
Un énorme merci pour ce partage.