aide worksheet_change

[hprfr]

Bonjour,

Voila, j'ai un petit probleme pour remplir un fichier a l'aide de la fonction private sub worksheet_change.
J'ai un fichier avec 3 onglets, et je souhaite, remplir les 2 premiers onglets en fonction du choix d'un menu déroulant dans une cellule du premier onglet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E2").Value = "Français" Then Call remplissage_francais
If Range("E2").Value = "English" Then Call remplissage_anglais
End Sub

Sub remplissage_francais()
Sheets("Données-Data").Select
Range("B3").Value = "Type de fluide"
Range("B8").Value = "Fluide"
...
Sheets("Calculs").Select
Range("B4").Value = "Type de vanne"
...
End Sub

Sub remplissage_anglais()
Range("B3").Value = "Type of fluid"
Range("B8").Value = "Fluid"
...
Sheets("Calculs").Select
Range("B4").Value = "Valve type"
...
End Sub

Voila mon code, que j'ai mis dans sheet1 sur vba
Le seul truc, c'est que tant que je ne demande pas de remplir le deuxième onglet, ca se passe très bien, le soucis arrive lorsque je veux remplir le deuxieme onglet, ca plante et je sais pas trop a quoi cela est du.

Merci d'avance

 

[hprfr]

Re : aide worksheet_change

Manquait une ligne :
If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub

Merci pour tout

 

[TooFatBoy]

Re : aide worksheet_change

C'est effectivement une possibilité de résolution du problème.

A ton service.
Bonne nuit.

 

[alex67800]

Re : aide worksheet_change

Bonjour hprfr, le forum,

Deux chose:

test effectivement la target.adress comme ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]If Not Intersect(Target, Range("E2")) Is Nothing Then

Cancel = True[/COLOR]

If Range("E2").Value = "Français" Then Call remplissage_francais
If Range("E2").Value = "English" Then Call remplissage_anglais
End If


End Sub

Puis pour que le remplissage English fonctionnne, corrige l'erreur de frappe dans ta liste déroulante!😉
Tu as écrit Egllish

Une fois corrigé et tester cela fonctionnne!
Edit:
de plus je suppose que ceci:

With Sheets("[B]Données-Data[/B]")
    .Range("B4").Value = "Valve type"
End With

Serait plus tôt comme ceci:

With Sheets("[B]Calculs[/B]")
    .Range("B4").Value = "Valve type"
End With

Si je compare les deux codes français et anglais!

 

[hprfr]

Re : aide worksheet_change

Merci pour toutes vos réponses.
Les modifs fonctionnenent, reste plus qu'à corriger les erreurs de frappe et continuer de faire avancer mon prog.