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