Pb de code pour vb
Fermé
gontran
-
5 nov. 2007 à 16:08
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 - 5 nov. 2007 à 17:14
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 - 5 nov. 2007 à 17:14
A voir également:
- Pb de code pour vb
- Code ascii de a - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
2 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 nov. 2007 à 16:22
5 nov. 2007 à 16:22
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
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
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
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
ShaBoo
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Statut
Membre
Dernière intervention
5 septembre 2009
50
5 nov. 2007 à 17:14
5 nov. 2007 à 17:14
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