marche puis marche pas!

[fifi]

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

 

[Hellboy]

Bonjour fifi

C'est difficile a voir, sans le fichier. Tu pourrais le joindre s.v.p.
(fichier zippé sans accents ni caractères spéciaux ni espaces et inférieur à 50 Ko )

merci !

 

[fifi]

je passe le fichier..

alors pour explication...
les colonnes A à E sont de données décrivant le nombre de pixels dasn des images.
mon but étant de réorganiser ces données via une macro.


le bouton 'Tracer Profil' lance la macro.


j'ai essayer de remplacr la ligne qui bug par un simple :
cells(1,1).select mais ca plante toujorus

 

[fifi]

avec le fichier c'est mieux ^^

 

[Hellboy]

Bonjour fifi, jmps

Je ne suis pas d'accord jmps. En fait si tu veux spécifier par exemple de A1:C4 avec range ça donne Range('A1:C4') et avec cells ça donne Range(Cells(1,1),Cells(4,3))

a+

 

[fifi]

lle code fonctionnait avant comme il était écris ...c'est ca que je comprends pas.
ton code me dit : Erreur de compilation , attendu : =


Cells(nbImage + 6 + Y, 1 + Couleur), Cells(nbImage + 6 + Y + 256, 1 + Couleur).Copy


si je met des paranthèse avant et après ca marche pas mieux
(Cells(nbImage + 6 + Y, 1 + Couleur), Cells(nbImage + 6 + Y + 256, 1 + Couleur)).Copy

 

[Hellboy]

Bonjour fifi

Esaie d'envoyer ton fichier encore s.v.p.
(zippé sans accents ni caractères spéciaux ni espaces et inférieur à 50 Ko)

merci !

 

[fifi]

voilou .

 

[fifi]

un point d'arret c'est quoi ?

j'utilise jamais ca?

 

[Hellboy]

re

:huh:

je soupsonne une valeur négative en quelque part, qui ne doit pas y être.

 

[Hellboy]

re

Peux-tu répondre a ces questions s.v.p.

- Ton fichier est ce que tu l'a Zippeé ?
- Il est comment gros ?
- quel est son nom ?

merci !

 

[AlainTech]

Je pense que le problème vient de l'endroit où est placé le code.

J'ai déjà eu ce genre de problème en essayant de sélectionner lers cellules d'une feuille à partir d'un code dans une autre feuille.

 

[fifi]

si si j'ai envoyé le zip
il s'appelle : serieShoot conversion et fait 39ko

 

[Hellboy]

re

pas d'espace ds le nom du fichier B)

 

[fifi]

ok je sais pourquoi , j'utilise pas winzip mais winrar.
je le zip et j'envoie