Discussion :

[sam01]

Bonjour,

dans ma boucle suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub id_des_new()
    Dim c As Range
    For Each c In Range("D1", Cells(Rows.Count, 4).End(xlUp))
        If c.Value = "" Then Exit Sub
        If c.Value <> 0 Then
            c.Offset(, -1) = -1     
        End If
 
    Next c
End Sub

J'aimerais ajouter,

si D = 1 copier la valeur de E dans C
si D = 2 copier la valeur de F dans C
si D = 3 copier la valeur de G dans C

Merci d'avance pour votre aide.

[parmi]

Bonjour,

Sans tester, ça pourrait ressembler à ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub id_des_new()
    Dim c As Range
    For Each c In Range("D1", Cells(Rows.Count, 4).End(xlUp))
        If c.Value = "" Then Exit Sub
        Select Case c.Value
            Case 1
                c.Offset(, -1) = c.Offset(, 1).Value
            Case 2
                c.Offset(, -1) = c.Offset(, 2).Value
            Case 3
                 c.Offset(, -1) = c.Offset(, 3).Value
       End Select
    Next c
End Sub

[Philippe Tulliez]

Bonjour,
Ou encore

Code :

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

1
2
3
4
5
6
Sub id_des_new()
  Dim c As Range
  For Each c In Range("D1", Cells(Rows.Count, 4).End(xlUp))
   If c.Value > 0 And c.Value < 4 Then c.Offset(, -1) = c.Offset(, c.Value)
  Next c
End Sub

et aussi

Code :

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

1
2
3
4
5
6
7
8
Sub id_des_new()
 Dim c As Range
 For Each c In Range("D1", Cells(Rows.Count, 4).End(xlUp))
  Select Case c.Value
   Case 1 To 3: c.Offset(, -1) = c.Offset(, c.Value).Value
  End Select
 Next c
End Sub

[sam01]

Bonjour,

Sans tester, ça pourrait ressembler à ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub id_des_new()
    Dim c As Range
    For Each c In Range("D1", Cells(Rows.Count, 4).End(xlUp))
        If c.Value = "" Then Exit Sub
        Select Case c.Value
            Case 1
                c.Offset(, -1) = c.Offset(, 1).Value
            Case 2
                c.Offset(, -1) = c.Offset(, 2).Value
            Case 3
                 c.Offset(, -1) = c.Offset(, 3).Value
       End Select
    Next c
End Sub

Merci parmi.

J'ai opté pour ta méthode.

Merci aussi à Philippe