bonjour tous,
juste pour savoir ...
j'ai une macro qui fonctionnait correctement et d'un coup elle fait une erreur à une ligne de code qui n'avait pas de pb...
je cherche l'erreur et ne trouve rien de spéciale.
la macro a pour but de copier une plage de cellule et de la coller à un autre amplacement. ceci dans une boucle FOR NEXT.
Y = la hauteur de la sélection
Couleur = la colonne de la sélection
NbImage = le nombre de boucle à faire
l'erreur se situe au niveau de la ligne :
Range(Cells(nbImage + 6 + Y, 1 + Couleur), Cells(nbImage + 6 + Y + 256, 1 + Couleur)).Copy
bref je copie le code ici :
Sub FCT_mise_en_profil()
Sheets('profils').Select
Dim I, Y, nbImage, Couleur, IntervalleLigne, MaxX, MinX As Variant
nbImage = range('I33') 'valeurs de 1 à 250
Y = -259
Couleur = Range('F33') 'valeurs = à 1 , 2 ou 3
For I = 0 To nbImage - 1
Y = Y + 258
Range(Cells(nbImage + 6 + Y, 1 + Couleur), Cells(nbImage + 6 + Y + 256, 1 + Couleur)).Copy
Cells(40, 6 + I).Select
ActiveSheet.Paste
Next I
End Sub
inch:
si quelq'un voit l'erreur ..merci
juste pour savoir ...
j'ai une macro qui fonctionnait correctement et d'un coup elle fait une erreur à une ligne de code qui n'avait pas de pb...
je cherche l'erreur et ne trouve rien de spéciale.
la macro a pour but de copier une plage de cellule et de la coller à un autre amplacement. ceci dans une boucle FOR NEXT.
Y = la hauteur de la sélection
Couleur = la colonne de la sélection
NbImage = le nombre de boucle à faire
l'erreur se situe au niveau de la ligne :
Range(Cells(nbImage + 6 + Y, 1 + Couleur), Cells(nbImage + 6 + Y + 256, 1 + Couleur)).Copy
bref je copie le code ici :
Sub FCT_mise_en_profil()
Sheets('profils').Select
Dim I, Y, nbImage, Couleur, IntervalleLigne, MaxX, MinX As Variant
nbImage = range('I33') 'valeurs de 1 à 250
Y = -259
Couleur = Range('F33') 'valeurs = à 1 , 2 ou 3
For I = 0 To nbImage - 1
Y = Y + 258
Range(Cells(nbImage + 6 + Y, 1 + Couleur), Cells(nbImage + 6 + Y + 256, 1 + Couleur)).Copy
Cells(40, 6 + I).Select
ActiveSheet.Paste
Next I
End Sub
inch:
si quelq'un voit l'erreur ..merci