Code mal placé ou incomplet?

Bonjour à tous,

dans le fichier suivant, l'ojectif est que si D14(liste déroulante) = "Cylindre", E13 = Pi.

Pour cela, j'ai créé un code qui fonctionne quand on clique sur E13. Or je voudrais qu'il fonctionne quand on choisie "Cylindre" en D14.

Comment faire?

D'avance merci,

Elfi

Bonjour,

remplace ton code par celui-ci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D14")) Is Nothing Then
If UCase(Target) = "CYLINDRE" Then
Range("f13") = Range("E13")
Else
Range("F13") = ""
End If
End If
End Sub

ou ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D14")) Is Nothing Then
If UCase(Target) = "CYLINDRE" Then
Range("f13") = WorksheetFunction.Pi
Else
Range("F13") = ""
End If
End If
End Sub

Amicalement

Boujour Dan

Merci, j'analyse pour comprendre. En tout cas, ça fonctionne.

Pour aller plus en précision, j'ai aussi fait une erreur dans le "else". Je l'ai corrigée par

Range("F13") . select

selection.clearcontents

afin que l'on puisse saisir autre chose quand ce n'est pas "Cylindre".

Bien amicalement,

Elfi