Je suis NUL

AV

31/12/2004 à 08:57

Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV

Gilles

31/12/2004 à 09:11

SVP
Comment créer une fonction VBA
ex: je tape michel dans A1 en minuscule, et avec la macro je voudrais que ça
passe en majuscule ?
Merci

Bonjour, Sycora

Essaye la macro suivante (à associer à un bouton):

Sub EnMajuscules()
Dim vcCellule As Range
For Each vcCellule In Selection.Cells
vcCellule = Format(vcCellule, ">")
Next
End Sub

Cette macro traite toutes les cellules de la plage sélectionnée.
Pour mettre en minuscule, remplace ">" par "<".
Pour info, les fonctions MAJUSCULE, MINUSCULE et NOMPROPRE pourraient
également t'être utiles si tu ne souhaites pas passer par VBA.

Bonne continuation.

Pierre CFI [mvp]

31/12/2004 à 09:14

Salut Alain
dis moi, pourquoi changer le Target d'origine en zz ? je pose cette remarquable question, car sur access ou vb6, si l'on "touche"
aux sub évenementielles, elles ne fonctionnent plus (méme si on remet la méme chose) Dans excel, c'est plus cool apparemment .
Pfffft me diras tu, "pour sortir de l'ordinaire" :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"AV" a écrit dans le message de news:

Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV

sycora

31/12/2004 à 09:28

Merci
Mais quel est le chemin pour le module ?

"AV" a écrit dans le message de
news:

Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

AV

AV

31/12/2004 à 09:28

Salut Alain
dis moi, pourquoi changer le Target d'origine en zz ?

Story "target/zz"....
Parceque.....
1°) c'est nettement plus court
2°) c'est beaucoup plus joli
3°) c'est très agréable à susurrer (dixit ma sécrétaire !)
4°) ça permet d'échapper (temporairement) à l'impérialisme anglo-saxon (target)
en utilisant un vocable bien de chez nous ("zz")
5°) c'est aussi (et surtout) une sorte de signature ;-)

AV

AV

31/12/2004 à 09:33

Copier le texte de la macro (fourni) > clic droit sur l'onglet de feuille (ùo
l'on veut que "ça le fasse") > visualiser le code > coller

AV

Pierre CFI [mvp]

31/12/2004 à 09:39

AV, le jet setter excelien :o)
il n'empéche que si tu fais çà sur une sub évenementielle access (surtout 2000) plus d'évenement
au lieu de zz, on peut mettre aussi, urgent, testou, jean, phil ou hubert ??
Meilleurs voeux

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"AV" a écrit dans le message de news:

Salut Alain
dis moi, pourquoi changer le Target d'origine en zz ?

Story "target/zz"....
Parceque.....
1°) c'est nettement plus court
2°) c'est beaucoup plus joli
3°) c'est très agréable à susurrer (dixit ma sécrétaire !)
4°) ça permet d'échapper (temporairement) à l'impérialisme anglo-saxon (target)
en utilisant un vocable bien de chez nous ("zz")
5°) c'est aussi (et surtout) une sorte de signature ;-)

AV

AV

31/12/2004 à 09:47

il n'empéche que si tu fais çà sur une sub évenementielle access (surtout
2000)

C'est quoi cette "chose" (access) ?
Serait-ce que tes problèmes auraient la forme d'un marteau pour t'enquérir de
savoir où se trouve le clou ?
;-)
AV

sycora

31/12/2004 à 09:47

Ok ça marche
(Mais simplement pour A1)

"AV" a écrit dans le message de
news:

Copier le texte de la macro (fourni) > clic droit sur l'onglet de feuille
(ùo

l'on veut que "ça le fasse") > visualiser le code > coller

AV

sycora

31/12/2004 à 09:49

Non c'est pour comprendre le VBA !
Merci

"Gilles" a écrit dans le message de
news:

SVP
Comment créer une fonction VBA
ex: je tape michel dans A1 en minuscule, et avec la macro je voudrais
que ça

passe en majuscule ?
Merci

Bonjour, Sycora

Essaye la macro suivante (à associer à un bouton):

Sub EnMajuscules()
Dim vcCellule As Range
For Each vcCellule In Selection.Cells
vcCellule = Format(vcCellule, ">")
Next
End Sub

Cette macro traite toutes les cellules de la plage sélectionnée.
Pour mettre en minuscule, remplace ">" par "<".
Pour info, les fonctions MAJUSCULE, MINUSCULE et NOMPROPRE pourraient
également t'être utiles si tu ne souhaites pas passer par VBA.

Bonne continuation.

Je suis NUL

10 réponses

Veuillez sélectionner un problème