la méthode 'Range' de l'objet '_Worksheet' a échoué Résolu/Fermé

Question

Bonjour, à toutes et à tous,

Dans le fichier Référencesmenus, formulaire Saisie des menus, clic sur le bouton de commande Ajouter ce produit au menu (après avoir rempli Nature du menu (mens midi retraite), Date du menu (02/01/2017), Produit (Légumes) : (les cinq colonnes apparaissent et je choisis là LMR09 et je clique sur la ligne), Quantité produit (5.00), Période concernée (dans la liste déroulante, je clique sur Janvier 2017), Numéro du menu (1)). le message la méthode 'Range' de l'objet '-Worksheet' a échoué. Débogage : la ligne with .range(colonne & .Rows.Count).end(xlup).offset(1) s'entoure de jaune. Je place un point d'arrêt sur cette ligne puis un espion : Expression : range;Valeur : expression non définie dans le contexte;Type : empty. Normalement, d'après Patrice, les renseignements remplis, ils devraient apparaître dans la zone de liste lstProduitsDuMenu.
Patrice, qui hélas ne répond plus à mes messages, m'a envoyé tout une documentation intitulée Histoire d'un débogage : j'ai beau appuyer sur F8, le message réapparaît Si j'essaie de monter ou de descendre, rien de spécial ne se passe.
Comme je l'ai dit à Patrice, ce débogage c'est de la connerie car il n'apporte aucune aide, les erreurs sont incompréhensibles et pas suffisamment détaillées et, enfin, la ligne qui s'entoure de jaune n'est pas forcément là où se trouve l'erreur.
Je le répète toujours : je suis un néophyte en programmation et je n'ai pas l'esprit de déduction développé. 
Alors j'espère que malgré tout quelqu'un va bien vouloir aider un néophyte en programmation et à l'esprit de déduction non développé.
Quekque soit le with choisi (feuille shListe de choix menus, shRécapitulatif saisie des menus ou sh Historique des menus), le problème est toujours le mêm.
D'avance merci.
Bonnes fin de journée et continuation.
https://www.cjoint.com/c/GEpnwPoLOBg

Configuration: WINDOWS 7 EXCEL PROFESSIONNEL 2010 
 
BUDGETS

jordane45 · Answer

Bonjour,


Comme je l'ai dit à Patrice, ce débogage c'est de la connerie car il n'apporte aucune aide, les erreurs sont incompréhensibles et pas suffisamment détaillées et, enfin, la ligne qui s'entoure de jaune n'est pas forcément là où se trouve l'erreur. 

Non ... ce n'est pas de la "connerie" ... c'est comme ça qu'on débug un programme pour essayer de trouver les erreurs....
 

j'ai beau appuyer sur F8, le message réapparaît 
 
Heu.. oui.. la touche F8 n'est pas une touche magique... elle ne fait pas disparaitre les messages d'erreurs... elle permet de faire tourner ton code en "pas à pas" pour essayer de situer l'erreur et te laisser le temps de regarder la valeur de tes différentes variables.


Si j'essaie de monter ou de descendre, rien de spécial ne se passe

Dans la documentation et les discussions que tu as eu avec Patrice... il t'a expliqué ce qu'était un "espion" et comment regarder la "valeur" des variables.
C'est cela qu'il faut faire pour essayer de comprendre le souci.


Après un premier essai.. ton code tombe en erreur ici

With .Range(Colonne & .Rows.Count).End(xlUp).Offset(1)

Ligne qui se situe dans le code :

Private Sub cmdAjouterCeProduitAuMenu_Click()
'Ajoute une nouvelle ligne de références

Dim LngIndex As Long 'Index du combo box
Dim strRéférencesMenus As String 'Références
'Mémoriser la référence
strRéférencesMenus = Me.cboRéférences.Text
'Ajouter la ligne
LngIndex = Me.cboRéférences.ListIndex
With shHistoriqueDesMenus
    With .Range(Colonne & .Rows.Count).End(xlUp).Offset(1)
        .Offset(0, 0).Value = Me.cboDateDuMenu
        .Offset(0, 1).Value = Me.cboRéférences
        .Offset(0, 6).Value = Me.textQuantitéProduit

End With
End With
'Réinitialiser les combo boxes du produit
Call InitialiseLesCboDuProduit
'Sélectionner la référence
Me.cboRéférences.Text = strRéférencesMenus
End Sub



... et ... oh quelle surprise .. en passant la souris sur les variables .. voila ce que j'obtiens pour "Colonne" :


Si je ne m'abuse ... "Mars 2017" .. n'est pas une COLONNE .....


Mais...mais....  en plus.... c'est pas vrai que... mais si !! ... c'est bien la même remarque que l'exemple donné par Patrice pour le débugage ...
ICI : https://forums.commentcamarche.net/forum/affich-34084967-type-de-variables-et-quels-objets?page=2#239


!!!!....



Je le répète toujours : je suis un néophyte en programmation et je n'ai pas l'esprit de déduction développé. 

Heureusement pour toi... ça s'apprend.....  mais fais vite ... ça devient urgent !




Cordialement, 
Jordane

BUDGETS · Answer

Bonjour Jordane
Pourquoi il apparait "Mars 2017"  qui est la période concernée ? Qu'est qui  devrait apparaître pour que colonne soit acceptée ? Pour moi, c'est un grand mystère

La méthode 'Range' de l'objet '_Worksheet' a échoué

2 réponses

Discussions similaires