[XL-2003] Récupérer une cellule de la dernière ligne non vide d'un tableau

[christoff916]

Bonjour @ tous,

L'idée du code est de faire une chose paraissant assez simple mais qui me résiste a savoir faire le même principe qu'une RECHERCHEV mais en VBA à l'ouverture d'un fichier.

Situation:

J'ai un fichier "Source" que je remplis au fur et à mesure du temps sur les colonnes "A" et "B".
Ces 2 colonnes sont des liens hypertext celui de la colonne "B" ouvre un fichier .xls (que j'ai créé au préalable).
Ce fichier doit se remplir à l'ouverture dans :
* la cellule B2 du contenu de mon fichier "Source" situé ligne "?" colone "A"
* la cellule B3 du contenu de mon fichier "Source" situé ligne "?" colone "B"
* la cellule B4 de la date de création du fichier (ça c'est le bonus )

Note Si c'est la 1ere ouverture du fichier ça rempli, j'enregistre le fichier, et si je ré-ouvre le fichier ça ne le fait plus


Biensur le code suivant ne marche pas j'ai essayer des choses beaucoup plus simple mais j'arrive à la même conclusion du coup de patine

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Workbook_Open()
 
Dim Repertoire As String, Fichier As String
Dim Ligne As Long
 
Dim CLe, CLs As Workbook 'Classeur entree & source
Dim FLe, FLs As Worksheet 'Feuille entree & source
Dim DerniereLigneFeuille1, LigneCourante As Long
 
Application.ScreenUpdating = False 'suppresion des messages d actualisation
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False 'décoche la confirmation auto des liens
 
    Set CLe = ThisWorkbook
    Set FLe = CLe.Worksheets("Feuille1")
 
Repertoire = "monchemin\quilestbeau\"
Fichier = Dir(Repertoire & "monfichieraouvrir.xls")
 
    Set CLs = Workbooks.Open(Repertoire & Fichier)
    Set FLs = CLs.Worksheets("Feuille1")
 
    DerniereLigneFeuille1 = FLs.Range("A5").End(xlDown).Row 'censé aller chercher la dernière ligne non vide
 
    If FLe.Cells(2, 2).Value = "" Then 'si j'ouvre le fichier et que c'est vide je rempli
 
       FLs.Range("A" & LigneCourante).Copy Destination:=FLe.Cells(2, 2) 'par la dernière ligne remplie de la colonne A
 
    End If
 
End Sub

D'avance merci

[Tweelight]

Bonjour,

Pour trouver la dernière ligne ayant un enregistrement tu peux utiliser:

Code :

1
2
3
 
dim NBline as integer
NBLine = Worksheets("nomdelafeuille").Range("A1").End(xlDown).Row

* la cellule B4 de la date de création du fichier (ça c'est le bonus )

De quelle création? de la mise à jour (saisie sur cette ligne) ou la dernière sauvegarde?

Code :

Worksheets("nomdelafeuille").range("B4").value = Now

si je ne me trompe pas...

Envoyé par christoff916

Code :

Pourquoi ne pas déclarer DerniereLigneFeuille1 et LigneCourante comme des "Integer"?

Envoyé par christoff916

Code :

Pourquoi tu pars de la 5ème ligne?

Envoyé par christoff916

Code :

Tu n'es pas obligé de mettre le

Destination:=

[bbil]

Code :

Dim DerniereLigneFeuille1, LigneCourante As Long

attention avec ce code seul Ligne courante et un long, DernierLigneFeuille1 est un variant , en VB lors des déclaration il faut répéter le type pour chaque variables : XIII. Déclaration de variables , même chose pour tes autres déclarations .

ensuite tu utilise DernierLigneFeuille1 pour calculer la première ligne libre mais ensuite tu utilise LigneCourante que tu n'as pas calculé !


@Tweelight : Les variables LigneCourante et DernierLigneFeuille1 doivent être des long car maintenant un classeur peu avoir plus de 65535 lignes.

Envoyé par Tweelight

Pourquoi tu pars de la 5ème ligne?

si les lignes 1 à 4 sont vide il faut partir de la 5° ligne !

[Ormonth]

Bonsoir,

Envoyé par Tweelight

Pourquoi ne pas déclarer DerniereLigneFeuille1 et LigneCourante comme des "Integer"?

comme le dit bbil, il faut désormais penser impérativement en terme de portabilité, et de toutes façons :

... il est inutile et même préjudiciable de déclarer des variables en Integer vu qu’elles sont de toutes façons converties en Long, et que du coup on y perd en performance...

cf ce fil #1 et la suite...

cordialement,

Didier

[Tweelight]

Bonjour Bbil et Ormonth,

Merci de cette information (variables et portabilité), je suis bon pour revoir quelques macros ^^.
Par contre si nous sommes sûrs que le fichier ne dépassera jamais les 10000 lignes, peut-on garder l'integer?

Pour le départ de la 5ème ligne, il est possible comme moi de ne pas tenir compte de certaines lignes le temps du codage... Donc un "oubli" est si vite arrivé...
_______________________________________________________________
Question stupide: Où peut on poster un projet complet? avec les étapes de développement et pouvoir en parler avec des personnes?

[Ormonth]

Envoyé par Tweelight

Par contre si nous sommes sûrs que le fichier ne dépassera jamais les 10000 lignes, peut-on garder l'integer?

C'est surtout un problème de contexte d'utilisation et de champ d’utilisation et de devenir. il ne s'agit pas de tout reprendre, mais de prendre la bonne habitude pour dès demain et de commenter ou revoir les codes qu'on soupçonne à juste titre de pouvoir poser problème dans l'avenir du fait de leur champ d'application justement.

cordialement,

Didier

[Tweelight]

Envoyé par Ormonth

il ne s'agit pas de tout reprendre

Ouf de soulagement.

Envoyé par Ormonth

mais de prendre la bonne habitude pour dès demain et de commenter ou revoir les codes qu'on soupçonne à juste titre de pouvoir poser problème dans l'avenir du fait de leur champ d'application justement.
Didier

Pourtant sur le Tuto de SilkyRoad, il ne parle pas de ce problème à venir... Surtout que l'on entend (lit) encore que de la définition du type de variable dépendra le temps de calcul et d'utilisation de cycle machine pour la programmation. Et quand tu as "obligation" d'utiliser Excel (tu rajoute de ta propre initiative le VBA) pour traiter un listing de 5.000 à 10.000 lignes (de A à H). Tu prie pour la mémoire...

Par contre, je ne sais pas si je peux ouvrir un fil pour un projet un peu lourd. J'ai déjà commencer à en parler dans deux sujets créés par mes soins, mais j'aimerai pouvoir faire un gros fil de discussion. Je ne trouve pas d'endroit pour poster des projets.

Enfin j'aimerai une aide pour simplifier le code car je ne vois pas forcément où je peux tailler à la hache dans le code.

[Ormonth]

Envoyé par Tweelight

Par contre, je ne sais pas si je peux ouvrir un fil pour un projet un peu lourd. J'ai déjà commencer à en parler dans deux sujets créés par mes soins, mais j'aimerai pouvoir faire un gros fil de discussion. Je ne trouve pas d'endroit pour poster des projets.

Il existe le forum Conception en sous forum Excel.

Mais il faut bien comprendre que nous sommes sur un forum d'entraide et pas sur un truc genre peut-on faire mon boulot

Donc non, on ne peut pas poster un code très long en demandant de faire le ménage ni une solution "clef en main".

Par contre en consultant les FAQ et Tutoriels, on apprendra à faire tout ça et on revient sur le forum sur des points précis et argumentés quand ça coince...

cf entre autres :
Programmer efficacement avec Excel en VBA
44 pages :

http://bidou.developpez.com/article/VBA/
233 pages :


cordialement,

Didier

[christoff916]

Envoyé par Tweelight

Bonjour,

Pour trouver la dernière ligne ayant un enregistrement tu peux utiliser:

Code :

Bah ça reviens à ce que j'ai fait avec ma variable DerniereLigneFeuille1

De quelle création? de la mise à jour (saisie sur cette ligne) ou la dernière sauvegarde?

Code :

Worksheets("nomdelafeuille").range("B4").value = Now

si je ne me trompe pas...
La date de création du fichier ouvert mais ça je devrais y arriver avec openFile.DateCreated

Envoyé par bbil

attention avec ce code seul Ligne courante et un long, DernierLigneFeuille1 est un variant , en VB lors des déclaration il faut répéter le type pour chaque variables : XIII. Déclaration de variables , même chose pour tes autres déclarations .
oki
ensuite tu utilise DernierLigneFeuille1 pour calculer la première ligne libre mais ensuite tu utilise LigneCourante que tu n'as pas calculé !

Bon j'ai supprimé ligne courante, par contre le but de DerniereLigneFeuille1 est de me renvoyer le numéro de la dernière ligne de mon tableau par la première !

@Tweelight : Les variables LigneCourante et DernierLigneFeuille1 doivent être des long car maintenant un classeur peu avoir plus de 65535 lignes.


si les lignes 1 à 4 sont vide il faut partir de la 5° ligne !

C'est tout à fait ça, utilisé pour les titres de mon tableau

Bon alors voilà mon nouveau code et j'ai une erreur d'execution '424' sur le worbook.open

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub Workbook_Open()
 
Dim Repertoire As String, Fichier As String
Dim Ligne As Long
Dim CLe As Workbook, CLs As Workbook
Dim FLe As Worksheet, FLs As Worksheet
Dim DerniereLigneFeuille1 As Long
 
Application.ScreenUpdating = False 'suppresion des messages d actualisation
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False 'décoche la confirmation auto des liens
 
    Set CLe = ThisWorkbook
    Set FLe = CLe.Worksheets("Feuille1")
 
Repertoire = "monchemin\quilestbeau\"
Fichier = Dir(Repertoire & "monfichieraouvrir.xls")
 
    Set CLs = Workbooks.Open(Repertoire & Fichier)
    Set FLs = CLs.Worksheets("Feuille1")
 
    DerniereLigneFeuille1 = FLs.Range("A5").End(xlDown).Row
 
    If FLe.Cells(2, 2).Value = "" Then
 
       FLs.Range("A" & DerniereLigneFeuille1).Copy = FLe.Cells(2, 2)
 
    End If
 
End Sub

[bbil]

est-tu sur de tes répertoire ...:
Ajoute ces quelques lignes:

Code :

1
2
3
4
5
6
7
8
 
(..)
Fichier = Dir(Repertoire & "monfichieraouvrir.xls")
if Fichier = "" then 
   MsgBox "Fichier Inexistant !!"
   exit sub
endif
(...)

[christoff916]

Raaaaaa il me met fichier inexistant, pourtant j'ai essayer de le déplacer pour avoir un chemin plus simple, j'ai copier le nom du fichier pour être sur le l'orthographe mais rien ni fait sinon pour moi mon code devrait fonctionner?