Bonjour a tous,
Je viens solliciter votre aide sur une macro que je tente de mettre en place.
Mon but est de faire une boucle sous certaines conditions, voici mon code pour le moment :
Je veux donc demander a la macro qu'elle verifie que pour chaque cellule de la colonne "J" = 1. Cette cellule contient une formule me permettant de definir la position d'un fichier dans un groupe. Je ne m'interesse donc qu'au 1er fichier de chaque groupe.
Je demande ensuite a regarder la valeur de colonne I qui contient le nombre de fichier a zipper correspondant.
En fonction de ce nombre je cherche a definir FilenameXLS qui doit etre un array comprenant entre 1 et 6 cellules. Je ne peux malheuresement pas utiliser array=range("F8:F10") car cela bloque au niveau de la compression des fichiers.
J'ai fais mes essais sur les 3 premieres cellules d'ou l'ecriture ci-dessus. Le 1er fichier est bien compresse avec les bons fichiers, mais Excel plante ensuite.
Si vous avez des pistes, je suis preneur !
Je viens solliciter votre aide sur une macro que je tente de mettre en place.
Mon but est de faire une boucle sous certaines conditions, voici mon code pour le moment :
Code:
Sub Zip_Selected_Files()
Dim i As Byte, Numb as Byte
i = 8 'row number
Do While i < 122
If Cells(i, 10).Value <> 1 Then
Else
Numb = Cells(i, 9).Value
FileNameXls = Array(Cells(i, 6), Cells(i + 1, 6), Cells(i + 2, 6))
i = i + 1
call zipfiles
End If
Loop
End Sub
Je veux donc demander a la macro qu'elle verifie que pour chaque cellule de la colonne "J" = 1. Cette cellule contient une formule me permettant de definir la position d'un fichier dans un groupe. Je ne m'interesse donc qu'au 1er fichier de chaque groupe.
Je demande ensuite a regarder la valeur de colonne I qui contient le nombre de fichier a zipper correspondant.
En fonction de ce nombre je cherche a definir FilenameXLS qui doit etre un array comprenant entre 1 et 6 cellules. Je ne peux malheuresement pas utiliser array=range("F8:F10") car cela bloque au niveau de la compression des fichiers.
J'ai fais mes essais sur les 3 premieres cellules d'ou l'ecriture ci-dessus. Le 1er fichier est bien compresse avec les bons fichiers, mais Excel plante ensuite.
Si vous avez des pistes, je suis preneur !