Pb de code pour vb

gontran -  
ShaBoo Messages postés 392 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je cherche a appliquer ce code dans visual basic Il doit me permettre de changer les minuscules en majuscules

Mais il y a un pb a la ligne case Range("b").value = Ucase ("B") quand visual arrive a cette ligne il dit "la methode range de l'objet global a échoué

Moi je voudrais que le programme me mettent les cellules de la colonne b qui sont pour certaine en minuscules qu'il me mettent toutes les cellules en majuscules

Sub ConvertCasse()
' Déclaration des variables
Dim b As Range

' Traitement de la sélection
For Each b In Range([b2], [B797].End(xlUp))
Select Case True
' le contenu est en minuscule -> conversion en Majuscule (UCASE = Upper Case)
Case Range("b").Value = UCase("B").Value

End Select
Next
End Sub

je précise j'ai chercher dans un tas de forum, des livres aussi mais j'arrive pas a trouver la réponse.
Merci d'avance et de votre compréhension. Je suis débutant ++++
A voir également:

2 réponses

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
bonjour,

La syntaxe est celle-ci pour Ucase :

Dim var As String

var = "b"

var = Ucase(var)

Le résultat est : var = "B"

A toi d'adapter ça dans ton code.


;o)


Polux
0
Réponse 2 / 2
gontran
 
bonjour,

Merci pour la reponse mais je ne comprend rien

ce n'est pas moi qui est fait le code moi j'essaye juste de l'appliquer a mon doc mais je ne sais pas quoi remplacer pour l'addapter a mon doc.

Je vais chercher pour y comprendre un peu plus sinon je reposterai le message

Merci
0
ShaBoo Messages postés 392 Date d'inscription   Statut Membre Dernière intervention   50
 
Tu fais une erreur dans ton code : 

Sub ConvertCasse()
' Déclaration des variables
Dim b As Range

' Traitement de la sélection
'ta boucle veut dire : 
'pour chaque cellule (stockée dans b) de la plage de cellule allant de B2 à B797
For Each b In Range([b2], [B797].End(xlUp))

   'il te suffit de donc de jouer avec b
   'combiné avec ce qu'a fait Polux
   var = UCase(b.Value)
   b.Value = var
   'et ainsi ttes tes cellules seront en MAJUSCULE 
   '(attention, au cas ou il y aurait des valeurs numériques)

Next
End Sub
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses