probleme vba

Question

bonjour &#224; tous,

nous devons r&#233;aliser une macro permettant de d&#233;couper un classeur excel en autres plus petit.
Le gros classeur contient une colonne numero.
il est demand&#233; &#224; l'utilisateur de choisir un numero.
nous avons 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.
malheuresement seule la premi&#232;re ligne concernant cette vzleur est copi&#233;e.
comment faire pour r&#233;cuperer toutes les donn&#233;es concernant la valeur donn&#233;e par l'utilisateur?

voici le code

Dim valeur As Integer
Dim i As Integer
Sub decoup()
        valeur = InputBox("valeur:", "val", "")
        For i = 1 To 2
        If Cells(i, 1) = valeur Then
        nom = Cells(i, 2)
        prenom = Cells(i, 3)
        repas = Cells(i, 4)
        total = 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.

linasteph · Answer

je pense que c'est simplement parce que lorsque tu fais un workbook.add
et activecell.offset(..) tu te trouves dans le deuxi&#232;me classeur (plus
petit) ensuite tu continues ta lecture mais on est toujours dans ce
m&#234;me classeur. Il faudrait donc que tu reviennes dans ton premier
classeur pour continuer ta lecture.



Mais attention aussi car ton workbooks.add est dans ta boucle ce qui
donne aussi que tu vas cr&#233;er un fichier pour chaque ligne correspondant
&#224; la valeur entr&#233;e.

Probleme vba

1 réponse

Discussions similaires