Erreur 400

[Dizzz]

Bonjour à tous

J'ai créé une macro toute simple mais
j'ai un message d'erreur que je ne sais decrypter :

Erreur 400

J'ai tenté l'aide excel mais sans résultat probant.
Quelqu'un a une explication?
Merci d'avance

 

[porcinet82]

salut Dizzz,

Donne ta macro, ou joint un petit exemple en fichier joint, je pense que se sera plus simple.

@+

 

[lapix]

je ne vois rien

Peux tu nous faire voir ta macro ?

 

[Dizzz]

Voici la macro :

sub nouvellecreationMP()
'
' nouvellecreationnegoce Macro
' Macro enregistrée le 15/10/04 par Benoit Le Dorze
'
Dim thebum As Integer
thenum = Sheets('Création M.P.').Range('B1')
thenum = thenum + 1
Sheets('Création M.P.').Range('b1') = thenum
Range('B3').Select
Selection.ClearContents
Range('B4').Select
Selection.ClearContents
Range('B7').Select
Selection.ClearContents
Range('B9').Select
Selection.ClearContents
Range('B10').Select
Selection.ClearContents
Range('B11').Select
Selection.ClearContents
Range('B13').Select
Selection.ClearContents
Range('B15').Select
Selection.ClearContents
Range('B16').Select
Selection.ClearContents
Range('B18').Select
Selection.ClearContents
Range('B20').Select
Selection.ClearContents
Range('B22').Select
Selection.ClearContents
Range('B24').Select
Selection.ClearContents
Range('B25').Select
Selection.ClearContents
Range('B26').Select
Selection.ClearContents
Range('B').Select
Selection.ClearContents
Range('B28').Select
Selection.ClearContents
Range('B29').Select
Selection.ClearContents
Range('B30').Select
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-1
Range('B5').Select
End Sub

 

[lapix]

en test je n'ai pas geneé d'erreur 400

Par contre en ligne
Range('B26').Select
Selection.ClearContents
Range('B').Select la tu as un probleme 'B' ca ne marche pas
Selection.ClearContents
Range('B28').Select

egalement je ne vois pas ce que tu comme objectif avec les 3 lignes apres DIM

 

[porcinet82]

re,

je crois que j'ai trouvé l'erreur mais ta macro est un peu abusive je trouve (en taille bien sur).
donc en ce qui concerne l'erreur je pense qu'elle se trouve a la ligne de code suivante (11eme ligne en partant du bas):

Range('B').Select

je pense que ca devrait etre plutot:

Range('B27').Select

sinon, en ce qui concerne les données que tu effaces, elles auraient pas un point commun qui permettrait de faire un test sur ce point commun et de les supprimer?

@+

 

[Hervé]

Bonjour tout le monde

Oui, en effet c'est un peu 'lourd' comme code, petite modification, si je peux me permettre :

Sub nouvellecreationMP()
Sheets('Création M.P.').Range('B1') = Sheets('Création M.P.').Range('b1') + 1
Range('B3:B4,B7,B9:B11,B13,B15:B16,B18,B20,B22,B24:B30').ClearContents
End Sub

tu n'es pas obligé de sélectionner une cellule pour agir sur celle-ci.



Salut

 

[Dizzz]

Merci à tous pour ces précisions.
J'ai enregistré les modifications et ça fonctionne parfaitement!
Dizz