Renseigner des feuilles avec Case

[anber]

Bonjour le forum,

Dans un classeur j'ai plusieurs feuilles (une base et x feuilles à remplir suivant des conditions).
J'arrive à en renseigner, en utilisant Case
Y-a-t-il une autre solution ? certainement, mais je coince, pas oubligé d'utiliser Case

Ci-joint un fichier d'exemple

Merci par avance

 

[Pierrot93]

Re : Renseigner des feuilles avec Case

Bonjour Anber

tu parles sans doute de l'instruction "select case", pas de code dans ton classeur, si c'est le cas, essaye peut être le code ci dessous :

Sub test()
Dim c As Range
With Sheets("Base")
    For Each c In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        If c.Value = 23 And c.Offset(0, 1).Value = 79 Then
            .Range(c, c.Offset(0, 4)).Copy Sheets("SB").Range("A65536").End(xlUp).Offset(1, 0)
            ElseIf c.Value = 23 And c.Offset(0, 1).Value <> 79 Then .Range(c, c.Offset(0, 4)).Copy Sheets("PO").Range("A65536").End(xlUp).Offset(1, 0)
            ElseIf c.Value = 10 Then .Range(c, c.Offset(0, 4)).Copy Sheets("SA").Range("A65536").End(xlUp).Offset(1, 0)
            ElseIf c.Value = 11 Then .Range(c, c.Offset(0, 4)).Copy Sheets("SC").Range("A65536").End(xlUp).Offset(1, 0)
            ElseIf c.Value = 25 Then .Range(c, c.Offset(0, 4)).Copy Sheets("SD").Range("A65536").End(xlUp).Offset(1, 0)
        End If
    Next c
End With
End Sub

bonne journée
@+

 

[anber]

Re : Renseigner des feuilles avec Case

Bonjour Pierrot93,

Ta solution fonctionne dans mon cas

Merci