Autres Problème avec Application.WorksheetFunction.Sum !

[Co_Lac]

Bonjour le forum, encore besoin de vous !
J'ai cette ligne qui fonctionne en pas à pas et ne fonctionne pas en déroulement de la macro en automatique !

Sheets(nom_feuille_resultat).Cells(3, Col - 1) = Application.WorksheetFunction.Sum(Range(Cells(6, Col - 1), Cells(1000, Col - 1)))

Est ce que ce genre d'incident vous est déja arrivé ?
Merci pour votre collaboration

 

[sylvanu]

Bonjour Co_Lac,
Sans fichier test, difficile de se prononcer.

 

[pierrejean]

Bonjour Co_Lac
Salut Sylvanu
Comme tu pourras le vérifier sur ce fichier ,la ligne en question n'est pas fautive
En conséquence tu es prié d'en présenter un peu plus !!!!

 

[Co_Lac]

Bonjour à tout les deux
Pour Sylvanu, c'est mes comptes perso en question donc je ne peux pas envoyer le classeur !
Et pour PierreJean je le sais car cette ligne fonctionne en PAS à PAS (F8)
Je vous joint la macro au format word

 

[Co_Lac]

Petite précision j'ai essayé les deux solutions une avec sum et l'autre avec les boucles for et j'ai le même résultat !
Je remet le fichier montrant la 1ère solution en "vert" donc non active !

 

[pierrejean]

Re
A mon avis il manque le nom de la feuille ou doit s'effectuer la somme
'Sheets(nom_feuille_resultat).Cells(3, Col - 1) = Application.WorksheetFunction.Sum(sheets("FeuilleConscernée").Range(Cells(6, Col - 1), Cells(1000, Col - 1)))

 

[Co_Lac]

Si je rajoute la feuille il y a une erreur
Erreur définie par l'application ou par l'objet
Je vais essayer de fair un classeur neutre pour vous l'envoyer

 

[sylvanu]

Si votre macro au format Word est complète, alors x est une variable non initialisée.

 

[Co_Lac]

Voila le classeur bricolé ! mdr
Merci pour votre attention
petite précision le bouton transfert de relevés ne marchera pas il vous manquera le .csv que je récupère chez le banquier!

 

[sylvanu]

Re Bonjour,
Chez moi ( XL2007 ) les deux lignes passent correctement en lançant CE_L ou CE_P.
Donc pas de problème.
Pouvez vous dupliquer les lignes :

ValeurSum1 = Application.WorksheetFunction.Sum(Range(Cells(6, Col - 1), Cells(1000, Col - 1)))
ValeurSum2 = Application.WorksheetFunction.Sum(Range(Cells(6, Col), Cells(1000, Col)))
Sheets(nom_feuille_resultat).Cells(3, Col - 1) = ValeurSum1 
Sheets(nom_feuille_resultat).Cells(4, Col) = ValeurSum2

Cela vous permettra de savoir si c'est la partie gauche ou droite de l'équation qui pose problème.
Comme je ne vois pas pourquoi le Sum poserait problème, j'opterais plus sur un nom_feuille_resultat="" ou incompris par le VBA ou problème sur Col. ( qui serait fonction de votre contexte )

 

[pierrejean]

Re
Avec cet ajout cela semble fonctionner
q = q + 1
a = a + 1
Sheets(nom_feuille_resultat).Select
Sheets(nom_feuille_resultat).Cells(3, Col - 1) = Application.WorksheetFunction.Sum(Range(Cells(6, Col - 1), Cells(1000, Col - 1)))
Sheets(nom_feuille_resultat).Cells(4, Col) = Application.WorksheetFunction.Sum(Range(Cells(6, Col), Cells(1000, Col)))

 

[Co_Lac]

RE bonjour,
Entre temps j'ai un ami qui est passé, il travaille beaucoup avec les tableaux moi je commence! Il a résolu le problème en faisant la somme dans le tableau !
Je prends note de vos informations précieuses, je progresse doucement grâce à vous!
Merci de votre patience et du temps que vous m'avez consacré !
Bonne fin de journée

 

[sylvanu]

Re,
Ca n'a pas résolu le problème mais contourné.
Il eût été intéressant de comprendre pourquoi ça buggué.
Mais bon, puisque ça marche. 🙂

 

[Co_Lac]

Oui c'est vrai il a solutionné le problème en rajoutant simplement
Sheets(nom_feuille_resultat).Activate
Application.ScreenUpdating = False

 

[Co_Lac]

ça a beugué excusez moi ! message parti tout seul.
Dans la macro "trouve" il a rajouté la ligne :
Sheets(nom_feuille_resultat).Activate
Avant la ligne
Application.ScreenUpdating = False
Et ça a marché! La méthode à Pierre Jean aurait marché aussi !
Je n'ai pas testé celle de Sylvanu, désolé...
Ensuite il en a profité pour me faire la démonstration que c'était mieux de le faire avec les tableaux !
Je vous remercie pour votre aide.
A bientot surement
Ps : j'en profite pour vous poser une question svp : Comment fait on pour avoir les numéros de lignes dans la fenetre d'une macro (attention je ne parle pas des lignes des feuilles excel, mais bien celles des macros ?
Merci