"Erreur d'exécution 91" Résolu/Fermé

Question

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.

jordane45 · Answer

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 ))

beber67470 · Answer

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

eriiic · Answer

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

Amande42 · Answer

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".

jordane45 · Answer

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.

eriiic · Answer

Re,

il est temps de fournir un fichier de travail réduit au minimum sinon on peut discuter encore longtemps.
On ne sait même ce que tu cherches. Pour des dates par exemple c'est plus sensible.
eric

Amande42 · Answer

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.

Amande42 · Answer

Merci pour vos réponses.
Et désolée pour l'étourderie, mais à celui qui n'a jamais de faute de jeter la première pierre.

J'ai modifié la ligne de code comme vous l'avez fait remarqué. 
Ça ne marchait toujours pas. Après un éclair de génie (ou pas), j'ai recopié les valeurs de ma colonne Z et recollé seulement les valeurs, et non pas les formules. Et maintenant ça marche.
Il ne me reste plus qu'à modifier mon code pour qu'il n'y ait dans la colonne Z que les valeurs texte en automatique et non les formules.

Merci à tous pour le temps que vous avez accordé à une novice tête en l'air.
Bonne journée à tous

"Erreur d'exécution 91"

8 réponses

Discussions similaires