Supprimé données en majuscules

G

Guiv

XLDnaute Occasionnel

• 9 Septembre 2009

• #2

Re : Supprimé données en majuscules

Bonjour stanislas,

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

Code:

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

 

Vote positif 0 Vote négatif

S

stanislas

Guest

• 9 Septembre 2009

• #3

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

 

Dernière modification par un modérateur: 9 Septembre 2009

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 9 Septembre 2009

• #4

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

Cliquez pour agrandir...

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

Code:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

stanislas

Guest

• 10 Septembre 2009

• #5

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 🙂

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 10 Septembre 2009

• #6

Re : Supprimé données en majuscules

Bonjour, Salut Guiv,

SUPPRIME

 

Dernière édition: 10 Septembre 2009

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 10 Septembre 2009

• #7

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.

 

Vote positif 0 Vote négatif

S

stanislas

Guest

• 10 Septembre 2009

• #8

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

 

Vote positif 0 Vote négatif