Bonjour à tous,
Dans le fichier joint, vous trouverez la macro suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Feuil1").Select
Dim C4_X As Variant
C4_X = "C4_" & Range("C1")
Range("A4").Value = C4_X 'permet de vérifier le résultat de la variable
If Intersect(Sheets("Feuil1").Range("C4"), Range("C4")) Is Nothing Then Exit Sub
' Application.Run C4_X
End Sub
Lorsque la fonction Application.Run C4_X est inhibée, on peut exécuter manuellement les macros C4_1 C4_2 ou C4_3.
(c'est la cas actuellement)
Lorsque la fonction Application.Run C4_X est opérationnelle, ca beug. De plus, on ne peut plus exécuter les macros manuellement !
L’erreur serait elle dans « If Intersect(Sheets("Feuil1").Range("C4"), Range("C4")) Is Nothing » ? Faut-il répeter Range("C4"), Range("C4") ?
D’avance merci pour vos suggestions.
Dans le fichier joint, vous trouverez la macro suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Feuil1").Select
Dim C4_X As Variant
C4_X = "C4_" & Range("C1")
Range("A4").Value = C4_X 'permet de vérifier le résultat de la variable
If Intersect(Sheets("Feuil1").Range("C4"), Range("C4")) Is Nothing Then Exit Sub
' Application.Run C4_X
End Sub
Lorsque la fonction Application.Run C4_X est inhibée, on peut exécuter manuellement les macros C4_1 C4_2 ou C4_3.
(c'est la cas actuellement)
Lorsque la fonction Application.Run C4_X est opérationnelle, ca beug. De plus, on ne peut plus exécuter les macros manuellement !
L’erreur serait elle dans « If Intersect(Sheets("Feuil1").Range("C4"), Range("C4")) Is Nothing » ? Faut-il répeter Range("C4"), Range("C4") ?
D’avance merci pour vos suggestions.