Problème d'affectation variable tableau

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 ??????:rouleau:

Citation:

---

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:

---

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

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:

---

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:

---

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

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.

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.

Citation:

---

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.

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.:ave:

Non.

Regarde

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Sub Macro1()   Dim laligne As Byte Dim lacol As Byte   With ThisWorkbook.Worksheets("ENTREE") laligne = .Cells(.Rows.Count, 1).End(xlUp).Row lacol = .Cells(1, .Columns.Count).End(xlToLeft).Column End With   End Sub

---

:king: Merci Marcel,

Je comprends mieux ou tu voulais en venir, je ne pensais pas à utliser la méthode .count du coup je voulais faire ma référence manuellement.

En tout cas merci, je suis vraiment un :boulet: