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

[onyirimba]

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]

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]

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]

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]

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]

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