bug Application.InputBox selection Référence de cellule

Version imprimable

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:

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

Citation:

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

Bonjour Remy67 ;)

Peut-être en ajoutant une gestion d'erreur

Code:

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+

20/07/2012, 10h05
remy67

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

Code:

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.
20/07/2012, 13h32
Invité

Re,

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

A+
20/07/2012, 14h04
remy67

La je suis bien sur Excel 2000, et windows XP.
Je vais testé pour le principe sur 2007, c'est vrai...
20/07/2012, 17h16
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ù ?
24/09/2012, 07h32
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