Supprimé données en majuscules

[stanislas]

Bonjour à tous,

Est-il possible de supprimé les données en majuscule dans mon tableau.

Les prenoms sont en minuscules: données à conserver
Les noms de famille en Majuscules: données à supprimer

Deuxième soucies: dans certaines entrée du tableau, noms et prénoms sont attachés ( malgré le respect de la police)😕

Voilà un exemple .

Merci à tous mon tableau comporte plus 4500 entrées...et le faire un par un...😱

 

[Guiv]

Re : Supprimé données en majuscules

Bonjour stanislas,

Par exemple si ton tableau est en A1:C4 (à adapter)

Sub SupprMaj()

Dim i As Integer, cellule As Range

Range("A1:C4").Select
For Each cellule In Selection

For i = 1 To Len(cellule.Value)
If Mid(cellule.Value, i, 1) = Format(Mid(cellule.Value, i, 1), ">") Then
cellule = Replace(cellule.Value, Mid(cellule.Value, i, 1), "")
End If
Next i

Next cellule

End Sub

Il y a sans doute une solution plus élégante, mais ça marche...
Bonne soirée,
Guiv

 

[stanislas]

Re : Supprimé données en majuscules

Merci Guiv,



MERCI pour ton aide, j'ai trouvé comment activé les macros, mais malheureusement ca me supprime également la majuscules du prénoms...et ne supprime pas entièrement le nom...

Une autre idée quelqu'un ? J'ai besoin d'aide!!

Merci

 

[Guiv]

Re : Supprimé données en majuscules

Re,
Effectivement, c'est prévu pour supprimer toutes les majuscules, y compris la première lettre du prénom... mais c'était ta demande:

Est-il possible de supprimé les données en majuscule dans mon tableau.

Les prenoms sont en minuscules: données à conserver
Les noms de famille en Majuscules: données à supprimer

Ca peut s'arranger pour la première lettre du prénom avec

Sub SupprMaj()

Dim i As Integer, cellule As Range

Range("A1:C4").Select
For Each cellule In Selection

For i = [COLOR="Red"]2[/COLOR] To Len(cellule.Value)
If Mid(cellule.Value, i, 1) = Format(Mid(cellule.Value, i, 1), ">") Then
cellule = Replace(cellule.Value, Mid(cellule.Value, i, 1), "")
End If
Next i

Next cellule

End Sub

...si le prénom est en première position, et sauf prénom composé.

En revanche, je ne comprends pas pourquoi ça ne supprime pas toutes les majuscules :

...et ne supprime pas entièrement le nom

...s'il est entièrement écrit en majuscules, bien sûr.

En attente d'un XLDien avec une idée là-dessus,
Bonne soirée
Guiv

 

[stanislas]

Re : Supprimé données en majuscules

Bonjour,

J'ai toujours le même problème et les formules essayé ne donne rien de concluant.

Es-ce qu'il y aurai une formule pour garder le premier mot de chaque cellule ? soit supprimé tout ce qu'il y a en plus. Merci

ex:

Avant: A1 Prénom NOM

Après: A1 Prénom

@Guiv: Merci pour ton aide 🙂

 

[Raja]

Re : Supprimé données en majuscules

Bonjour, Salut Guiv,

SUPPRIME

 

[MJ13]

Re : Supprimé données en majuscules

Bonjour à tous


Stanislas: Dans tons cas ce n'est pas un bon exemple car avec 2 noms, cela me semble difficile de trouver la solution optimale.

Il faudrait un vrai fichier avec toutes les possibiltés de noms et prénoms car il peut y avoir des noms ou prénoms composés.

Donc reviens avec un fichier .XLS compatible XL97-2003 représentatnt le maximum de possibilités.

 

[stanislas]

Re : Supprimé données en majuscules

Merci pour votre aide.

Finalement j'ai fait un copier coller dans word et remplacer les espaces par une tabulation et recollé tout ça dans un tableau.

Effectivement petit soucies pour les prénoms composés mais ça me simplifie quand même la vie.
😱
Merci