Ville en MAJUSCULES

Le
Albert
Bonsoir / Bonjour

Dans le fichier nouvellement créé, on désire les noms de ville en
majuscules.
Pour ce faire j'essai http://www.excelabo.net/trucs/saisie_minuscule

Private sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:B10]) Is Nothing Then exit sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
end sub

J'ai modifié [A1:B10] à [Ville], Ville est une plage dynamique.
parfois ça fonctionne et parfois NON, je ne réussi pas indentifier la
cause.

Votre aide sera apprécié.

--
albertri-at-videotron.ca.invalid
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24267941
Bonjour,
Bizarre, peux-tu mettre un classseur exemple sur cjoint.com en ôtant
les données confidentielles ? pposte ensuite ici le lien généré.
Cordialement.
Daniel

Albert a écrit
Bonsoir / Bonjour

Dans le fichier nouvellement créé, on désire les noms de ville en majuscules.
Pour ce faire j'essai http://www.excelabo.net/trucs/saisie_minuscule

Private sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:B10]) Is Nothing Then exit sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
end sub

J'ai modifié [A1:B10] à [Ville], Ville est une plage dynamique.
parfois ça fonctionne et parfois NON, je ne réussi pas indentifier la cause.

Votre aide sera apprécié.
Albert
Le #24269241
Bonjour

le fichier exemple est sur http://cjoint.com/?BBvoHNr2dvG

Après une nuit de réflection.
Si j'entre les données dans l'ordre : Nom (B4), Adresse (C3), Ville (D4)
etc... le non VILLE est en Majuscule.
Si j'omet le NOM ou ADRESSE dans la ligne suivante, Ville sera en
minuscule et ainsi dans toutes les ligne suivantes.

Merci

Albert


"DanielCo" news:jhvljv$niv$
Bonjour,
Bizarre, peux-tu mettre un classseur exemple sur cjoint.com en ôtant les
données confidentielles ? pposte ensuite ici le lien généré.
Cordialement.
Daniel

Albert a écrit
Bonsoir / Bonjour

Dans le fichier nouvellement créé, on désire les noms de ville en
majuscules.
Pour ce faire j'essai http://www.excelabo.net/trucs/saisie_minuscule

Private sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:B10]) Is Nothing Then exit sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
end sub

J'ai modifié [A1:B10] à [Ville], Ville est une plage dynamique.
parfois ça fonctionne et parfois NON, je ne réussi pas indentifier la
cause.

Votre aide sera apprécié.




DanielCo
Le #24269501
C'est parce que la plage ville est dépendante du nombre de valeurs en
colonne B. J'ai créé une plage définie par le nombre de valeurs en
colonne A :
Plage définie par :
ÞCALER(Dons!$D$2;;;NB.SI(Dons!$A:$A;">"""""))
La macro devient :

Private Sub Worksheet_Change(ByVal zz As Range) 'Excelabo
If Intersect(zz, [plage]) Is Nothing Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

à condition qu'il y ait une valeur en colonne A sur la ligne qui
précède.
Daniel


Bonjour

le fichier exemple est sur http://cjoint.com/?BBvoHNr2dvG

Après une nuit de réflection.
Si j'entre les données dans l'ordre : Nom (B4), Adresse (C3), Ville (D4)
etc... le non VILLE est en Majuscule.
Si j'omet le NOM ou ADRESSE dans la ligne suivante, Ville sera en
minuscule et ainsi dans toutes les ligne suivantes.

Merci

Albert


"DanielCo" news:jhvljv$niv$
Bonjour,
Bizarre, peux-tu mettre un classseur exemple sur cjoint.com en ôtant les
données confidentielles ? pposte ensuite ici le lien généré.
Cordialement.
Daniel

Albert a écrit
Bonsoir / Bonjour

Dans le fichier nouvellement créé, on désire les noms de ville en
majuscules.
Pour ce faire j'essai http://www.excelabo.net/trucs/saisie_minuscule

Private sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:B10]) Is Nothing Then exit sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
end sub

J'ai modifié [A1:B10] à [Ville], Ville est une plage dynamique.
parfois ça fonctionne et parfois NON, je ne réussi pas indentifier la
cause.

Votre aide sera apprécié.




Jacquouille
Le #24269681
Bonjour
veuillez excuser mon intrusion, mais ceci ne conviendrait-il pas, tout
simplement?
--------------
Sub les_majuscules_de_Albert()
For Each c In Range("d2:d10")
c.Value = UCase(c)
Next

End Sub
------------------

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"DanielCo" a écrit dans le message de groupe de discussion :
ji0dtk$sau$

C'est parce que la plage ville est dépendante du nombre de valeurs en
colonne B. J'ai créé une plage définie par le nombre de valeurs en
colonne A :
Plage définie par :
ÞCALER(Dons!$D$2;;;NB.SI(Dons!$A:$A;">"""""))
La macro devient :

Private Sub Worksheet_Change(ByVal zz As Range) 'Excelabo
If Intersect(zz, [plage]) Is Nothing Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub

à condition qu'il y ait une valeur en colonne A sur la ligne qui
précède.
Daniel


Bonjour

le fichier exemple est sur http://cjoint.com/?BBvoHNr2dvG

Après une nuit de réflection.
Si j'entre les données dans l'ordre : Nom (B4), Adresse (C3), Ville (D4)
etc... le non VILLE est en Majuscule.
Si j'omet le NOM ou ADRESSE dans la ligne suivante, Ville sera en
minuscule et ainsi dans toutes les ligne suivantes.

Merci

Albert


"DanielCo" news:jhvljv$niv$
Bonjour,
Bizarre, peux-tu mettre un classseur exemple sur cjoint.com en ôtant les
données confidentielles ? pposte ensuite ici le lien généré.
Cordialement.
Daniel

Albert a écrit
Bonsoir / Bonjour

Dans le fichier nouvellement créé, on désire les noms de ville en
majuscules.
Pour ce faire j'essai http://www.excelabo.net/trucs/saisie_minuscule

Private sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:B10]) Is Nothing Then exit sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
end sub

J'ai modifié [A1:B10] à [Ville], Ville est une plage dynamique.
parfois ça fonctionne et parfois NON, je ne réussi pas indentifier la
cause.

Votre aide sera apprécié.




DanielCo
Le #24269831
Bonjour,
C'est au cas où tu ajoutes des villes.
Daniel


Bonjour
veuillez excuser mon intrusion, mais ceci ne conviendrait-il pas, tout
simplement?
--------------
Sub les_majuscules_de_Albert()
For Each c In Range("d2:d10")
c.Value = UCase(c)
Next

End Sub
------------------

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
Jacquouille
Le #24269821
Dans ce cas .....

Sub les_Grandes_majuscules_de_Albert()

derL = [D65536].End(3).Row
For Each c In Range("D2:d"&derL)
c.Value = UCase(c)
Next
End Sub

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"DanielCo" a écrit dans le message de groupe de discussion :
4f43d59f$0$31971$

Bonjour,
C'est au cas où tu ajoutes des villes.
Daniel


Bonjour
veuillez excuser mon intrusion, mais ceci ne conviendrait-il pas, tout
simplement?
--------------
Sub les_majuscules_de_Albert()
For Each c In Range("d2:d10")
c.Value = UCase(c)
Next

End Sub
------------------

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
DanielCo
Le #24269931
Oui, mais tu es obligé d'exécuter la macro à chaque ajout.
Daniel


Dans ce cas .....

Sub les_Grandes_majuscules_de_Albert()

derL = [D65536].End(3).Row
For Each c In Range("D2:d"&derL)
c.Value = UCase(c)
Next
End Sub

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"DanielCo" a écrit dans le message de groupe de discussion :
4f43d59f$0$31971$

Bonjour,
C'est au cas où tu ajoutes des villes.
Daniel


Bonjour
veuillez excuser mon intrusion, mais ceci ne conviendrait-il pas, tout
simplement?
--------------
Sub les_majuscules_de_Albert()
For Each c In Range("d2:d10")
c.Value = UCase(c)
Next

End Sub
------------------

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
Albert
Le #24270001
Re bonjour DanielCo et Jacquouille

Je vois que ma réponse au groupe à 10:48 EST n'est jamais apparue sur le
groupe, je l'avais adressée à DanielCo.
Oui j'ai compris mon erreur, tel qu'expliqué par DanielCo.

J'ai remplacé la ligne :
' If Intersect(zz, [Ville_QC_CP]) Is Nothing Then Exit Sub
par
If Intersect(zz, [C2:D10000]) Is Nothing Then Exit Sub
et jusqu'à maintenant ça marche très bien sur mon ordinateur, mais pas sur
l'ordinateur de l'utilisateur final.
J'irai cet après-midi faire un tour et vérifier les paramètre de son
ordinateur pour les macros.

Albert



"DanielCo" news:ji0lle$jcb$
Oui, mais tu es obligé d'exécuter la macro à chaque ajout.
Daniel


Dans ce cas .....

Sub les_Grandes_majuscules_de_Albert()

derL = [D65536].End(3).Row
For Each c In Range("D2:d"&derL)
c.Value = UCase(c)
Next
End Sub

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"DanielCo" a écrit dans le message de groupe de discussion :
4f43d59f$0$31971$

Bonjour,
C'est au cas où tu ajoutes des villes.
Daniel
Jacquouille
Le #24270171
Re à vous.....

"Albert" a écrit dans le message de groupe de discussion :
ji0mig$m5q$

Oui j'ai compris mon erreur,



Sémaphone, sémaphone, séma très grande phone ..... -)))))

Jacquouille, bien conscient qu'il faudra pousser sur le bouton à chaque fin
d'encodage.

" Le vin est au repas ce que le parfum est à la femme."




"DanielCo" news:ji0lle$jcb$
Oui, mais tu es obligé d'exécuter la macro à chaque ajout.
Daniel


Dans ce cas .....

Sub les_Grandes_majuscules_de_Albert()

derL = [D65536].End(3).Row
For Each c In Range("D2:d"&derL)
c.Value = UCase(c)
Next
End Sub

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"DanielCo" a écrit dans le message de groupe de discussion :
4f43d59f$0$31971$

Bonjour,
C'est au cas où tu ajoutes des villes.
Daniel
Jacky
Le #24271111
Re..
Regarde si cela convient
http://cjoint.com/?BBwcW0pxTkX

J'ai un plantage avec ta MFC :o((
Certainement le va et vient 2010 / 2003
J'ai modifié... a toi de voir ;o)
--
Salutations
JJ


"Albert"
Bonsoir / Bonjour

Dans le fichier nouvellement créé, on désire les noms de ville en majuscules.
Pour ce faire j'essai http://www.excelabo.net/trucs/saisie_minuscule

Private sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:B10]) Is Nothing Then exit sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
end sub

J'ai modifié [A1:B10] à [Ville], Ville est une plage dynamique.
parfois ça fonctionne et parfois NON, je ne réussi pas indentifier la cause.

Votre aide sera apprécié.

--
albertri-at-videotron.ca.invalid

Publicité
Poster une réponse
Anonyme