Faire une boucle
Résolu
iliesss
Messages postés
92
Date d'inscription
Statut
Membre
Dernière intervention
-
iliesss Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
iliesss Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
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
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
2 réponses
-
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 -
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
