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.
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é.
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.
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
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" a écrit dans le message de 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é.
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" <dcolardelleZZZ@free.fr> a écrit dans le message de
news:jhvljv$niv$1@speranza.aioe.org...
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.
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" a écrit dans le message de 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
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" a écrit dans le message de 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é.
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" <dcolardelleZZZ@free.fr> a écrit dans le message de
news:jhvljv$niv$1@speranza.aioe.org...
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.
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" a écrit dans le message de 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
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" a écrit dans le message de 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é.
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$1@speranza.aioe.org...
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" <dcolardelleZZZ@free.fr> a écrit dans le message de
news:jhvljv$niv$1@speranza.aioe.org...
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.
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" a écrit dans le message de 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
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."
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."
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
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."
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$426a34cc@news.free.fr...
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."
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
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."
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$426a34cc@news.free.fr...
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."
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
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" a écrit dans le message de 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
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" <dcolardelleZZZ@free.fr> a écrit dans le message de
news:ji0lle$jcb$1@speranza.aioe.org...
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$426a34cc@news.free.fr...
Bonjour,
C'est au cas où tu ajoutes des villes.
Daniel
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" a écrit dans le message de 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
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" a écrit dans le message de 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
Re à vous.....
"Albert" a écrit dans le message de groupe de discussion :
ji0mig$m5q$1@speranza.aioe.org...
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" <dcolardelleZZZ@free.fr> a écrit dans le message de
news:ji0lle$jcb$1@speranza.aioe.org...
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$426a34cc@news.free.fr...
Bonjour,
C'est au cas où tu ajoutes des villes.
Daniel
"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" a écrit dans le message de 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
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" a écrit dans le message de news: jhuumr$6c9$
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
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" <albert@invalid.com> a écrit dans le message de news: jhuumr$6c9$1@speranza.aioe.org...
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.
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" a écrit dans le message de news: jhuumr$6c9$
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.