bonjour
SVP comment faire repeter ce code dans mon tableau qui commence de A1 est ce termine au E.....
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("A2") > 0 Then
     Range("E2").FormulaR1C1 = "=RC[-2]+RC[-1]"
  Else
  End If
  If Range("b2").Value = "1" Then
     Range("b2").Value = "ilies"
  Else
  End If
  If Range("b2").Value = "2" Then
     Range("b2").Value = "mimi"
  Else
  End If
  If Range("b2").Value = "3" Then
     Range("b2").Value = "nono"
  Else
  End If
End Sub
merci