supprimer texte minuscules

Re-bonjour;

Regrets; je me suis trompé. Il s'agit en fait de texte en gras et de texte
normal, au lieu de minuscules et majuscules.
Mes excuses pour l'erreur..

Bonjour tout le monde ;

J'ai une colonne qui comprend des cellules en minuscules et d'autres en
majuscules.
Je souhaite supprimer le contenu de celles qui sont en minuscule et déplacer
celui en majuscule dans la case vide à droite, puis supprimer la colonne.

Merci pour votre aide.

Bonjour Izmi,

essaie ceci :
'-----------------------------------
Sub Test()
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each c In Rg
If c.Characters.Font.Bold = True Then
c.Offset(, 1) = c
c.Offset(, 1).Characters.Font.Bold = True
End If
Next
Rg.EntireColumn.Delete xlToLeft
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news: 96DBCD32-740D-49A6-8064-AAD3B2043949@microsoft.com...
Bonjour tout le monde ;

J'ai une colonne qui comprend des cellules en minuscules et d'autres en
majuscules.
Je souhaite supprimer le contenu de celles qui sont en minuscule et déplacer
celui en majuscule dans la case vide à droite, puis supprimer la colonne.

Merci pour votre aide.

Merci Michel.
C'est exactement ce qu'il me fallait

Bonjour Izmi,

essaie ceci :
'-----------------------------------
Sub Test()
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each c In Rg
If c.Characters.Font.Bold = True Then
c.Offset(, 1) = c
c.Offset(, 1).Characters.Font.Bold = True
End If
Next
Rg.EntireColumn.Delete xlToLeft
Set Rg = Nothing
End Sub
'-----------------------------------


Salutations!



"Izmi" <Izmi@discussions.microsoft.com> a écrit dans le message de news: 96DBCD32-740D-49A6-8064-AAD3B2043949@microsoft.com...
Bonjour tout le monde ;

J'ai une colonne qui comprend des cellules en minuscules et d'autres en
majuscules.
Je souhaite supprimer le contenu de celles qui sont en minuscule et déplacer
celui en majuscule dans la case vide à droite, puis supprimer la colonne.

Merci pour votre aide.