CONVERSION MINUSCULE =>MAJUSCULE AVEC CAR$(*)

Signaler
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
-
Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5276-conversion-minuscule-gt-majuscule-avec-car

Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003

car2 = Chr$(96 + compteur - 32)

c'est pareil que

car2 = Chr$(64 + compteur)
Messages postés
3
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
6 décembre 2002

Je precise que le but de cette macro est passer en maj TOUTE LA FEUILLE,
Alors j' ai aussi essayé ca :


Sub Ucase_macro()
Cells.Select
Min = Cells.Select
maj = UCase(Cells.Value)
Selection.Replace What:=Min, Replacement:=maj, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

End Sub

Mais j'ai un probleme de memoire insuffisante.
Messages postés
3
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
6 décembre 2002

Au fait, si j'ai une feuille excel contenant 65000 adresses de clients (c'est gros mais c'est souvent dans mon job)est ce que ucase ira aussi vite que ma macro ??
Ucase n'ira t il pas de cellule en cellule ?Donc plus lente ??
P...n, j'ai mal a la tete ;-) .
Messages postés
3
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
6 décembre 2002

Je sais mais comme je l'ai dis je debute (je fais des choses compliquées pour arriver aux choses simples).
En plus, j'ai oublié "cells.select" pour eviter de selectionner la feuille entiere avant la macro).Mais je vais essayer avec Ucase, merci.

Dim compteur As Integer
Dim fin As Integer
Dim car
Dim car2
Sub super_macro()




Do
Cells.Select
For compteur = 1 To 26 Step 1
fin = 0
car = Chr$(96 + compteur)
car2 = Chr$(96 + compteur - 32)

If compteur 26 Then fin 1
'If fin = 1 Then
Selection.Replace What:=car, Replacement:=car2, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Next compteur
Loop Until fin = 1
End Sub
Afficher les 6 commentaires