Macro bugge

[jeanphi]

Bonjour


J'utilise une macro (que je n'ai pas développé moi-même) qui plante alors qu'elle marchait encore récemment
Je ne comprends pas le problème 🙁
Quelqu'un peut t'il m'aider?
http://cjoint.com/?eEi1AimfIW
Merci 🙂

 

[pierrejean]

Re : Macro bugge

bonjour jeanphi

des macros il y en a plusieurs dans ton fichier !!
il ne serait pas inutile de nous preciser laquelle bugue (et de quelle façon )

 

[jeanphi]

Re : Macro bugge

bonjour pierrot


c'est la macro "Lancement" (voir bouton "Impact 2008" ) qui me pose problème 🙁
merci de ton aide

 

[Roland_M]

Re : Macro bugge

bonjour

essais ceci

Sub sup_lignes_vides()
DernLig = Range(Cells(65535, 6), Cells(65535, 7)).End(xlUp).Row+1
Range(Cells(DernLig, 1), Cells(65535, 1)).EntireRow.Delete
End Sub

Roland

 

[jeanphi]

Re : Macro bugge

bonjour Roland

Effectivement elle bugge mais c'est surtout la macro "Lancement" pour laquelle j'ai besoin d'aide!!
merci 😉

 

[Roland_M]

Re : Macro bugge

re

on s'est croisé regarde message précédent
Roland

 

[pierrejean]

Re : Macro bugge

Re

A tester:

Remplacer dans la sub Traitement

Selection.Copy
    Sheets("F").Select
    Cells.Select
    Range("B1").Select

par

Selection.Copy
    Sheets("F").Select
    Cells.Select
    Range("[COLOR=red]A[/COLOR]1").Select

ensuite , si necessaire insere une colonne
Explication:
ton code copie toute les cellules de Impact dans F
si tu veux commencer en B1 , excel dit ne pas avoir assez de place

ps:
@ Roland
Le .End(xlup) ne me parait pas mal plaçé
par contre s'il n'y a pas de cellule vide cela peut expliquer le bug de la macro de suppression

 

[jeanphi]

Re : Macro bugge

merci roland pour ta macro
c est vrai qu elle marche la tienne!! 😉
et pour l'autre peux tu m aider?
merci

 

[jeanphi]

Re : Macro bugge

Merci Pierrot pour ta réponse mais çà marche toujours pas 😡
moi cà plante au niveau de Me.TextBox2.Value = Sheets(3).[b1].Value & " €" quand je lance la macro "Traitement"
As tu ce pb aussi?

 

[Roland_M]

Re : Macro bugge

re

qu'elle est l'autre bug ?

Roland

 

[Roland_M]

Re : Macro bugge

re

je viens de voir le bug

mais il me semble normal puisqu'on fait appel à la feuille(3) qui n'existe pas !?
en tout les cas dans le fichier joint !

Roland

 

[jeanphi]

Re : Macro bugge

Avant ca marchait pourtant et lea feuille 3 n existait pas non plus!
par ailleurs j ai un souci en fait avec la macro suppression également
elle ne me supprime pas que des lignes vides...

 

[jeanphi]

Re : Macro bugge

je m explique la macro me supprime toutes les lignes vides ou pleines qui se trouvent avant une ligne vide ou pleine 🙁
je veux juste que la macro supprime toutes les lignes pour lesquelles il n y a pas de valeur dans la colonne 7

 

[Roland_M]

Re : Macro bugge

re

bon, petite mise au point:
1 j'ai retrouvé la feuille manquante elle était cachée !? je l'ai mise visible
2 dans cette feuille tu as =SOMME(#REF!) dans A1 B1 C1 !?
c'est pour cela que ça plante !

3 tu voulais supprimer les lignes vides dans colonne 6 et 7 !? ou sur toute la feuille ?

Roland

 

[Roland_M]

Re : Macro bugge

re

voir ton fichier Zippé
je supprime les lignes vides sur base de la colonne 7
Roland