mettre 2 Private Sub Worksheet_

[TEMAGOULTFARID]

bonjour a vous tous,

Comment Unifié 2 Private Sub Worksheet_Change(ByVal Target As Range) dans le même fichier
Je mets le fichier en PJ pour une meilleurs comprehension
Par avance , merci

 

[Hasco]

bonjour

Je viens d'ouvrir votre fichier, déjà en m'étonnant que ce soit un .xlsx et non un .xlsm, et ensuite en tombant sur une macro copiée en texte dans une feuille, sans donnée ni quoique ce soit d'autre. Vous vous fichez du monde, et c'est pas la première fois:
https://www.excel-downloads.com/thr...ier-vers-un-autre-vba.20037758/#post-20270664
Je crois que je vais cesser de vous répondre.

 

[TEMAGOULTFARID]

bonjour

Je viens d'ouvrir votre fichier, déjà en m'étonnant que ce soit un .xlsx et non un .xlsm, et ensuite en tombant sur une macro copiée en texte dans une feuille, sans donnée ni quoique ce soit d'autre. Vous vous fichez du monde, et c'est pas la première fois:
https://www.excel-downloads.com/thr...ier-vers-un-autre-vba.20037758/#post-20270664
Je crois que je vais cesser de vous répondre.

Bonsoir, effectivement , je m'en suis rendu compte aussitôt après , encore une erreur de ma part qui ne peut que renforcer ma vigilance pour les futurs demande.Merci de me l'avoir rappeler,je ùet en PJ le fichier conforme a ma demande. Bien a toi

 

[TEMAGOULTFARID]

Bonsoir le fil, FARID, Roblochon

Décidément c'est pas ton jour, Farid

Tu reproduis exactement le même travers...
Des problèmes de mémoire, sans doute ?

Oui , un peu surbooké a u travail q'ils veulent tout maintenant , tout de suite depuis hier.J'aurai préféré prendre mon temps de pouvoir mieux étudier le VBA afin d’essayé me débrouiller tout seul , enfin que je dit tout seul, je me projetais dans le futur du futur.Mais dans l’immédiat, je fais appel au forum avec des mastodonte d'excel pour accélérer mon projet.J'ai très bien avancé, je te rassure.bien a toi

 

[TEMAGOULTFARID]

Re

*: Tu as du mal comprendre ce que je disais dans ton autre fil, non?

*: C'est ce que on se dit quand on lit le 1er message de ce fil.

Décidément, il faut que j’arrête le lait , il doit être trop fermenté.Effectivement a la relecture cela veut rien dire.C'est corrigé. Je pense que je vais décrocher un peu .bonne soiré a toi et merci encore

 

[TEMAGOULTFARID]

Re

FARID
???
C'est ton premier message qu'il faut Ce lien n'existe plus (pour le modifier et y ajouter des explications et détails dans le message sur le forum
(et non pas dans le fichier exemple)

EDITION: Tu as mis les détails dans le titre (du coup il est trop long ) plutôt que dans le corps du message.

merci pour tes conseilles ,effectivement l'angle de lecture n'est pas la même pour tout le monde. Bonne soirée a toi

 

[Staple1600]

Re

J'ai ouvert ton fichier
1) Pas d'userform nommé UserFormMDP

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    On Error Resume Next
    If Target.Validation.Formula1 = "=nom" Then
        If Err = 0 And IsNumeric(Application.Match(Target, [nom], 0)) And Target <> "" Then UserFormMDP.Show
    End If
    Application.EnableEvents = True
End Sub

2) Pas de nom "nom" dans le gestionnaire de noms
Après ces deux constats, je me suis laissé convaincre de refermer le fichier.

 

[TEMAGOULTFARID]

Re

J'ai ouvert ton fichier
1) Pas d'userform nommé UserFormMDP

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    On Error Resume Next
    If Target.Validation.Formula1 = "=nom" Then
        If Err = 0 And IsNumeric(Application.Match(Target, [nom], 0)) And Target <> "" Then UserFormMDP.Show
    End If
    Application.EnableEvents = True
End Sub

2) Pas de nom "nom" dans le gestionnaire de noms
Après ces deux constats, je me suis laissé convaincre de refermer le fichier.

Bonjour , Désolé si j'ai été mal compris et de t'avoir déranger. Merci d'avoir essayer et pour tes conseils de communications.Bien cordialement

 

[Staple1600]

Bonsoir le fil, FARID

FARID
Où ai-je écrit que tu m'as dérangé?
Je t'indique seulement que tu joins un fichier exemple incomplet
(il manque un userform, le nom "nom" n’apparaît pas dans le gestionnaire de noms d'Excel)
Or ces éléments sont utilisés dans la macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
If Target.Validation.Formula1 = "=nom" Then
If Err = 0 And IsNumeric(Application.Match(Target, [nom], 0)) And Target <> "" Then UserFormMDP.Show
End If
Application.EnableEvents = True
End Sub

Dans ces conditions, difficile de faire des tests, non ?

 

[TEMAGOULTFARID]

Bonjour a toi , surtout ne prends mal mon écrit, il n'y avait aucun mal, c'est plutôt moi qui se sent gêné.Je preparae le fichier plus explicite.
bien a toi