Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

la methode range de l'objet _global a echoué

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pnlop
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pnlop

XLDnaute Occasionnel
Bonjour le forum,
Voici ma macro, trouvée à partir de l'enregistreur auto de macro. Initialement elle fonctionne, mais dès que je modifie la ligne verte, car B12 est variable et dépend de "DernLigne", cela provoque l'erreur 1004 La méthode range de l'objet _global a échoué...
Pourriez-vous m'indiquer quoi faire pour que cela fonctionne?

Merci pour votre aide!

Code: 
Sub copier_voka()
'
' copier_voka Macro
' Copier données de la voka vers modèle pdf
'
' Touche de raccourci du clavier: Ctrl+Maj+Y
'
With Worksheets("Tabelle1")
    
    Dim DernLigne As Variant
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    
    Cpt = Application.CountA(Range("A:A"))
    
    Worksheets("+ total").Cells(7, 1).EntireRow.Resize(rowsize:=Cpt).Insert Shift:=xlDown
    
    [COLOR="#00FF00"]Range("B9:B&DernLigne").Select[/COLOR]
    Selection.Copy
    Sheets("+ total").Select
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle1").Select
    Range("C9:C&DernLigne").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("+ total").Select
    Range("C6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End With
    
    
    
    
End Sub
 
Trier par date Trier par votes
Re : la methode range de l'objet _global a echoué

Bonjour.

Réfléchissez un peu … Vous avez pourtant bien utilisé ailleurs : "A" & Rows.Count
Croyez vous qu'à la place il aurait pu évaluer "A&Rows.Count" ?
 
Vote positif 0 Vote négatif
Re : la methode range de l'objet _global a echoué

Bonjour le forum,
Je suis arrivée au bout de ma macro et tout fonctionne… sauf un évènement. Enfin, chose étrange que je ne m’explique pas (je compte un peu sur vous… !) si je fais le pas à pas détaillé, pas de problème. Mais dès que je lance la macro, là, elle ne me copie pas ce qui doit l’être au niveau de la colonne D vers l’autre feuille en D6… !?!
(le problème se situe entre la ligne 50 et 56 du code ci-dessous)

Code: 
Sub copier_voka()
'
' copier_voka Macro
' Copier données de la voka vers modèle pdf
'
' Touche de raccourci du clavier: Ctrl+Maj+Y
'

    Dim DernLigne As Variant
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    Dim Cpt As Variant
    Cpt = Application.CountA(Range("A:A"))
    
    Worksheets("Tabelle1").Columns("A:AA").Select
    Selection.EntireColumn.Hidden = False

With Worksheets("Tabelle1")
    
     
    Worksheets("+ total").Cells(7, 1).EntireRow.Resize(rowsize:=Cpt).Insert Shift:=xlDown
    
    Range("D9:D" & DernLigne).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D9:D" & DernLigne).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Range("F9:F" & DernLigne).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F9:F" & DernLigne).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("B9:B" & DernLigne).Select
    Selection.Copy
    Sheets("+ total").Select
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle1").Select
    Range("C9:C" & DernLigne).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("+ total").Select
    Range("C6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D9:D" & DernLigne).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("+ total").Select
    Range("D6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle1").Select
    Range("E9:E" & DernLigne).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("+ total").Select
    Worksheets("+ total").Range("E6").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle1").Select
    Range("F9:F" & DernLigne).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("+ total").Select
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle1").Select
    Range("J9:J" & DernLigne).Select
    Selection.Copy
    Sheets("+ total").Select
    Range("G6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Tabelle1").Select
    Range("M9:M" & DernLigne).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("+ total").Select
    Range("H6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End With
    

With Worksheets("+ total")

    Dim DerLi As Variant
    DerLi = Range("E" & Rows.Count).End(xlUp).Row
    
    Range("D6:D" & DerLi).Select
    Selection.Copy
    Range("D6:D" & DerLi).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("E6:F" & DerLi).Select
    With Selection.Font
        .Name = "Arial"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    
    Range("G6:G" & DerLi).Select
    Selection.Font.Bold = False
    Selection.Font.Bold = True
    Range("H6:H" & DerLi).Select
    Selection.Font.Bold = True
    With Selection.Font
        .Color = -65536
        .TintAndShade = 0
    End With
    
End With

Worksheets("Tabelle1").Activate

    Worksheets("Tabelle1").Columns("D:D").Select
    Selection.EntireColumn.Hidden = True
    Worksheets("Tabelle1").Columns("F:F").Select
    Selection.EntireColumn.Hidden = True
    Worksheets("Tabelle1").Columns("N:P").Select
    Selection.EntireColumn.Hidden = True
    


End Sub

Merci pour votre aide!
 
Vote positif 0 Vote négatif
Re : la methode range de l'objet _global a echoué

Bonjour.

En fait si l'enresistreur de macro fait tout par des Activate, Select et utilise Selection, c'est seulement par fidélité au actions telle qu'elle sont demandées. Pour qu'elle soient juste effectuées comme on le veut on peut en général tous les éviter, quitte à passer, pour éviter des répétitions, par des variables objets de travail convenablement typées plutôt que par Selection.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
Microsoft 365 RESOLU Message d'erreur "La méthode 'range' de l'objet '_global ' a échoué "
2
Réponses
16
Affichages
520
job75
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
199
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
427
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
653
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
508
Nounours4173
N
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
422
sylvanu
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
136
eastwick
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
423
cdric78
C
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
781
Phil69970
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
345
MICHIS
M
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
547
micie1509
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
270
job75
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
719
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
696
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
805
gwenn49
G
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
432
Francky79
F
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
844
olivier388
O
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…