problème de boucle en vb

Question

bonjour &#224; tous,

j'ai r&#233;alis&#233; une macro permettant de "d&#233;couper" un gros classeur excel en d'autres plus petits.
Le gros classeur contient une colonne numero.
il est demand&#233; &#224; l'utilisateur de choisir un numero.
j'ai fait une boucle qui permet de savoir si la valeur choisi par l'utilisateur est pr&#233;sente dans la colonne.
si c'est le cas, les donn&#233;es du gros classeur concernant cette valeur sont transmises &#224; un classeur pus petit
.
or dans la boucle, un nouveau classeur se cr&#233;e et  les donn&#233;es concernant une m&#234;me valeur se retrouvent chacune dans un classeur diff&#233;rent...
comment faire pour que les donn&#233;es concernant une m&#234;me valeur se retrouvent dans un m&#234;me classeur?
voici le code de la macro : 

Dim valeur As Integer
Dim i As Integer
Sub recap()
        valeur = InputBox("valeur:", "val", "")
        Set nf = Workbooks("rrr.xls").Worksheets("recap")
        For i = 2 To 4
        If nf.Cells(i, 1) = valeur Then
        nom = nf.Cells(i, 2)
        prenom = nf.Cells(i, 3)
        repas = nf.Cells(i, 4)
        total = nf.Cells(i, 5)
        Workbooks.Add
        ActiveCell.Offset(0, 1) = nom
        ActiveCell.Offset(0, 2) = prenom
        ActiveCell.Offset(0, 3) = repas
        ActiveCell.Offset(0, 4) = total
        End If
        Next
ActiveWorkbook.SaveAs Filename:=(valeur) & "_" & (ThisWorkbook.Name)
End Sub

merci d'avance...

valtrase · Answer

Pour faire ce que tu dis tu doit enlever Workbooks.Add de ta boucle

Dim valeur As Integer
Dim i As Integer
Sub recap()
        valeur = InputBox("valeur:", "val", "")
        Set nf = Workbooks("rrr.xls").Worksheets("recap")
        Workbooks.Add
        For i = 2 To 4
        If nf.Cells(i, 1) = valeur Then
        nom = nf.Cells(i, 2)
        prenom = nf.Cells(i, 3)
        repas = nf.Cells(i, 4)
        total = nf.Cells(i, 5)
        ActiveCell.Offset(0, 1) = nom
        ActiveCell.Offset(0, 2) = prenom
        ActiveCell.Offset(0, 3) = repas
        ActiveCell.Offset(0, 4) = total
        End If
        Next
ActiveWorkbook.SaveAs Filename:=(valeur) & "_" & (ThisWorkbook.Name)
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

mada11 · Answer

merci &#224; toi
&#231;a marche super bien....

cordialement

mada11

Problème de boucle en vb

2 réponses

Discussions similaires