Discussion :

[jcaspar]

Bonjour à tous !

Je souhaite créer une fonction exploitable dans excel qui transforme automatiquement les caractères en caractère en majuscule

si j'ai bien compris il faut que je crée une fonction et que je j'enregistre le document au format xla puis que je l'ajoute aux fonctions complémentaires.

Mon problème est que j'ignore comment coder cela pour que ce soit opérationnel dans excel et utilisable comme une fonction existante ....

Merci d'avance pour vos conseils et suggestions

Jean Marc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
function maj_auto( cellules as range)
dim plage
for each cellule in plage
do
ucase(cellule)
next
end function

[Minick]

Salut,

Il existe une fonction dans excel qui fait cela, pourquoi la reinventer...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MAJUSCULE(taCellule)

++
Minick

[jcaspar]

Merci de votre réponse !

Mais comment faire pour que je puisse utiliser cette fonction
avant d'avoir taper une valeur dans une cellule ( ce qui provoque r une référence circulaire ) ?

Merci encore pour vos idées

Jean Marc

[Minick]

re,

Ok, je comprend mieux, il faut une correction automatique et pas une formule.

Dans ce cas il faut placer le code dans le code de la feuille.
Clique droit sur l'onglet (Feuil1 par exemple) 'visualiser le code' et coller le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cellule As Range
 
    For Each Cellule In Target
        Cellule.Value = UCase(Cellule.Value)
    Next
End Sub

[jcaspar]

Génial ! C'est exactement ce qu'il me faut à un détail près je souhaiterais pouvoir définir les cellules qui m'intéressent directement dans la macro est ce possible ?

Merci beaucoup pour vos conseils

Jean Marc

[Minick]

re,

En remplacant "LaPlageConcernee" par la plage ca doit etre bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Cellule As Range, Plage As Range
 
    Set Plage = Intersect(Target, Range("LaPlageConcernee"))
 
    If Not Plage Is Nothing Then
        For Each Cellule In Target
            Cellule.Value = UCase(Cellule.Value)
        Next
    End If
End Sub

++
Minick