Message quand P est mis dans cellule si cellule gauche n'a pas X

Bonjour, a tous
Voici ce que j'avais réussi à mettre qui ne bug pas,
Mais qui ne fait rien.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 And Target = "P" Then
If Target.Column = 15 And Target = "" Then

MsgBox "MANQUE X en REFERENCE"
End If
End If
End Sub

Bonjour,

dans le fichier Adherents.xls, le x manque deja !!!!! C'est peut-etre la qu'il faudrait regarder si c'est un oubli ou ......

Bonsoir, f894009
Les «X« signalent que nous avons les références pour la manifestation.
Les »P » la participation à la manifestation.
C'est pour cela qu'il n'y a pas toujours les «X«.
Normalement il ne devrait avoir aucun »P » si il y en a c'est pour moi essayer
les macros.
Et je veux le message car il ne peut avoir participation sans les références.
J'espère être compréhensible.
Merci de ta remarque.
micheleliane

Re,

Normalement il ne devrait avoir aucun »P » si il y en a c'est pour moi essayer
les macros.

Question: qui met les "P" ???????

Bonsoir ,f894009
On les met manuellement en même temps que les X reçu entretemps
à la fin de la première macro.
C'est pour cela qu'il faut le message
micheleliane

Bonjour,

On les met manuellement en même temps que les X reçu entretemps

Non, c'est soit une formule qui met les P dans la colonne si le P est dans la colonne K de l'onglet ANCIEN et de temps en temps le P arrive par miracle !!!! De plus, vous avez plus d'adherents au final que sur le fichier adherent, comment cela se fait-ce ???????? Qui a ecrit le code VBA ????

ci-joint votre fichier apres mise a jour, en rouge, les noms fantomes

https://www.cjoint.com/?DAiiUOvPCke

A+

Bonjour,f894009
Ma demande est quand j'écris manuellement dans la feuille "NOUVADH"le" P "dans la colonne" P" qu'un message soit envoyé si dans la colonne "O" le" X " n'existe pas.
Réponse à tes questions
Je ne voie pas de rouge dans le model envoyé.
Les "X " et les " P "sont mis par moi pour essayer mes macros.
ce sont des données reçus par téléphone ou courrier il faut les rentrer manuellement
Si il y a des fantômes c'est parce que la feuille AUTREADH est ajoutée.
C'est moi qui" fais"si l'on peut dire la macro.

Re,

Pour les "fantomes", j'ai trouve.

code de votre macro: pour ecriture du P si dans ANCIEN

Sheets("NOUVADH").Select
Range("P3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-15],ANCIEN!R3C1:R120C13,11)"
Range("P3").Select
selection.AutoFill Destination:=Range("P3:P120"), Type:=xlFillDefault
Range("P3:P120").Select

' RECHERClesESPECESdansANCIEN Macro
Sheets("NOUVADH").Select
Range("Q3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-16],ANCIEN!R3C1:R139C12,12)"
Range("Q3").Select
selection.AutoFill Destination:=Range("Q3:Q120"), Type:=xlFillDefault

'End Sub

A quoi sert ce code si vous ecrivez le P a la main

Re,

code dans vba Feuil2(NOUVADH)

test minimum:

https://www.cjoint.com/?DAilum3KVVT

Bonjour,f894009
Je prépare à l'avance les données que j'ai déjà reçues dans "ANCIEN" et "AUTREADH"quand cela est possible.
En principe cela j'ai le temps de bien les contrôler. Mais je ne peux pas toujours le faire aussi on rentre toutes les données aux derniers moments.
Après je rajoute les retardataires et tous les renseignements, c'est à ce moment-là qu'il faut la vérification.
De plus cette action peut être faite par quelqu'un qui n'est pas habitué, et si je n'ai pas préparé "ANCIEN" et "AUTREADH"il doit tout faire.
J'espère me faire comprendre
micheleliane

Re,
avez-vous regarder le fichier que je vous ai modife Lien (#9)

Bonjour,f894009

MERCI excuse ma réponse tardive je n'avais pas vue ta réponse avec le code
Celui-ci fonctionne très bien.
Je pense avoir compris le fonctionnement,
Je sais que mes macros ne sont peut-être pas très orthodoxe le seul mérite pour moi c'est qu'elles fonctionnent.
Encore un très grand MERCI ca coincé vraiment la dessus.
Bonne journée et HEUREUSE année

micheleliane