Macro pour mettre selection en MAJ

Bonjour

Je souhaitais mettre toute une selection en majuscules sous Excel . J ai recupere la macro suivante

Sub ConvertToUpperCase()

Dim Rng As Range

On Error Resume Next

Err.Clear

Application.EnableEvents = False

For Each Rng In Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Cells

If Err.Number = 0 Then

Rng.Value = StrConv(Rng.Text, vbUpperCase)

End If

Next Rng

Application.EnableEvents = True

End Sub

Le soucis est que si je ne selectionne QU UNE SEULE CELLULE, tout le worksheet est mis en majuscule !!!

Ca marche en revanche pour une selection de plus d une cellule..

Quelqu un saurait debbugger cela ???!!!! je ne comprends pas comment marche SpecialCells....

Merci

Bonjour

Essayes

Sub ConvertToUpperCase()
Dim Rng As Range

  On Error Resume Next

  Application.EnableEvents = False
  If Selection.Count = 1 Then
    Selection = UCase(Selection)
  Else
    For Each Rng In Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Cells
      Rng = UCase(Rng)
    Next Rng
  End If
  Application.EnableEvents = True
End Sub

Ca marche a present!! MERCI!!! Pour mon info perso tu pourrais me dire pourquoi Selection.SpecialCells ne marche pas pour une seule cellule ??!!

Bonjour

Pffff aucune idée

(sans garantie de véracité)

je sais que si je veux "récupérer" toutes les cellules dans une feuille d'un certain type je me sert que d'une cellule

Si c'est dans une zone délimitée je me sert de cette zone

Bonne journée