"Erreur d'exécution 91"

Résolu/Fermé

Amande42 Messages postés 25 Date d'inscription vendredi 13 novembre 2015 Statut Membre Dernière intervention 7 août 2019 - Modifié par jordane45 le 29/01/2016 à 11:16
Amande42 Messages postés 25 Date d'inscription vendredi 13 novembre 2015 Statut Membre Dernière intervention 7 août 2019 - 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.

A voir également:

Erreur 91
Erreur 0x80070643 - Guide
Une erreur s'est produite instagram ✓ - Forum Instagram
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Erreur 38 free ✓ - Forum Mobile
Iptv erreur de lecture - Forum TV & Vidéo

8 réponses

Réponse 1 / 8

jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650
29 janv. 2016 à 11:24

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 4886 Date d'inscription mercredi 22 octobre 2014 Statut Membre Dernière intervention 6 octobre 2017 798
29 janv. 2016 à 11:28

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 vendredi 13 novembre 2015 Statut Membre Dernière intervention 7 août 2019
29 janv. 2016 à 12:16

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

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
29 janv. 2016 à 12:45

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

Réponse 4 / 8

Amande42 Messages postés 25 Date d'inscription vendredi 13 novembre 2015 Statut Membre Dernière intervention 7 août 2019
Modifié par Amande42 le 29/01/2016 à 14:37

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 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650
29 janv. 2016 à 14:50

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 vendredi 13 novembre 2015 Statut Membre Dernière intervention 7 août 2019
29 janv. 2016 à 16:26

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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
29 janv. 2016 à 18:10

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

jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650 > eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024
29 janv. 2016 à 19:55

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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
29 janv. 2016 à 21:51

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

Erreur d'exécution 13 l

VBA / Erreur d'exécution 1004

Discussions similaires

Newsletters