liste déroulante ="D3000" alors une autre liste ="D3000R"

[jeromeN95]

Bonour j'ai crée ce code placé dans VBA et dans l'onglet où est la liste déroulante :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$17" Then

If "$B$17" = "D3000" Then
cells(2, 21) = "D3000"
End If

End If
End Sub



Je souhaite : SI B17="D3000"
Alors B21 = "D3000"


J'ai environ 5 possibilités pour cette liste déroulante.


SVP, aider moi ça fait 2 semaines que je suis dessus.


merci à vous et bonne journée.

 

[Softmama]

Re : liste déroulante ="D3000" alors une autre liste ="D3000R"

Bonjour,
Cette simple ligne suffit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$17" and Target.value = "D3000" Then Range("B21")="D3000"
End Sub

 

[Hippolite]

Re : liste déroulante ="D3000" alors une autre liste ="D3000R"

Bonjour,
Nombreux exemples sur le site de J. Boisgontier :
Formation Excel VBA JB
A+

 

[jeromeN95]

Re : liste déroulante ="D3000" alors une autre liste ="D3000R"

Bonjour,
merci beaucoup d'avoir répondu.
Il te manque un End If.

Sinon j'avais réussi a bricoler ceci :
If Target.Address = "$B$17" Then
If Sheets("Cuisine").Range("B17") = "D3000" Then
Sheets("Cuisine").Range("B21") = "D3000"
End If
If Sheets("Cuisine").Range("B17") = "D250 D" Then
Sheets("Cuisine").Range("B21") = "D250 R"
End If
If Sheets("Cuisine").Range("B17") = "LRI" Then
Sheets("Cuisine").Range("B21") = "LRI"
End If
If Sheets("Cuisine").Range("B17") = "" Then
Sheets("Cuisine").Range("B21") = ""
End If
End If


Mais il n'y a pas photo. Ton code est nettement plus clair.

Merci beaucoup.