"Erreur d'exécution 91"

Résolu

Amande42 Messages postés 25 Date d'inscription Statut Membre Dernière intervention -
Amande42 Messages postés 25 Date d'inscription Statut Membre Dernière intervention - 1 févr. 2016 à 16:29

Bonjour à tous,

Et d'avance merci à ceux qui se pencheront sur mon problème, je suis à deux doigts de pleurer devant mon écran ou de l'envoyer contre le mur... ;-)

Je suis toujours sur la conception du même outil, j'avance lentement mais sûrement.

Le problème du jour : l'objectif de ce code est de trouver la "Valcherchée" (concaténation de 3 cellules se trouvant dans la feuille "MàJ PA - retour audités") dans la colonne Z de la feuille "BDD résumé". J'ai vérifié via une MsgBox et "Valcherchée" correspond bien à ce que je cherche à trouver.
A partir de là et de la méthode offset qui doit pointer sur la colonne G, trouver la cellule indiquant le numéro de campagne associée à la "Valcherchée" et le remplacer par le numéro saisi dans la feuille "MàJ PA - retour audités" (actualisation du numéro de campagne de chaque mission tous les 6 mois).

J'ai testé ma procédure hier et après une journée à bûcher dessus, ça marchait enfin en partant le soir. Mais, car il y en a toujours un, ce matin, ça ne marchait plus. J'ai bien essayé de l'améliorer en fonction des indications trouvées en ligne, mais après 3h dessus, rien n'y fait et j'abandonne !

En exécutant ma procédure pas à pas, ça plante au niveau de "MsgBox Cellule" (j'ai rajouté cette ligne pour essayer d'identifier le problème") et le message d'erreur 91 apparaît. Or, je n'ai pas de with sans end with (j'ai essayé d'en mettre au cas où), mes variables sont déclarées (j'ai essayé de les mettre en Variant voir si ça solutionnait mon problème...), etc.
Si j'enlève la ligne de code "MsgBox Cellule", la procédure suit son cours et renvoie à Nothing, ma MsgBox "Non trouvé" apparaît et fin du traitement.
Ce que je ne comprends pas, c'est que ma "Valcherchée" est bien présente dans ma colonne Z.

Private Sub MAJNumCampagne()
    
    'RECHERCHE CELLULE AVEC N° CAMPAGNE CORRESPONDANT A LA MISSION SELECTIONNEE DANS LA FEUILLE "BDD résumé"
    Dim Valcherchée As String
    Dim Cellule As Range 'cellule comprenant les 3 valeurs recherchées concaténées
    Dim myRange As Range 'cellule correspondant au num de campagne
    
    'Concaténation Mission + Année + Entité à chercher
    With Sheets("MàJ PA - retour audités")
        Valcherchée = .Range("D6").Value & .Range("G8").Value & .Range("D10").Value
    End With
    
    'Activation de la cellule contenant le n° de campagne en fonction de la mission et affectation du numéro actualisé
    Set Cellule = Sheets("BDD résumé").Columns(26).Find(Valcherchée, Lookat:=xlWhole)
MsgBox Cellule
    If Cellule Is Nothing Then
       MsgBox "Non trouvé."
    Exit Sub
    End If
    
    If Not Cellule Is Nothing Then
        myRange = Cellule.Offset(, -19)
        myRange.Value = Sheets("MàJ PA - retour audités").Range("I17").Value
    End If

End Sub

Je craque !! Plus de patience.
D'avance merci pour votre précieuse aide.

Bonne journée à tous.
Amande42

PS : comment fait-on sur ce forum pour mettre le code en forme (encadré et couleurs) et faciliter ainsi la lecture ?

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.

Afficher la suite

A voir également:

Erreur 91 vba
+33 9 48 20 91 54 ✓ - Forum Mobile
Erreur 3005 france tv - Forum TV & Vidéo
Incompatibilité de type vba ✓ - Forum Programmation
Erreur 3000 france tv - Forum Lecteurs et supports vidéo
Erreur 0x80070643 - Accueil - Windows

8 réponses

Réponse 1 / 8

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour,

- Pour mettre du code :
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

- Pour ce qui est de l'erreur sur la ligne de code :

MsgBox Cellule

.... vu que tu déclare ta variable ainsi :

 Dim Cellule As Range

... Cellule ... est une "RANGE" (une plage de celllules ou une seule cellule...)
Donc... cet "objet" contient une propriété VALUE (pour en avoir le contenu...) , une propriété ADRESSE ( pour connaitre ses coordonnées.....) ... bref... à toi de choisir ce que tu veux afficher.

Tu pourrais donc écrire :

 Set Cellule = Sheets("BDD résumé").Columns(26).Find(Valcherchée, Lookat:=xlWhole)
MsgBox Cellule
    If Cellule Is Nothing Then
       MsgBox "Non trouvé."
       Exit Sub
     else
      MsgBox Cellule.Adresse
       myRange = Cellule.Offset(, -19)
        myRange.Value = Sheets("MàJ PA - retour audités").Range("I17").Value
     End If

Ensuite tu indiques :

ma "Valcherchée" est bien présente dans ma colonne Z.

... mais... le texte est présent TEL QUEL dans ta cellule... ou il fait parti d'un TEXT contenu dans ta cellule ???
Pour rappel : xlWhole Correspond à => Correspondance EXACTE.

Et pour finir ....
=> N'utilises pas de caractères ACCENTUES dans le nom de tes variables !
(ni aucun caractère spécial... (hormis les underscore ))

Réponse 2 / 8

beber67470 Messages postés 4887 Date d'inscription Statut Membre Dernière intervention 798

Bonjour

Si ça peut vous être utile >>https://forums.commentcamarche.net/forum/affich-4687136-erreur-d-execution-91-sous-excel-vba

Amande42 Messages postés 25 Date d'inscription Statut Membre Dernière intervention

Merci Beber pour le lien.
Je l'avais déjà consulté et malgré tout, toujours dans la mouise...
;-)

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

peut-être qu'en lisant toutes les réponses...

Réponse 3 / 8

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

Pour compléter :

    If Not Cellule Is Nothing Then
        myRange = Cellule.Offset(, -19)
        myRange.Value = Sheets("MàJ PA - retour audités").Range("I17").Value
    End If

Pourquoi retester puisque tu l'as déjà fait au-dessus et qu'elle ne peut plus être que Not Nothing ?
et surtout : Set myRange = Cellule.Offset(, -19)
(c'est un objet)

ou mettre directement :

Cellule.Offset(, -19).Value = Sheets("MàJ PA - retour audités").Range("I17").Value

eric

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Réponse 4 / 8

Amande42 Messages postés 25 Date d'inscription Statut Membre Dernière intervention

Merci à tous les trois pour votre réponse.
Je viens de me rendre compte que ma réponse de 12h05 n'a pas été publiée...

Alors, j'ai passé modifié mon code en prenant en compte vos remarques. Normalement, ma "Valcherchee" correspond exactement à ce qui se trouve dans la colonne Z, mais par mesure de sécurité, j'ai remplacé le paramètre LookAt de la méthode Find par xlPart.
Mon code ressemble maintenant à ça:

Private Sub MAJNumCampagne()
    
    'RECHERCHE CELLULE AVEC N° CAMPAGNE CORRESPONDANT A LA MISSION SELECTIONNEE DANS LA FEUILLE "BDD résumé"
    Dim Valcherchee As String
    Dim Cellule As Range 'cellule comprenant les 3 valeurs recherchées concaténées
    'Dim myRange As Range 'cellule correspondant au num de campagne
    
    'Concaténation Mission + Année + Entité à chercher
    With Sheets("MàJ PA - retour audités")
        Valcherchee = .Range("D6").Value & .Range("G8").Value & .Range("D10").Value
    End With
    
    'Activation de la cellule contenant le n° de campagne en fonction de la mission et affectation du numéro actualisé
    Set Cellule = Sheets("BDD résumé").Columns(26).Find(Valcherchee, Lookat:=xlPart)
    If Cellule Is Nothing Then
        MsgBox "Non trouvé."
        Exit Sub
    Else
    MsgBox Cellule.Address
        Cellule.Offset(, -19) = Sheets("MàJ PA - retour audités").Range("I17").Value
    End If

End Sub

Mais malheureusement, ça ne fonctionne toujours pas.
J'avais déjà essayé le "MsgBox Cellule.Address" avant pour voir si ça pointait au bon endroit. Ça ne marchait pas et ça ne marche toujours pas.
La procédure s'arrête toujours à Exit Sub et ne traite pas mes lignes de code suivantes, alors qu'il y a bien une correspondance entre mes deux feuilles.
Le message "erreur d'exécution 91" survient à la ligne "Msgbox Cellule.Address".

Réponse 5 / 8

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Es-tu sûr de tes valeurs ?

Peux tu essayer ceci et nous dire ce que ça te donne ?

Private Sub MAJNumCampagne()
'RECHERCHE CELLULE AVEC N° CAMPAGNE CORRESPONDANT A LA MISSION SELECTIONNEE DANS LA FEUILLE "BDD résumé"
    Dim Valcherchee As String
    Dim Cellule As Range 'cellule comprenant les 3 valeurs recherchées concaténées
    
    Dim myRange As Range 'cellule correspondant au num de campagne
    
    Dim oF_Maj As Worksheet ' Feuille
       Set oF_Maj = ThisWorkbook.Sheets("MàJ PA - retour audités")
    
    Dim oF_Resum As Worksheet ' Feuille
       Set oF_Resum = ThisWorkbook.Sheets("BDD résumé")
    
    
    'Concaténation Mission + Année + Entité à chercher
     Valcherchee = oF_Maj.Range("D6").Value & oF_Maj.Range("G8").Value & oF_Maj.Range("D10").Value

    
    'Activation de la cellule contenant le n° de campagne en fonction de la mission et affectation du numéro actualisé
    Set Cellule = oF_Resum.Columns(26).Find(Valcherchee, Lookat:=xlPart)
    If Cellule Is Nothing Then
        MsgBox "'" & Valcherchee & "' -> Non trouvé."
        Exit Sub
    Else
       MsgBox Cellule.Address
       Set myRange = Cellule.Offset(, -19)
           myRange.Value = oF.Range("I17").Value
    End If

End Sub

Au passage ... vérifies bien que tu cherches dans la bonne colonne et .. que la Valcherchee est strictement écrit de la même manière que dans les cellules où tu cherches !

Pour ma part, le code donné au dessus fonctionne très bien.

Réponse 7 / 8

Amande42 Messages postés 25 Date d'inscription Statut Membre Dernière intervention

Jordane, j'ai essayé ton code et ça ne marche pas...

A la demande d'Eric et effectivement, vu que ça a l'air plus compliqué que prévu, j'ai créé une version allégée de mon fichier.
J'espère que le fait d'avoir supprimé des feuilles et modifié les données confidentielles n'a pas trop pourrir le fichier et le code.

Pour information, le code dont on parle se trouve dans la feuille "MàJ PA - retour audités". L'objectif à terme est de l'intégrer dans mon module 2 une fois qu'il fonctionnera.
Pour les USF et les modules, ils sont rattachés aux feuilles que j'ai supprimées mais ça ne devrait pas impacter le code nous concernant.

http://www.cjoint.com/c/FADpzHnOChm

Si vous avez besoin d'explication, n'hésitez pas à me demander.

Merci.

PS : Eric, la valeur que je recherche avec mon offset est le numéro de la dernière campagne de suivi enregistrée (1, 2, 3, 4...) et renvoie donc à un chiffre entier positif.

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Dim oF_Resum As Worksheet
pas As workbook.
Je n'ai changé que ça et ça fonctionne.
eric

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752 > eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention

Dim oF_Resum As Worksheet
pas As workbook.

En même temps... c'dst bien ce que j'avais écrit non ? Oo :)

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Ah ben oui
Si en plus elle arrive à faire des fautes dans un collé ce n'est pas gagné :-)

Discussions similaires

"erreur d’exécution 13 Incompatibilité de Type" dans VBA.

VBA "Erreur d'exécution '438' "

Erreur d'exécution '5'

Erreur 70 permission refusée

Arrêt d'exécution d'un code vba

Erreur d'exécution 13 l

Votre réponse

Discussions similaires