Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

deux macros qui ne s'aiment pas

4 réponses
Avatar
sasha
bonjour
voci le lie qui va direct vers mon probleme
http://cjoint.com/?jClcNw6nfE
merci à tous pour vos reponses si rapides
--
sasha

4 réponses

Avatar
Patrick Penet
BonjourOuNuit,

Tu as deux subs qui portent le même nom :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dans le module Feuil1.

Et ça c'est pas permis dutoudutoudutou !

Soit tu recopie le code de l'une dans l'autre,
soit tu recopie le code de l'autre dans l'une.

Cordialement.
PP

"sasha" a écrit dans le message de news:
bonjour
voci le lie qui va direct vers mon probleme
http://cjoint.com/?jClcNw6nfE
merci à tous pour vos reponses si rapides
--
sasha


Avatar
Patrick Penet
Par ailleurs (et par hasard) j'ai une deuxième
erreur dans la première de tes sub jumelles :

If mp = mdp(Target.Row - 5) Then

mdp ne correspond à rien dans le code, c'est une
sub ? une fonction ?

Koikecécemachinlà ?

PP


"sasha" a écrit dans le message de news:
bonjour
voci le lie qui va direct vers mon probleme
http://cjoint.com/?jClcNw6nfE
merci à tous pour vos reponses si rapides
--
sasha


Avatar
sasha
C'est sympa, mais j'ai essayé de recopier l'une ds l'autre et vice versa, ça
ne marche pas- les deux chacune ds leur fichier fonctionnent très bien,
pourquoi ne puis je pas combiner les actions ds un seul fichier ?? - A l'aide
--
sasha



Par ailleurs (et par hasard) j'ai une deuxième
erreur dans la première de tes sub jumelles :

If mp = mdp(Target.Row - 5) Then

mdp ne correspond à rien dans le code, c'est une
sub ? une fonction ?

Koikecécemachinlà ?

PP


"sasha" a écrit dans le message de news:
bonjour
voci le lie qui va direct vers mon probleme
http://cjoint.com/?jClcNw6nfE
merci à tous pour vos reponses si rapides
--
sasha







Avatar
Patrick Penet
Bonjour,

De mémoire, la deuxième sub ne sert à rien puisque
son code est mis en commentaire : tu peux donc la
supprimer, ce qui résoud l'erreur 1.

Pour l'erreur 2, explique nous c'est qu'est censé
être "mdp" dans l'expression...

If mp = mdp(Target.Row - 5) Then

PP

"sasha" a écrit dans le message de news:
C'est sympa, mais j'ai essayé de recopier l'une ds l'autre et vice versa, ça
ne marche pas- les deux chacune ds leur fichier fonctionnent très bien,
pourquoi ne puis je pas combiner les actions ds un seul fichier ?? - A l'aide
--
sasha



Par ailleurs (et par hasard) j'ai une deuxième
erreur dans la première de tes sub jumelles :

If mp = mdp(Target.Row - 5) Then

mdp ne correspond à rien dans le code, c'est une
sub ? une fonction ?

Koikecécemachinlà ?

PP


"sasha" a écrit dans le message de news:
bonjour
voci le lie qui va direct vers mon probleme
http://cjoint.com/?jClcNw6nfE
merci à tous pour vos reponses si rapides
--
sasha