Erreur 91 sur certains postes avec Find Fermé

Question

Bonjour, 

Je n'arrive pas à trouver une syntaxe de cette formule qui fonctionnerait sur tout les postes, il y en a toujours un qui n'arrive pas au bout de la macro, et bloque la-dessus:

Cellule_Valeurs_possibles.NAME = "Valeurs_possibles"
Erreur 91

    Dim Cellule_Valeurs_possibles As Range

Set Cellule_Valeurs_possibles = Cells.Find(What:="Valeurs possibles :", _
        LookIn:=xlValues, LookAt:=xlPart)

Cellule_Valeurs_possibles.NAME = "Valeurs_possibles"

Cellule_Valeurs_possibles.Select

Je sais plus quoi faire...

Lo.

eriiic · Answer

Bonjour,

Sans doute qu'il ne trouve pas.
Il faut toujours tester le résultat d'un .find, un utilisateur peut avoir changé le tableau :
    Set Cellule_Valeurs_possibles = Cells.Find(What:="Valeurs possibles :", _
                                               LookIn:=xlValues, LookAt:=xlPart)
    If Cellule_Valeurs_possibles Is Nothing Then
        MsgBox "non trouvé"
    Else
        Cellule_Valeurs_possibles.Name = "Valeurs_possibles"
        Cellule_Valeurs_possibles.Select
    End If 
eric

dhaze · Answer

Bonjour Eric,

Malheureusement, ce doit être quelque chose de plus obscure...
Puisse-que cette feuille est crée par le tableau lui-même via une macro, sur la base d'un modèle VeryHidden verrouillé par mot de passe et accessible que de la macro...

C'est vraiment un problème lié au poste.

J'ai eu un problème similaire avec Environ qui ne fonctionne sur certains poste qu'avec le préfixe VBA.

Je soupçonne un truc dans ce goût-là, mais quoi ?!

Lo.

dhaze · Answer

Comme quoi c'est bien mystérieux !

Pour avoir le type d'erreur exacte, aujourd'hui j'ai demander à cet utilisateur de refaire la manip qui avait plantée la semaine dernière...

Et là, ça fonctionne !!!

Il faut que je diffuse plus largement ce fichier pour multiplier les tests, on verra ce que ça donne...

Pour l'instant, stand-by.

Merci.
Bon WE

Lo.

dhaze · Answer

Bonjour,

L'erreur c'est reproduite sur un poste...
Et cette fois j'ai l'alerte complète ! ;-)

Erreur d'exécution '91':Variable objet ou variable de bloc With non définie
ActiveSheet.UsedRange.Select
Dim Cellule_Valeurs_possibles As Range
Set Cellule_Valeurs_possibles = Cells.Find(What:="Valeurs possibles :", _
LookIn:=xlValues, LookAt:=xlPart)
Cellule_Valeurs_possibles.NAME = "Valeurs_possibles"
Cellule_Valeurs_possibles.Select
Ligne surlignée:
Cellule_Valeurs_possibles.NAME = "Valeurs_possibles"
Lo.

Erreur 91 sur certains postes avec Find

4 réponses

Discussions similaires