Discussion :

[remy67]

Bonjour,

Gros problème avec une de mes macros qui à très bien fonctionné jusque la.

Elle fonctionne toujours, sauf que j'ai un bug régulier sur certaines zone de sélections.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim plage1 As Range
Set plage1 = Application.InputBox("Désigner la cellule supérieure gauche" & Chr(10) & "de la zone de destination", "Sélection", , , , , , 8)
        feuilleplage1 = plage1.Worksheet.Name
        Classeurplage1 = plage1.Worksheet.Parent.Name

Me donne

Erreur d'execution '424';
Objet requis

J'ai supprimé toutes les mises en forme possible, j'ai toujours cette erreur, alors si prends une autre zone du même feuille Excel, je n'ai aucun problème.

J'ai épuisé toutes mes hypothèses de problèmes.
Merci

[Invité]

Bonjour Remy67

Peut-être en ajoutant une gestion d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim plage1 As Range
  On Error Resume Next
  Set plage1 = Application.InputBox("Désigner la cellule supérieure gauche" & Chr(10) & "de la zone de destination", "Sélection", , , , , , 8)
  If Err.Number <> 0 Then
    MsgBox "Impossible d'utiliser cette plage !", vbCritical, "ATTENTION ..."
    Exit Sub
  End If
  On Error GoTo 0
  feuilleplage1 = plage1.Worksheet.Name
  Classeurplage1 = plage1.Worksheet.Parent.Name

A+

[remy67]

Merci pour la réponse, mais pour aller à la gestion de erreur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set plage1 = Application.InputBox("Désigner la cellule supérieure gauche" & Chr(10) & "de la zone de destination", "Sélection", , , , , , 8)

Doit etre accepté par VBA or il crash et m'affiche mon erreur 424.

Et j'ai vraiment les nerfs, car cela fonctionne très bien sur d'autres plages de données. D'autant plus que j'aurais bien besoin de l'utiliser justement la ou ca ne marche pas.

[Invité]

Re,

Qu'as tu comme ordinateur et comme version d'Excel !?

A+

[remy67]

La je suis bien sur Excel 2000, et windows XP.
Je vais testé pour le principe sur 2007, c'est vrai...

[HopPopPop]

Bonjour à tous,

Vous avez supprimé toutes les mises en forme possible ...
Même les cellules fusionnées dans les plages source et/ou de destination, au cas où ?

[remy67]

Je fais le ménage dans mes anciens post non cloturé...

J'avais effectivement essayer en supprimant toutes les formats ....
Mais bon ça fonctionne sous Excel 2010, la migration au bureau se fera dans peu de temps. Je cherche pas à comprendre le problème.

Merci pour vos réponses