Discussion :

[iliesss]

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

[Philippe Tulliez]

Bonjour,
Voilà mais c'est bizarre de demander d'aller jusqu'à la colonne E car si A2 est supérieur à 0, la boucle va écraser la formule.
De plus la formule te renverra #VALEUR si une condition est remplie dans une des cellules concernée par la formule et le programme va se planter.

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
 
  Dim c As Integer
  For c = 1 To 5
   If c = 1 And Cells(2, 1) > 0 Then
     Cells(2, 5).FormulaR1C1 = "=RC[-2]+RC[-1]"
    Else
     Select Case Cells(2, c)
       Case 1
        Cells(2, c) = "ilies"
       Case 2
        Cells(2, c) = "mimi"
       Case 3
        Cells(2, c) = "nono"
     End Select
   End If
  Next c

[iliesss]

salut mon ami
ton code fonction uniquement dans la ligne 2
comment le faire fonctionner pour tous les lignes
merci

[Qwazerty]

Salut
Essai avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
  If Cells(Target.Row, "A") > 0 Then
     Cells(Target.Row, "E").FormulaR1C1 = "=RC[-2]+RC[-1]"
  Else
    With Cells(Target.Row, "B")
        .Value = Switch(.Value = "1", "ilies", .Value = "2", "mimi", .Value = "3", "nono")
    End With
  End If
End Sub

Au passage merci à pgz, qui a utilisait la fonction switch dans un autre poste, je ne la connaissais pas

++
Qwaz