Discussion :

[iliesss]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

Bonjour

Comme tu change des valeurs dans la feuille

avec la macro Private Sub Worksheet_Change

il conviendrait d'ajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Application.EnableEvents = False

en début de code

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[iliesss]

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[iliesss]

Merci beaucoup