Le classeur sur lequel je travaille sera utilisé par une bonne centaine de personnes.
La table de référence est issue d'une base de donnée des adhérents à jour de leur cotisation.
Comment dans ce cas avoir une table à jour si chacun ajoute une ligne?
Non cela n'est vraiment pas possible.
En tout cas merci de votre réponse.
Cordialement
Mistral

Bonjour,

Tout d’abord merci de vous intéresser à mon cas, mais je rencontre un problème.
Je pense avoir correctement rentré le code. Clique droit sur l’onglet de la feuille concerné, puis clique sur « Visualiser le code », puis choix de Worksheet et enfin choix de Change. J’ai ensuite par copier/coller inséré le code entre les deux lignes.
Mais quand je fais des essais j’ai le message suivant chaque fois que je valide une entrée en colonne « E ».

Erreur d’exécution « 424 ».
Objet requis
Et quand je lance le débogage c’est la ligne « If sel.Column = 4 Then » qui est surlignée.

Et là je bloque car mes connaissances en Vb sont limitées. Dans un de mes messages précédents j’ai mis un lien sur un fichier test. Si vous pouviez éclairer ma lanterne…
D’avance merci
Cordialement.
Mistral

Je ne pense pas avoir fait d'erreur car je n'ai pas copié la première et dernière ligne.
J'ai inseré depuis : «If sel.Column = 4 Then » jusqu’à : « End If »


Et comme je l’ai tout à l”heure l’erreur est sur la ligne : « If sel.Column = 4 Then »

Une idée ?

Bonjour,
Un grand merci de vous intéresser à mon problème.
J’ai téléchargé le fichier que vous m’avez joint mais il y a un petit problème. En effet si je rentre des caractères alphabétique dans les boîtes de dialogue je plante avec comme message Erreur d’exécution 13
Incompatibilité de type

Et la ligne en défaut est
If nom = False Then Exit Sub

Par contre si je rente des valeurs numériques cela semble fonctionner.
Comment remédier à ce défaut ?

Si j’ai bien compris ce que vous avez fait :
Si la valeur « Numéro d'adhérent inconnu.. » apparaît colonne 6 on déclare les variables nom et pnom. On ouvre ensuite la boite de dialogue nom on renseigne et on valide par Ok. On test la variable nom et une mise en forme est ensuite faite. Si on annule le nom on mets fin à la macro. Même chose pour la pnom.

Cordialement
Mistral

Re,

Cela fonctionne correctement cette fois. Un grand merci.
Je vais retravailler mon sujet car d’autres demandes sont arrivées et je vais regarder pour adapter ta macro à ces demandes.
Si je n’y arrive je reviendrais vers toi, mais je te tiendrais au courant.
Cordialement
Mistral

Re,

Juste une question que j’ai oubliée de vous poser.
A quoi sert la ligne :

If sel.Column = 4 Then

Je pense avoir compris le reste mais là je ne vois pas.
D’avance merci
Cordialement
Mistral

Bonjour,

J’ai apporté quelques modifications et j’ai un problème que je n’arrive pas à résoudre.
Pour éviter d’avoir à déprotéger les cellules sans arrêt j’ai créé des colonnes supplémentaires qui seront masquées pour un usage courant. J’effectue aussi un contrôle sur l’année de cotisation.
Quand on rentre un N° inconnu dans la colonne « D » et qu’on valide par entrée, on lance la macro et la cellule active est celle de dessous. Si on renseigne nom et prénom pas de problème cela fonctionne. Par contre si on annule le nom ou le prénom je souhaiterais que la cellule contenant le N° erroné soit effacée et qu’elle reste active.
Je souhaiterais aussi qu’après avoir saisi un nom et prénom pour un N° erroné et si on efface ce N° pouvoir effacer la colonne « I ».

Je vous mets ici un lien vers mon classeur modifié.

http://www.cijoint.fr/cjlink.php?file=cj200910/cijdRGF92X.xl­s

D’avance merci
Cordialement
Mistral

Re,

Un grand merci pour votre aide car cela fonctionne comme je le voulais.
Par contre à l'ouverure du classeur on me propose des mise à jour en fonction d'une liaison avec un autre classeur et je ne sais pas comment faire pour supprimer cet liaison.
Cela ne gêne rien le fonctionnement mais est gênante dans la mesure ou elle est présente à chque ouverture du fichier.
D'ou cela peut-il venir?
Cordialement
Mistral

Re

Il demeure un petit problème.
Si un code erroné est rentré dans la colonne 4, la macro se déroule bien.
Si j'efface de suite cette valeur tout reviens à zéro.
Si je continu la saisie tout est OK.
Par contre si j'essaye d'effacer un groupe de ligne après une erreur je plante avec comme erreur :

Erreur d'éxecution '13'.
Icompatibilite de type.

Comment fair pour éviter cette anomalie et reposionner la cellule active sur le cellule qui contenait l'erreur.
Cordialement
Mistral

Je réponds un peu tardivement mais je ne suis rentré que ce matin de WE.

Un rapide coup d'oeil me permet de dire que cela semble répondre au problème posé.
Je vais regarder cela de plus prés et je te tiens au courant. Je vais effectivement regarder
comment fonctionne cette boucle For/Next.

J'ai adapté nos précédents échanges dans mon classeur définitif sans problème particulier
Je vais pouvoir continuer à avancer pour finaliser ce projet.
Encore un grand merci à toi pour ton aide.
Cordialement.
Mistral