Majuscule macro

[ktran]

hello,

j ai cherche sur le forum et trouve des pistes mais en adaptant un peu, ca coince dans le fait que VBA ne convertit pas les minuscules en majuscules. voici le code, une idee ?

merci d avance

Sub Maj()
ActiveSheet.Range("B6:T9000").Select
For Each cell In Range("B6:T9000")
cell = StrConv(cell, vbUpperCase)
Next
End Sub

 

[tactic6]

Re : Majuscule macro

Bonjour le forum
Voici le code que j'utilise
si ça peut t'aider

Sub Majuscules()
Dim Mot As Range, Plage As Range
On Error GoTo finerreur
Set Plage = Application.InputBox("Sélectionnez la plage à couvrir, merci ", "SELECTION D'UNE PLAGE:", Type:=8)
For Each Mot In Plage
If Mot.HasFormula = False Then
Mot = UCase(Mot)
End If
Next Mot
finerreur:
Fin:
End Sub

Bon Dimanche

 

[Staple1600]

Re : Majuscule macro

Bonjour

edition2 : à la réflexion, essaie plutôt ceci

Sub maj3()
Dim c As Range
For Each c In Range("B6:T9000").SpecialCells(xlCellTypeConstants, 2)
c.Value = UCase(c.Text)
Next
End Sub

Essaie comme ceci

Sub maj2()
[COLOR=Red]Dim c As Range[/COLOR]
For Each c In Range("B6:T9000")
If Not IsEmpty(c) Then
c.Value = UCase(c.Text)
End If
Next
End Sub

edit: bonjour tactic6, pas rafraichi assez vite 😉

 

[tactic6]

Re : Majuscule macro

Bonjour Staple1600

 

[ktran]

Re : Majuscule macro

merci stapple1600

ca marche impec, j etais pas tres loin 🙁