Code VB avec drôle de réaction

Version imprimable

Bonjour à tous,

J'ai créé, dans un module complémentaire, une macro qui passe toutes les cellules de ma sélection en majuscule.
J'y ai donc accès depuis tous mes classeurs Excel via un bouton ajouté au ruban.
Idem avec Minuscule et Trim.

Voilà le code pour les majuscules (il n'y qu'une ligne qui change pour les deux autres) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub Mettre_en_majuscule_la_selection() Application.ScreenUpdating = False Dim rg As Range: Set rg = Selection Dim t() As Variant: t() = rg Dim ligne As Double, colonne As Double For colonne = 1 To UBound(t, 2) For lign = 1 To UBound(t, 1) On Error Resume Next t(ligne, colonne) = UCase(t(ligne, colonne)) On Error GoTo 0 Next ligne Next colonne rg = t() Application.ScreenUpdating = True End Sub
Ça fonctionne plutôt bien sauf quelques bizarreries, je m'explique :

Lorsque je lance la macro avec une seule cellule ça plante lors de l'attribution de rg a mon tableau t (t() = rg).
Avec des dates, ça fait vraiment des choses bizarres, les mois et les jours sont échangés et la sub ne parcours pas toute la selection.

Si quelqu'un sais me donner des explications qui m'aideraient a comprendre le VB encore un peu plus je suis plus que preneur.
Merci d'avance à tous et bonne journée.

Bonjour,

normal car pas de contrôle si c'est bien une variable tableau …
Et VBA ne connaissant que les dates au format anglo-saxon, voir dans les tutoriels de ce site …
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Majuscules() Dim Cel As Range If TypeName(Selection) = "Range" Then For Each Cel In Selection With Cel If Not ((.Locked And ActiveWorkbook.ActiveSheet.ProtectContents) Or _ .HasFormula) Then .Value = UCase(.Value) End With Next End If End Sub
_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

07/04/2015, 15h09
antonysansh

Merci pour ta réponse Marc-L,

Ok pour le If TypeName(Selection) = "Range" Then, j'avais déjà réglé le probleme.
Je ne savais pas que le range en selection ne pouvais pas etre un tableau de (1 to 1, 1 to 1) ce qui est quand même bien dommage.

Par contre pour les dates, je ne sais pas si tu as testé la macro mais je t'invite à le faire.
Les dates passent de jj/mm/yyyy à mm/jj/yyyy et vice versa et si que des dates elles ne sont pas toutes traitées avec un prime un changement de format sur les dernières.
07/04/2015, 15h13
Marc-L

C'est normal, voir les tutoriels sur les dates …
Je n'ai jamais cherché à mettre en majuscule des dates ! :ptdr:

La fonction IsDate permet donc de vérifier et ne pas traiter dans ce cas, mais cela aussi tu l'as déjà réglé ?! :roll: …
07/04/2015, 15h37
antonysansh

Citation:

Envoyé par Marc-L

Je n'ai jamais cherché à mettre en majuscule des dates ! :ptdr:

Moi non plus mais si dans une colonne que je veux mettre en majuscule, une date si trouve, je trouvais le comportement de la macro bizarre.
Je vais gérer le cas des dates avec IsDate comme tu le suggères.

Bonjour

Voici qui règle la question des dates inversées (grâce à FormulaLocal) et la question d'une seule cellule sélectionnée (avec Dim t As Variant).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Mettre_en_majuscule_la_selection2()
 
    Dim rg As Range: Set rg = Selection
    Dim t As Variant: t = rg
    Dim ligne As Double, colonne As Double
 If rg.Count = 1 Then
   t = UCase(t)
 Else
 
    For colonne = 1 To UBound(t, 2)
        For ligne = 1 To UBound(t, 1)
             t(ligne, colonne) = UCase(t(ligne, colonne))
        Next ligne
    Next colonne
 End If
 
rg.FormulaLocal = t
 
End Sub