Creation de fonction

Version imprimable

17/05/2009, 14h53
jcaspar

Creation de fonction
:DBonjour à 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 :king:

Jean Marc
Code:

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
17/05/2009, 15h04
Minick

Salut,

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

Code:

=MAJUSCULE(taCellule)

++
Minick
17/05/2009, 15h08
jcaspar

Fonction Majuscule

M:mrgreen:erci 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
17/05/2009, 15h20
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:

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
17/05/2009, 15h38
jcaspar

Majuscule + choix des cellules dans macro

:king: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

re,

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

Code:

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