mettre 2 Private Sub Worksheet_

TEMAGOULTFARID · 4 Novembre 2019

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 · 4 Novembre 2019

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 · 4 Novembre 2019

Roblochon à dit:
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 · 4 Novembre 2019

Staple1600 à dit:
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 · 4 Novembre 2019

Staple1600 à dit:
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 · 4 Novembre 2019

Staple1600 à dit:
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 · 4 Novembre 2019

Re

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

VB:

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 · 5 Novembre 2019

Staple1600 à dit:
Re

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

VB:

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 · 5 Novembre 2019

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 · 6 Novembre 2019

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

mettre 2 Private Sub Worksheet_

TEMAGOULTFARID

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

TEMAGOULTFARID

XLDnaute Occasionnel

Pièces jointes

TEMAGOULTFARID

XLDnaute Occasionnel

TEMAGOULTFARID

XLDnaute Occasionnel

TEMAGOULTFARID

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

TEMAGOULTFARID

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

TEMAGOULTFARID

XLDnaute Occasionnel

Discussions similaires