XL 2013 la méthode value de l'objet range a échoué!!

Y

youguybass

XLDnaute Junior
Bonjour
Quand je click sur le btn de validation dans les userform de création référence / Creation matière/ création client, excel plante très souvent et me met en message:
"la méthode value de l'objet range a échoué"
J'ai lu que c'était apparemment un boucle qu'Excel n'arrivait pas à terminer mais je ne vois pas où!

Donc Help
 

Pièces jointes

  • Fichiers Maintenance Nouvelle génération.xlsm
    62.6 KB · Affichages: 17
Trier par date Trier par votes
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Essayez de faire le même travail sans activation/sélection des feuilles et cellules.

Exemple :
VB: 
Dim NumLig as long
With ThisWorkbook.Sheets("NomDeLaFeuilleQuiVaBien")
NumLig = .Cells( Rows.Count,1).End(xlup).row+1
'....  autre Travail sur la feuille
End With

Ou si vous voulez travailler sur plusieurs feuilles
Code: 
Dim shSource as worksheet, shDest as worksheet
Dim DerLigne as Long

With ThisWorkbook ' on est sûr d'être sur le classeur qui contient la macro, au bon moment
    Set shSource = .Sheets("NomFeuilleSource")
    Set shDest = .Sheets("NomFeuilleDestination")
End with
'
' Récupération du prochain numéro de ligne ligne de la colonne 1 de Destination
NumLigne = shDest.Cells(rows.Count,1).End(xlup).Row+1
'
' Copie des valeurs de A10:F10 de la feuille source dans la feuille destination à la prochaine ligne disponible sous le tableau
shDest.Range("A" & NumLigne & ":F" & NumLigne ).Value = shSource.Range("A10:F10").Value
'
' ou
'shDest.Cells(1,NumLigne).resize(,5).Value = shSource.Cells(1,1).Resize(,5).Value

NumLigne = NumLigne +1 'Ligne suivante

Il y a plusieurs façons de référencer et travailler sur les objets excel. Vous trouverez votre style propre par la pratique.

Mais ce qui est le plus important est que vous et le moteur d'exécution vb sache à un instant T sur quelle cellule de quelle feuille de quel classeur il doit travailler.

A cet instant T, ActiveSheet renseigne uniquement sur la feuille active. Mais sans nous dire qu'elle est cette feuille ni ne parle de son classeur. Si vos appels à d'autres procedures ont modifié ActiveSheet, de retour à la procédure appelante, la feuille active n'est plus la même.

Pour être certain avec activeSheet et selection il faudrait (au minimum) :
Code: 
If ActiveSheet.Parent.Name = "NomDuClasseurDeLaFeuilleAttendue.xlsx" then
    ' ActiveSheet  appartient au bon classeur
       If ActiveSheet.Name = "NomDeLaFeuilleAttendue" then
          'ActiveSheet est la bonne feuille du bon classeur
           If TypeOf Selection Is Range then
                'La selection est bien un objet range et non pas un Shape ou Graphique ou image ou autre chose
                 ' nous pouvons travailler sur l'objet range
           Else
                 ' M...e ! pas le bon objet
           End if
        Else
              ' M...e ! pas la bonne feuille
        End if
Else
       ' M...e ! pas le bon classeur
End if

P.S. j'ai pu faire quelques coquilles dans les lignes ci-dessus les ayant saisies à la volée.

P.S. Lorsque vous joignez un fichier excel, arrangez-vous pour qu' aucune procédure ne se lance au démarrage. C'est pénible, d'autant que le bouton 'Exit' ferme le classeur et pas seulement le userform.
Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour youguybass,

En Feuil1 le tableau structuré TabRefLacour était quelque peu corrompu.

Dans le fichier joint j'ai simplement mis sa colonne A au format Standard au lieu du format Texte.

Tout va bien maintenant.

A+
 

Pièces jointes

  • Fichiers Maintenance Nouvelle génération (1).xlsm
    51.2 KB · Affichages: 4
Vote positif 0 Vote négatif
Y

youguybass

XLDnaute Junior
Job75 Bonjour et merci
la 1° pièce jointe que vous m'avez envoyée fonctionne sur le moment, si j'enregistre et que je réouvre ça rebeug
La 2°pièce jointe beugue elle dès que je click sur le bouton création référence avec ce message
1634124879248.png
 
Vote positif 0 Vote négatif
Y

youguybass

XLDnaute Junior
Hasco à dit:
Bonjour,

Essayez de faire le même travail sans activation/sélection des feuilles et cellules.

Exemple :
VB: 
Dim NumLig as long
With ThisWorkbook.Sheets("NomDeLaFeuilleQuiVaBien")
NumLig = .Cells( Rows.Count,1).End(xlup).row+1
'....  autre Travail sur la feuille
End With

Ou si vous voulez travailler sur plusieurs feuilles
Code: 
Dim shSource as worksheet, shDest as worksheet
Dim DerLigne as Long

With ThisWorkbook ' on est sûr d'être sur le classeur qui contient la macro, au bon moment
    Set shSource = .Sheets("NomFeuilleSource")
    Set shDest = .Sheets("NomFeuilleDestination")
End with
'
' Récupération du prochain numéro de ligne ligne de la colonne 1 de Destination
NumLigne = shDest.Cells(rows.Count,1).End(xlup).Row+1
'
' Copie des valeurs de A10:F10 de la feuille source dans la feuille destination à la prochaine ligne disponible sous le tableau
shDest.Range("A" & NumLigne & ":F" & NumLigne ).Value = shSource.Range("A10:F10").Value
'
' ou
'shDest.Cells(1,NumLigne).resize(,5).Value = shSource.Cells(1,1).Resize(,5).Value

NumLigne = NumLigne +1 'Ligne suivante

Il y a plusieurs façons de référencer et travailler sur les objets excel. Vous trouverez votre style propre par la pratique.

Mais ce qui est le plus important est que vous et le moteur d'exécution vb sache à un instant T sur quelle cellule de quelle feuille de quel classeur il doit travailler.

A cet instant T, ActiveSheet renseigne uniquement sur la feuille active. Mais sans nous dire qu'elle est cette feuille ni ne parle de son classeur. Si vos appels à d'autres procedures ont modifié ActiveSheet, de retour à la procédure appelante, la feuille active n'est plus la même.

Pour être certain avec activeSheet et selection il faudrait (au minimum) :
Code: 
If ActiveSheet.Parent.Name = "NomDuClasseurDeLaFeuilleAttendue.xlsx" then
    ' ActiveSheet  appartient au bon classeur
       If ActiveSheet.Name = "NomDeLaFeuilleAttendue" then
          'ActiveSheet est la bonne feuille du bon classeur
           If TypeOf Selection Is Range then
                'La selection est bien un objet range et non pas un Shape ou Graphique ou image ou autre chose
                 ' nous pouvons travailler sur l'objet range
           Else
                 ' M...e ! pas le bon objet
           End if
        Else
              ' M...e ! pas la bonne feuille
        End if
Else
       ' M...e ! pas le bon classeur
End if

P.S. j'ai pu faire quelques coquilles dans les lignes ci-dessus les ayant saisies à la volée.

P.S. Lorsque vous joignez un fichier excel, arrangez-vous pour qu' aucune procédure ne se lance au démarrage. C'est pénible, d'autant que le bouton 'Exit' ferme le classeur et pas seulement le userform.
Cordialemen
Cliquez pour agrandir...

Hasco à dit:
Bonjour,

Essayez de faire le même travail sans activation/sélection des feuilles et cellules.

Exemple :
VB: 
Dim NumLig as long
With ThisWorkbook.Sheets("NomDeLaFeuilleQuiVaBien")
NumLig = .Cells( Rows.Count,1).End(xlup).row+1
'....  autre Travail sur la feuille
End With

Ou si vous voulez travailler sur plusieurs feuilles
Code: 
Dim shSource as worksheet, shDest as worksheet
Dim DerLigne as Long

With ThisWorkbook ' on est sûr d'être sur le classeur qui contient la macro, au bon moment
    Set shSource = .Sheets("NomFeuilleSource")
    Set shDest = .Sheets("NomFeuilleDestination")
End with
'
' Récupération du prochain numéro de ligne ligne de la colonne 1 de Destination
NumLigne = shDest.Cells(rows.Count,1).End(xlup).Row+1
'
' Copie des valeurs de A10:F10 de la feuille source dans la feuille destination à la prochaine ligne disponible sous le tableau
shDest.Range("A" & NumLigne & ":F" & NumLigne ).Value = shSource.Range("A10:F10").Value
'
' ou
'shDest.Cells(1,NumLigne).resize(,5).Value = shSource.Cells(1,1).Resize(,5).Value

NumLigne = NumLigne +1 'Ligne suivante

Il y a plusieurs façons de référencer et travailler sur les objets excel. Vous trouverez votre style propre par la pratique.

Mais ce qui est le plus important est que vous et le moteur d'exécution vb sache à un instant T sur quelle cellule de quelle feuille de quel classeur il doit travailler.

A cet instant T, ActiveSheet renseigne uniquement sur la feuille active. Mais sans nous dire qu'elle est cette feuille ni ne parle de son classeur. Si vos appels à d'autres procedures ont modifié ActiveSheet, de retour à la procédure appelante, la feuille active n'est plus la même.

Pour être certain avec activeSheet et selection il faudrait (au minimum) :
Code: 
If ActiveSheet.Parent.Name = "NomDuClasseurDeLaFeuilleAttendue.xlsx" then
    ' ActiveSheet  appartient au bon classeur
       If ActiveSheet.Name = "NomDeLaFeuilleAttendue" then
          'ActiveSheet est la bonne feuille du bon classeur
           If TypeOf Selection Is Range then
                'La selection est bien un objet range et non pas un Shape ou Graphique ou image ou autre chose
                 ' nous pouvons travailler sur l'objet range
           Else
                 ' M...e ! pas le bon objet
           End if
        Else
              ' M...e ! pas la bonne feuille
        End if
Else
       ' M...e ! pas le bon classeur
End if

P.S. j'ai pu faire quelques coquilles dans les lignes ci-dessus les ayant saisies à la volée.

P.S. Lorsque vous joignez un fichier excel, arrangez-vous pour qu' aucune procédure ne se lance au démarrage. C'est pénible, d'autant que le bouton 'Exit' ferme le classeur et pas seulement le userform.
Cordialement
Cliquez pour agrandir...
Je débute en VBA, a quel endroit dois-je mettre ce/ces codes.
Pouvez vous me les intégrer directement au fichier.
 
Vote positif 0 Vote négatif

Discussions similaires

H
  • Question
XL 2016 La méthode Range de l'objet value à échoué
Réponses
8
Affichages
487
Hamadou
H
H
  • Question
XL 2016 la méthode Add de l'Objet Listrows à échoué
2
Réponses
29
Affichages
978
patricktoulon
patricktoulon
A
  • Question
XL 2019 la méthode AutoFilter de la classe range a échoué
Réponses
5
Affichages
240
Phil69970
Phil69970
C
  • Résolu(e)
XL 2016 erreur 1004 _ la méthode range de l'objet global a échoué
Réponses
5
Affichages
610
ced91300
C
R
  • Question
XL 2021 Erreur d'exécution '-2147417848 (80010108). La méthode '-Default' de l'objet 'Range' a échoué après quelques saisies d'enregistrement
2
Réponses
23
Affichages
2 K
Rv_38
R
O
  • Résolu(e)
XL 2013 Erreur : La méthode 'range' de l''objet'_Global a échoué
Réponses
5
Affichages
564
kiki29
kiki29
Y
  • Question
XL 2013 La méthode 'Value' de l'objet range à échoué
Réponses
2
Affichages
867
youguybass
Y
J
  • Résolu(e)
XL 2013 méthode pastespecial de la classe range a échoué
Réponses
3
Affichages
978
Joujita31
J
L
  • Question
XL 2019 Erreur 1004 méthode 'SaveAs' de l'objet '_Workbook' a échoué
Réponses
13
Affichages
1 K
Dranreb
Dranreb
D
  • Question
XL 2010 La méthode Delete de la classe Range a échoué
Réponses
3
Affichages
1 K
Dranreb
Dranreb

Membres actuellement en ligne

18 membres et 320 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh