Faire une boucle

bonjour,

voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

i = 2
j = 1
Do While Cells(i, 1) <> ""
If Cells(i, j) > 0 Then
Cells(i, j + 4).FormulaR1C1 = "=RC[-2]+RC[-1]"
End If
If Cells(i, 2) = "1" Then
Cells(i, 2) = "ilies"
Else
If Cells(i, 2) = "2" Then
Cells(i, 2) = "mimi"
Else
Cells(i, 2) = "nono"
End If
End If
i = i + 1
Loop
End Sub

bonjour
on peut alleger le code avec un select case

Const lideb = 2
Const lifin = 20
Dim li As Long, co As Long, nbli As Long
For li = lideb To lifin
  If Cells(li, 1) > 0 Then
    Cells(li, 5).FormulaR1C1 = "=RC[-2]+RC[-1]"
  End If
  Select Case Cells(li, 2).Value
    Case "1"
      Cells(li, 2).Value = "ilies"
    Case "2"
      Cells(li, 2).Value = "mimi"
    Case "3"
      Cells(li, 2).Value = "nono"
   End Select
  Next li

RQ1. Les valeurs de la colonne 2 (B) sont elles bien des chaines de caracteres comme tu l'as ecrit
RQ2. Les valeurs de la colonne 2 (B) sont remplacées par ton code. est ce normal ?

bonne suite