Restreindre entrée données dans une cellule + Alerte

Bonjour a tous,

Dans ce fichier, j'ai dans une première feuille une cellule dans laquelle j'attribue un numéro de commande en fonction des numéro déjà attribué dans la deuxième feuille.

Cependant, on peut se trompé.

Je voudrais donc savoir si il était possible de bloquer les entrées dans cette cellule pour faire en sorte que le nouveau numéro ne corresponde pas à ceux existant, et si possible, insérer une alerte qui nous préviendrais que le numéro est déjà utilisé.

Veuillez trouver en PJ, un modèle

Merci d'avance pour votre aide

Bonjour

Un essai

bonsoir

une autre version avec toujours un balbutiement de vba

elle sera ameliorée (msg box yes/no pour effacement ) a la nipponne

35jimgti.zip (6.74 Ko)

bien cordialementà vous deux

une autre version mais le msg box " merdouille" ; ; j'en profite pour apprendre

40jimgti2.zip (8.38 Ko)

merci pour touS

Bonjour,

merci de votre aide


Banzai64 a écrit :

Bonjour

Un essai

Bonjour,

est-il normal que je ne puisse pas voir la macro en détail dans ton fichier?

PS: est dans aucun autre d'ailleurs

Bonjour

est-il normal que je ne puisse pas voir la macro en détail dans ton fichier?

Ouvrir l'éditeur VBA

Alt+F11 (Touches Alt et F11)

Cordialement

Merci

bonjour

la version avec me msg box qui ne "merdouille plus"

la ligne msg box =no ne servait a rien ;si ce n'est de ........

c'est vraiment en cherchant que l'on trouve

34jimgti4.zip (8.35 Ko)

cordialement

tulipe_3 a écrit :

bonjour

la version avec me msg box qui ne "merdouille plus"

la ligne msg box =no ne servait a rien ;si ce n'est de ........

c'est vraiment en cherchant que l'on trouve

cordialement

Bonjour et merci de ta participation

Comment se modifie le code si les numéros de commande déjà enregistré se trouve sur une autre feuille?

bonsoir

eh bien; mon pauvre ami je suis dans l'incapacité de te repondre , car dès qu'il s'agit de plusieurs onglets je ne maitrise pas la syntaxe d'autant plus qu'il y a ce satané xl up et . row+1 le tout garni de parentheses ;je sais que cela doit commencer par sheets (

mais ça s'arrete la ;et encore .....

ma pietre intervention fera au moins remonter le sujet ( mais pas plus haut que les sommets du JURANCON ; par exemple)

deja merci pour la leçon

cordialement

Bonsoir

Une version avec mise à jour de la liste "déjà utilisé"

re

merci je vais tester le tronçon sheets ...... car j'ai remarqué que lasyntaxe etait foncierement differente

cordialement

tulipe_4 a écrit :

bonsoir

eh bien; mon pauvre ami je suis dans l'incapacité de te repondre , car dès qu'il s'agit de plusieurs onglets je ne maitrise pas la syntaxe d'autant plus qu'il y a ce satané xl up et . row+1 le tout garni de parentheses ;je sais que cela doit commencer par sheets (

mais ça s'arrete la ;et encore .....

ma pietre intervention fera au moins remonter le sujet ( mais pas plus haut que les sommets du JURANCON ; par exemple)

deja merci pour la leçon

cordialement

Bonsoir, ce n'est pas grave, merci tout de même de ta participation


Banzai64 a écrit :

Bonsoir

Une version avec mise à jour de la liste "déjà utilisé"

Merci, je ferais un retour dès que j'aurais tester le fichier

bonsoir

j'ai adapté le fameux tronçon ( sheets .... qui permet d'enregitrer sur une autre feuille

tu feras ton choix

merci banzai

13jimgti22.zip (8.74 Ko)

cordialement

Bonjour,

je voudrais adapter la macro du fichier Avertissement V002 au fichier Recopie V001 mais en changeant les cellules et le nom de feuille, cela ne marche toujours pas.

Est-ce que vous avez une idée sur les modifs a apporté a cette Macro pour que cela fonctionne?


Bonjour

Si j'ai compris tu veux tester si le numéro de commande est déjà pris

Le code est dans le module ThisWorkbook

Oui voila c'est ca, cependant, en intégrant le code

je rencontre un problème avec cette ligne:

If Not Intersect(Range("K15"), Target) Is Nothing And Target.Count = 1 Then


Ah ben en fait ça marche je ne sais pas ce qui passé

Merci beaucoup

Rechercher des sujets similaires à "restreindre entree donnees alerte"