Discussion :

[Kestion100]

Bonjour,
Je cherche à lancer une macro lorsqu'une cellule de la colonne I:I affiche "DOUBLON", cette valeur est donnée par une formule.

Pour l'instant, rien ne se passe...

Les code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I5:I1000]) Is Nothing Then
Exit Sub 'rien faire
Else 'c'est la bonne cellule
'et tu peux rajouter un test sur le contenu
 
If Target.Value = "DOUBLON" Then
Call MEFCDOUBLONS
Else
Exit Sub
End If
End If
End Sub

La formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(ESTTEXTE(B5);ET(SOMMEPROD((B5=$B$4:$B$6)*1)>1;SOMMEPROD((C5=$C$4:$C$6)*1)>1));"DOUBLON";"")

Question subsidiaire, comment enchaîner 2 codes évènementielles sur la même feuille?
Dans le cas présent, une deuxième macro se déclencherait à la modification d'une cellule d'une autre colonne, avec une autre valeur, dans la même feuille.

Si quelqu'un peut me donner un coup de main, merci beaucoup

[ANOVA]

Une idée comme ça à tout hasard.

Plutôt que d'utiliser une imbrication de fonctions Excel, tu peux faire une fonction personnelle (http://silkyroad.developpez.com/vba/fonctions/) qui va renvoyer le même résultat. Ensuite tu remplaces ta formule compliquée par ta fonction personnelle.

Du coup, tu n'as plus à utiliser d'argument. Avant de renvoyer ton résultat dans ta fonction personnelle, tu appelles la sub que tu souhaites appeler (Call MEFCDOUBLONS). Dans l'histoire, il n'y a plus d’événement.

[Menhir]

Première remarque : dans une structure If, les Else ne sont pas obligatoires.
Et si tu n'as qu'une seule action dans le If, tu peux la même sur la même ligne ce qui te permet aussi l'économie du End If.
Ton code peut donc être simplifié ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [I5:I1000]) Is Nothing Then Exit Sub   ' rien faire
    If Target.Value = "DOUBLON" Then Call MEFCDOUBLONS
End Sub

La formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(ESTTEXTE(B5);ET(SOMMEPROD((B5=$B$4:$B$6)*1)>1;SOMMEPROD((C5=$C$4:$C$6)*1)>1));"DOUBLON";"")

????
Quel est le rapport entre la formule et la macro ?

Question subsidiaire, comment enchaîner 2 codes évènementielles sur la même feuille?

Dans le cas présent, une deuxième macro se déclencherait à la modification d'une cellule d'une autre colonne, avec une autre valeur, dans la même feuille.[/QUOTE]
En modifiant le contenu de ta macro évènementielle :
Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
    Case 10
        If Target.Value = "DOUBLON" Then Call MEFCDOUBLONS
    Case 12
        ' Expliquer ce qu'on fait pour les modification colonne K
    End Select
End Sub

[Kestion100]

la formule inscrit "DOUBLON" dans la cellule cible ce qui déclenche la macro et ce qui cause problème je pense car le code fonction ne quand j'écris "DOUBLON" "manuellement" dans la cellule.
Je pense que les "case" sont une bonne, ce n'est pas 9 et 11 les colonnes I et K ?

la formule se trouve dans les cellule de la colonne I

[clementmarcotte]

Bonjour,

la formule inscrit "DOUBLON" dans la cellule cible ce qui déclenche la macro et ce qui cause problème je pense car le code fonction ne quand j'écris "DOUBLON" "manuellement" dans la cellule.
Je pense que les "case" sont une bonne, ce n'est pas 9 et 11 les colonnes I et K ?

J'avoue d'emblée que je n'ai pas testé. Mais, dans l'aide de VBA Excel, ils disent ceci:

Cet événement se produit lorsque les cellules de la feuille de calcul sont modifiées par l'utilisateur ou par un lien externe.

Or le contenu de la cellule est une formule. Tout ce qui change, c'est l'affichage.

Et puis, la même aide dit ceci, pour une situation quelque peu similaire, si on peut dire : le recalcul de la cellule:

Remarques


Cet événement ne se produit pas lorsque les cellules sont modifiées par un recalcul. Utilisez l'événement Calculate pour piéger le recalcul d'une feuille de calcul.

Donc, Il ne te reste juste qu'à essayer avec Worksheet.Calculate(), ou de changer d'approche.

[Menhir]

la formule inscrit "DOUBLON" dans la cellule cible ce qui déclenche la macro et ce qui cause problème je pense car le code fonction ne quand j'écris "DOUBLON" "manuellement" dans la cellule.

La cellule pointée par le paramètre Target de la fonction Change est celle qui est modifiée à la main.

Je pense que les "case" sont une bonne, ce n'est pas 9 et 11 les colonnes I et K ?

C'est vraiment une question ?