faire une boucle Résolu

Question

Bonjour, 
SVP comment faire une boucle pour mettre ce code fonction pour toutes les lignes des mon tableau
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

melanie1324 · Answer

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

ccm81 · Answer

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

Faire une boucle

2 réponses

Votre réponse

Discussions similaires