VBA remplacer une colonne en majuscule

Résolu/Fermé

Vba
Colonne

Marie Chant Messages postés 92 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 24 avril 2024 - 9 févr. 2017 à 15:22
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 12 janv. 2023 à 14:25

Bonjour,

Je ne suis pas très bien expérimenté en VBA alors je vous demande votre aide. J'ai déjà une macro mais cela prend beaucoup trop de temps pour l'exécution alors je ne crois pas que c'est la meilleure macro.

Je vous explique mon problème.

Dans ma colonne A j'ai des no factures d'inscrit soit:
Colonne A
Ligne 1 de12356
Ligne 2 CP1230
Ligne 3 GL2640
Ligne 4 gl2641
Ligne 5 le1236
Et d'une fois a l'autre une nombre de ligne est différent et souvent en haut de 5000 lignes.
Je veux que ma macro mettre toutes les lettres en majuscules.

Je mets ma colonne A en surbrillance et je lance cette macro:

Sub Majuscules()
Dim Cells As range
For Each Cells In Selection
Cells.Value = UCase(Cells.Value)
Next Cells
End Sub

Cela fonctionne MAIS c'est beaucoup trop long à exécuter. je ne sais pas comment faire pour accélérer la macro.

Pourriez-vous m'aider s.v.p.

je vous remercie de votre aide.

A voir également:

Mettre une colonne en majuscule excel vba
Déplacer une colonne excel - Guide
Liste déroulante excel - Guide
Mettre un texte en majuscule - Guide
Additionner colonne excel - Guide
É majuscule - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 9/02/2017 à 16:17

Bonjour

test sur 14000 lignes. durée: 0,12 secodes

Option Explicit
'--------------------------------------
Sub mettre_majuscules()
Dim Derlig As Integer, T_min, Cptr As Integer
Dim start As Single
start = Timer
Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
T_min = Range("A1:A" & Derlig)
For Cptr = 1 To UBound(T_min)
    T_min(Cptr, 1) = UCase(T_min(Cptr, 1))
Next
Range("A1").Resize(UBound(T_min)) = T_min
MsgBox Derlig & " lignes en " & Round(Timer - start, 2) & " sec"
End Sub

pour le fun; 5000 lignes en 0,08 secondes ;o)
Michel

Marie Chant Messages postés 92 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 24 avril 2024 2
9 févr. 2017 à 16:18

Bonjour Michel,

merci beaucoup. C'est vraiment HOT cette macro. WOW!

Elle fonctionne super bien, encore merci et bonne journée

alex
11 janv. 2023 à 18:43

bonsoir michel,

ce code est celui que je cherchais par contre pouvez le mettre sans le message du timing ? svp

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > alex
12 janv. 2023 à 14:25

Bonlpour

paz trop compris la demande... mais pour su^^rimer le message de fin(durée du traitement...?

supprimer les lignes

Range("A1").Resize(UBound(T_min)) = T_min
MsgBox Derlig & " lignes en " & Round(Timer - start, 2) & " sec"

et aussi

Dim start As Single
start = Timer

Discussions similaires

mettre en majuscule automatiquement une saisie excel

tout en majuscules (excel)

Majuscule en VBA

majuscule automatique dans chaque cellule

Excel:mettre automatiquement en majuscule

valeur derniere cellule dans une colonne

Discussions similaires

Newsletters