Message quand P est mis dans cellule si cellule gauche n'a pas X
Résolu
micheleliane
Messages postés
76
Date d'inscription
Statut
Membre
Dernière intervention
-
micheleliane Messages postés 76 Date d'inscription Statut Membre Dernière intervention -
micheleliane Messages postés 76 Date d'inscription Statut Membre Dernière intervention -
Bonjour, à tous et meilleurs voeux
je ne suis toujours aussi nul en vba,
À la fin d'exécution du module AaPREPARATIONdesPARTICIPANTS, dans la feuille NOUVADH, quand on inscrit « P » dans la colonne P (PARTICIPE), le message (Manque le x dans la colonne REFERENCE), devraient apparaitre si celui-ci manque dans la colonne O.
Merci de l'aide qui vous m'accorderez.
Fichiers joint.
micheleliane
https://www.cjoint.com/?DAevhGVJJoD
je ne suis toujours aussi nul en vba,
À la fin d'exécution du module AaPREPARATIONdesPARTICIPANTS, dans la feuille NOUVADH, quand on inscrit « P » dans la colonne P (PARTICIPE), le message (Manque le x dans la colonne REFERENCE), devraient apparaitre si celui-ci manque dans la colonne O.
Merci de l'aide qui vous m'accorderez.
Fichiers joint.
micheleliane
https://www.cjoint.com/?DAevhGVJJoD
A voir également:
- Message quand P est mis dans cellule si cellule gauche n'a pas X
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
- Windows 11 barre des taches a gauche - Guide
- Site x - Guide
12 réponses
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
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 ......
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
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" ???????
Normalement il ne devrait avoir aucun »P » si il y en a c'est pour moi essayer
les macros.
Question: qui met les "P" ???????
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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+
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.
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
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
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
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
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
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
