OVH Cloud OVH Cloud

Ville en MAJUSCULES

24 réponses
Avatar
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

4 réponses

1 2 3
Avatar
Albert
Bonjour Jacky

Notre première tempête de l'hiver débuterait dans quelques heures
Exact ce problème apparait quand la protection est activée avec la colonne A
verrouillée.
Cela n'arrivait pas avec les versions précédentes contenant des formules
dans la colonne A et je protège toujours les cellules avec formules.
Cette dernière version ne contient pas de formule, et une correction
regénère la mise a jour de la cellule Ax.
J'ai déverrouillé la protection de la colonne A, et tout va bien.

Merci
albert

"Jacky" a écrit dans le message de
news:ji7red$1i8$
La feuille à certainement était protéger
On ne peut pas verrouiller des cellules et en même temps vouloir les
modifier
--
Salutations
JJ
Avatar
Albert
Bonsoir / Bonjour
"Jacky" a écrit dans le message de
news:ji5vn4$skd$

Quelques modifs
Ignorer la ligne 1 (titres)


Je ne vois pas l'avantage d'ignorer la ligne 1, à moins qu'un formulaire
soit utilisé pour la saisie des données, pouvez-vous m'éclairer?

Effacer la valeur en E2 (liste de validation) si le n° est celui d'une
ligne supprimée.


Je ne sais pas?

Numérotation par vba


C'est fait et ça va bien avec la colonne "A" déverrouillée.


Etc....
http://cjoint.com/?BBxtksGzLGP

Prochaine étape......;o))
Création d'un formulaire de saisie
Contrôle des saisies
Modif des saisies.


Si vous utilisez un "Userform" et VBA pour le formulaire je serais très
intéressé de connaitre les possibilités.

Salutations

--
albertri-at-videotron.ca.invalid
Avatar
Jacky
Re..
Je ne vois pas l'avantage d'ignorer la ligne 1


Dans
If Not Intersect(Range("b:d"), Target) Is Nothing And Target.Row > 1 Then
Si on supprime
... And Target.Row > 1
La ligne des titres sera considérer comme une ligne de saisie et la colonne A sera numéroté

Effacer la valeur en E2 (liste de validation) si le n° est celui d'une ligne supprimée.




Admettons que l'utilisateur sélectionne la DERNIERE LIGNE (pour éditer la feuille), par exemple LeNoRecu
"0008"
Dans la liste de validation, il y aura "0008"
Si dans le tableau de saisie la DERNIERE LIGNE ayant comme "NoRecu" 08 est supprimé, la liste de validation
gardera la valeur "0008" alors que celle-ci n'existe plus.
Voila......
--
Salutations
JJ


"Albert" a écrit dans le message de news: ji9at2$v04$
Bonsoir / Bonjour
"Jacky" a écrit dans le message de news:ji5vn4$skd$

Quelques modifs
Ignorer la ligne 1 (titres)


Je ne vois pas l'avantage d'ignorer la ligne 1, à moins qu'un formulaire soit utilisé pour la saisie des
données, pouvez-vous m'éclairer?

Effacer la valeur en E2 (liste de validation) si le n° est celui d'une ligne supprimée.


Je ne sais pas?

Numérotation par vba


C'est fait et ça va bien avec la colonne "A" déverrouillée.


Etc....
http://cjoint.com/?BBxtksGzLGP

Prochaine étape......;o))
Création d'un formulaire de saisie
Contrôle des saisies
Modif des saisies.


Si vous utilisez un "Userform" et VBA pour le formulaire je serais très intéressé de connaitre les
possibilités.

Salutations

--
albertri-at-videotron.ca.invalid
Avatar
Albert
Bonsoir
Presque 20 cm de neige déjà...

"Jacky" a écrit dans le message de
news:ji9ce7$2f7$

Quelques modifs
Ignorer la ligne 1 (titres)
Effacer la valeur en E2 (liste de validation) si le n° est celui d'une
ligne supprimée



Donc ce sont des modifications déjà faites et non pas à venir comme je
pensais, et je voyais cela plutôt dans un contexte d'utilisateur lors de la
saisie, j'ai maintenant tout compris.

Merci
Albert



Je ne vois pas l'avantage d'ignorer la ligne 1


Dans
If Not Intersect(Range("b:d"), Target) Is Nothing And Target.Row > 1 Then
Si on supprime
... And Target.Row > 1
La ligne des titres sera considérer comme une ligne de saisie et la
colonne A sera numéroté

Effacer la valeur en E2 (liste de validation) si le n° est celui d'une
ligne supprimée.




Admettons que l'utilisateur sélectionne la DERNIERE LIGNE (pour éditer la
feuille), par exemple LeNoRecu "0008"
Dans la liste de validation, il y aura "0008"
Si dans le tableau de saisie la DERNIERE LIGNE ayant comme "NoRecu" 08
est supprimé, la liste de validation gardera la valeur "0008" alors que
celle-ci n'existe plus.
Voila......
--
Salutations
JJ
1 2 3