Private Sub Worksheet_Change

Bonjour

Mon code suivant affecte une valeur a "O6" et "O15" après le changement de la cellule "B2"
Je souhaite remplacer Range("O6") et Range("O15") par une variable
Svp est ce que mon code et correcte et bien rédiger

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Worksheet_Change(ByVal Target As Range) Dim note As String note = Range("B2")   If Target.Address = Range("B2").Address Then   Select Case note Case Is = "A" Range("O6").Value = 1 Range("O15").Value = 1 Case Is = "B" Range("O6").Value = 2 Range("O15").Value = 2 Case Is = "C" Range("O6").Value = 3 Range("O15").Value = 3 End Select   End If Range("B6").Select End Sub

---

Merci

Bonjour

Comme tu change des valeurs dans la feuille

avec la macro Private Sub Worksheet_Change

il conviendrait d'ajouter :

Code:

---

Application.EnableEvents = False

---

en début de code

puis

Code:

---

Application.EnableEvents = true

---

en fin de code

pour éviter que la macro boucle sur elle même.

Autrement ça me semble correct.

Bonne journée.

Merci pour la réponse
Mais comment remplacer Range("O6") et Range("O15") par une variable

Bonjour
Quelle est l'impérieuse nécessité de remplacer ces deux cellules par une variable ?
Si ce n'est que pour éviter de te répéter, il suffit de :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

dim toto as integer Select Case note Case Is = "A" toto = 1 = 1 Range("O15").Value = 1 Case Is = "B" toto = 2 Case Is = "C" toto = 3 End Select Range("O6").Value = toto Range("O15").Value = toto

---

ou mieux encore, si tu veux t'amuser

Code:

---

1 2 3 4

dim toto as integer toto = asc(note) - 64 Range("O6").value = toto Range("O15").value = toto

---

Merci beaucoup

:applo: