Discussion :

[Matt_38]

Bonjour à tous,

N'étant pas un expert dans la programmation, j'aurais besoin de votre aide.
J'ai un bout de code qui me permet de compter le nombre de cellule d'une liste et ensuite de transférer cette liste dans une variable tableau.
Quand je teste le code, OK tout fonctionne.
Le lendemain je relance ma macro ca ne fonctionne plus. Je bidouille ca remarche.
Le surlendemain ca ne fonctionne plus ??????

Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet

J'aurais donc besoin de votre aide pour trouver le pourquoi du comment.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim nb_ligne As Integer
Dim liste_tableau as variant
 
Sub Créer_tableau()
    'Création tableau
    nb_ligne = ThisWorkbook.Sheets("Feuil1").Range("A1").End(xlDown).Row
    liste_tableau = ThisWorkbook.Sheets("Feuil1").Range(Cells(2, 1), Cells(nb_ligne, 2))
End Sub

Merci d'avance pour votre aide

[Matt_38]

Re,

J'ai trouvé la cause, je vous mets donc la solution si ca peut aider quelqu'un
Le problème vient du code "Cells(x,x)" qui fait automatiquement référence à la feuille active si l'on ne lui affecte pas le lien complet donc dans mon cas il faut faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim nb_ligne As Integer
Dim liste_tableau as variant
 
Sub Créer_tableau()
    'Création tableau
    nb_ligne = ThisWorkbook.Sheets("Feuil1").Range("A1").End(xlDown).Row
    liste_tableau = ThisWorkbook.Sheets("Feuil1").Range(ThisWorkbook.Sheets("Feuil1").Cells(2, 1), ThisWorkbook.Sheets("Feuil1").Cells(nb_ligne, 2))
End Sub

Au final j'ai choisi de simplifier mon code de cette façon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim nb_ligne As Integer
Dim liste_tableau as variant
 
Sub Créer_tableau()
    'Création tableau
    nb_ligne = ThisWorkbook.Sheets("Feuil1").Range("A1").End(xlDown).Row
    liste_tableau = ThisWorkbook.Sheets("Feuil1").Range("A2:B" & nb_ligne)
End Sub

Bon courage

[MarcelG]

Bonjour Matt et bienvenu sur le Forum,

2 remarques:

1 - Pour désigner une dernière ligne (ou colonne) informée(s), mieux vaut partir de la dernière cellule de la feuille de travail.
Pour ce faire, utiliser les propriétés End(xlUp) et End(xlToLeft).
(Beaucoup d'exemples sur ce forum)
2 - Si un objet est commun à plusieurs lignes (c'est le cas ici) alors, pour une meilleure lisibilité du code, il est conseillé d'utiliser la méthode With

Tu peux développer en ce sens et retourner ton code modifié si besoin.

[Matt_38]

Merci beaucoup pour ta réponse,

Je vais peut-être dire des conneries mais j'avais privilégié "End(xlDown)" car dans mon entreprise il y a encore des PC avec Excel 97 (ET OUI CA EXISTE ENCORE !)

Et comme le nombre maximum de cellule entre les anciennes version (avant 2007) et les nouvelles ne sont pas les mêmes, je ne voulais pas gérer cette particularité.
Bon c'est dans l'éventualité ou l'on ai plus de 65 000 ligne.

[MarcelG]

https://www.developpez.net/forums/d1.../#post10593548

Quand bien même. Je dirais même "Qui plus est"
Lors de l'utilisation de la propriété End(xlUp), est pris en compte le nombre de lignes que la feuille détient (65000, 1000000...)

Pour information, sauf erreur, le nombre de lignes et de colonnes est toujours une puissance de 2.

[Matt_38]

D'accord,

Mais si je ne me trompe pas, pour utiliser End(xlUp) il faut que je référence mon point de départ de ma recherche donc comment savoir ma dernière ligne sans faire un contrôle sur les versions d'Excel.

Merci de développer ma curiosité ou mon ignorance.