XL 2013 Erreur : La méthode 'range' de l''objet'_Global a échoué

onyirimba · 7 Janvier 2023

Bonjour,

La MAcro que j'ai programmée ne fonctionne pas et je ne connais pas l'origine du problème =>j'ai un message Erreur : "La méthode 'range' de l''objet'_Global a échoué"
Merci de votre aide

3 - Voici le Message d'erreur VBA

1- voici le fichier Excel/Capture d'écran associée

Phil69970 · 7 Janvier 2023

Re

Il y a 2 erreurs dans le code

Sub TrouverProblem()

Dim Dernligne As Boolean ' DŽclaration de Variable Long = Chiffre String = Texte Boolean = Vrai/Faux

Dernligne = Range("A" & Rows.Count).End(xlUp).Row ' derniere ligne des variables

Range("A" & Adernligne + 1) = "3 lignes sur 5 ˆ corriger"

End Sub

1ere erreur

Dim Dernligne As Boolean

Remplacé par :

Dim Dernligne As String

2eme erreur

Range("A" & Adernligne + 1

Remplacé par :

Range("A" & Dernligne + 1

Et code complet

Sub TrouverProblem()

Dim Dernligne As String

Dernligne = Range("A" & Rows.Count).End(xlUp).Row ' derniere ligne des variables

Range("A" & Dernligne + 1) = "3 lignes sur 5 ˆ corriger"

End Sub...

Phil69970 · 7 Janvier 2023

Bonjour @onyirimba
Edit : Bonjour TFB

Les images sont belles mais j'ai pas vu ton fichier
A priori les variables sont mal déclaré et mal nommé
Option explicit en début de macro s’impose à minima

@Phil69970

onyirimba · 7 Janvier 2023

Phil69970 à dit:
Bonjour @onyirimba

Les images sont belles mais j'ai pas vu ton fichier
A priori les variables sont mal déclaré et mal nommé
Option explicit en début de macro s’impose à minima

@Phil69970

Bonjour @Phil69970

voici le fichier

Phil69970 · 7 Janvier 2023

Re

Il y a 2 erreurs dans le code

Sub TrouverProblem()

Dim Dernligne As Boolean ' DŽclaration de Variable Long = Chiffre String = Texte Boolean = Vrai/Faux

Dernligne = Range("A" & Rows.Count).End(xlUp).Row ' derniere ligne des variables

Range("A" & Adernligne + 1) = "3 lignes sur 5 ˆ corriger"

End Sub

1ere erreur

Dim Dernligne As Boolean

Remplacé par :

Dim Dernligne As String

2eme erreur

Range("A" & Adernligne + 1

Remplacé par :

Range("A" & Dernligne + 1

Et code complet

Sub TrouverProblem()

Dim Dernligne As String

Dernligne = Range("A" & Rows.Count).End(xlUp).Row ' derniere ligne des variables

Range("A" & Dernligne + 1) = "3 lignes sur 5 ˆ corriger"

End Sub

@Phil69970

onyirimba · 7 Janvier 2023

Phil69970 à dit:
Re

Il y a 2 erreurs dans le code

1ere erreur

Dim Dernligne As Boolean

Remplacé par :

Dim Dernligne As String

2eme erreur

Range("A" & Adernligne + 1

Remplacé par :

Range("A" & Dernligne + 1

Et code complet

@Phil69970

Merci cela fonctionne

kiki29 · 7 Janvier 2023

Salut, à lire/comprendre/appliquer : Support de cours complet pour le VBA d'Excel

XL 2013 Erreur : La méthode 'range' de l''objet'_Global a échoué

onyirimba

XLDnaute Occasionnel

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

Discussions similaires