Problème dans code VBA

[SPEA]

Bonsoir tout le monde,

j'ai un problème avec une macro qui ne fonctionne pas, c'est une macro qui recopie les données de plusieurs feuilles sur une feuille "Bilan".

Le soucis se situe dans la ligne qui definit le string 'findate' qui liste la dernière colonne où recuperer les données.

PS: soyez indulgents je débute en VBA c'est ma première macro, j'essaie d'adapter une macro que Pierrejean avait fait pour un autre fichier...

Merci

 

[Xtian_Québec]

Re : Problème dans code VBA

Salut SPEA, le forum
tu as une erreur de colonne dans ton code:
findate = Sheets(i).Range("III1").End(xlToLeft).Column

findate = Sheets(i).Range("II1").End(xlToLeft).Column

Des I et des 1, ça peux porter à confusion quelques fois

Xtian

 

[wilfried_42]

Re : Problème dans code VBA

Bonsoir SPEA

Dis moi sur quelle version excel tu es ? je ne connais pas les limites de la version 2007 mais en version 2003 c'est 255 colonnes

'dernière colonne où récuperer les données
findate = Sheets(i).Range("IV1").End(xlToLeft).Column

Edit : Bonsoir Xtian quebec je ne t'avais pas vu

 

[SPEA]

Re : Problème dans code VBA

Bonsoir SPEA

Dis moi sur quelle version excel tu es ? je ne connais pas les limites de la version 2007 mais en version 2003 c'est 255 colonnes



Edit : Bonsoir Xtian quebec je ne t'avais pas vu

je suis sur excel 2003, IV1 correspond à la colonne 255 ?

 

[Catrice]

Re : Problème dans code VBA

Bonsoir tout le monde,

Dans findate = Sheets(i).Range("III1").End(xlToLeft).Column
III1 n'existe pas le maximum c'est IV1
=> findate = Sheets(i).Range("IV1").End(xlToLeft).Column


Dans Sheets("Bilan").Range(Mid(form, n, 1) & derlincol + 1 & ":" & Mid(form, n, 1) & derling).Select, il faut d'abord etre sur la feuille pour faire le select du Range.
=> Sheets("Bilan").Select
=> Sheets("Bilan").Range(Mid(form, n, 1) & derlincol + 1 & ":" & Mid(form, n, 1) & derling).Select

Enfin, pour aller un peu plus vite et eviter le pb ci-dessus :
=> Sheets("Bilan").Range(Mid(form, n, 1) & "65536").End(xlUp).Copy (Sheets("Bilan").Range(Mid(form, n, 1) & derlincol + 1 & ":" & Mid(form, n, 1) & derling))

voir modifs dans le fichier joint.

Edit : tu peux egalement enlever cette ligne :
Application.CutCopyMode = False

 

[wilfried_42]

Re : Problème dans code VBA

re:

oui, pour vérifier, tu te mets en A1, tu fais CTRL + Fleche droite dans une feuille vierge, tu iras jusqu'à la derniere colonne

 

[SPEA]

Re : Problème dans code VBA

Ok la dernière colonne est bien IV.
j'ai modifié mais j'ai toujours l'erreur 438 (propriété non geree par cet objet)

pourtant ca fonctionne sur un autre fichier similaire.

 

[wilfried_42]

Re : Problème dans code VBA

re:

regarde juste avant mon dernier message, catrice a trouvé une autre erreur que je n'avais pas vu

 

[SPEA]

Re : Problème dans code VBA

J'ai toujours une erreur 438 sur la même ligne "propriete ou methode non geree par cet objet.

la ligne est:
findate = Sheets(i).Range("IV1").End(xlToLeft).Column

 

[SPEA]

Re : Problème dans code VBA

Ok ca y est je me suis depétré de mon code VBA.
J'ai créé un bouton sur une feuille, comment affecter la macro au click sur le bouton ?

Quelle est la ligne de code à inserer dans VBA ?

Merci

 

[SPEA]

Re : Problème dans code VBA

bah non en fait j'ai toujours le pb avec cette ligne mais j'ai trouvé pour assigner une macro au bouton.

J'ai toujours l'erreur 438 avec cette ligne:
findate = Sheets(i).Range("IV1").End(xlToLeft).Column...

 

[wilfried_42]

Re : Problème dans code VBA

re:

desolé, apres la correction de cette ligne c'est ok pour moi,

ca plante comme prévu sur la ligne que catrice a corrigée

 

[Catrice]

Re : Problème dans code VBA

Bonjours,

Il faut que tu repostes ton fichier pour qu'on puisse voir ce qui se passe (avec les modifications que tu as faites depuis).
La ligne findate = Sheets(i).Range("IV1").End(xlToLeft).Column etant bonne je pense qu'il faut chercher le pb sur la variable i
Avant cette ligne fait un MsgBox i pour voir ce que renvoie i et etre sur que ce soit un nom de sheet.

 

[Dan]

Re : Problème dans code VBA

Bonjour,

Curieux que tu aies un message à cette innstruction.

Toutefois, dans ta macro il n'y a aucune variable déclarée.
Mets donc en début de macro ceci (après sub recopie) :

Dim form
Dim ligcop as integer, derling as integer, derlincol as integer
Dim debdate as byte, i as byte, findate as byte, n as byte

Ensuite, après If Sheets(i).Name <> "Bilan" Then place cette instruction MsgBox Sheets(i).Name et dis nous ce que cela te donne comme message.

Au besoin change FINDATE par un autre nom et si tu le fais n'oublie pas de changer le nom de cette nouvelle variable en début de macro.

A te lire

Dan

 

[SPEA]

Re : Problème dans code VBA

je remet le fichier que j'ai modifié, le debogage s'arrete sur cette ligne.