Discussion :

[chenev22]

Bonjour

Je but sur un point.
Je dois à un moment donné connaitre le nombre de lignes de mon tableau afin de pouvoir réutiliser cette valeur plus tard

J'ai donc fait :

Code :

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

ligne = ActiveSheet.UsedRange.Rows.Count

Cependant après ajout de lignes, au moment ou je veux récupérer la valeur de ligne, celle ci a été incrémentée

Donc ma question comment garder fixe la valeur du nombre de lignes à un moment donné

Merci d'avance

[Philippe Tulliez]

Bonjour,
La ligne que tu affiches n'est pas suffisante pour t'apporter une réponse car tout dépend à quel moment dans ton code tu initialises cette variable ligne

[chenev22]

Voila le code

J'aimerais en fait pouvoir reselectionner les dernieres lignes insérées par la boucle while au niveau du 2eme MsgBox (ligne)

Code :

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

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
32
33
34
35
36
37
Sub CreationSynthese()
 
' determination du nombre de ligne
 
ligne = ActiveSheet.UsedRange.Rows.Count
 
MsgBox (ligne)
 
 
'boucle de recherche
ChDrive "C"
ChDir "C:\Users\lascap_ch\desktop\excel\"
fichier = Dir("C:\Users\lascap_ch\desktop\excel\*.xlsx")
While Len(fichier) > 0
 ' Ouverture de dossier.xlsx :
Workbooks.Open fichier
'copie des cellules
 
Sheets("Ne pas modifier").Select
    Range("B3:F3").Select
    Selection.Copy
    Windows("recap.xlsm").Activate
    AvantDerniereLigne1 = ActiveSheet.UsedRange.Rows.Count + 1
    Range("B" & AvantDerniereLigne1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
Workbooks(fichier).Save
Workbooks(fichier).Close
fichier = Dir
Wend
 
 
MsgBox (ligne)
 
End Sub

[unparia]

Bonjour
Usedrange inclut tout ce qui :
- contient éventuellement des formules
- contient des cellules formatées
UsedRange ne permet dopnc pas de déterminer avec assurance la dernière ligne non vide .

Je vois que ta dernière ligne réelle de données ajoutées est révélée par ce que tu as en colonne B.
Utilise-la donc :

Code :

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

derligneremplie = Range("B" & rows.count).end(xlup).row

[Philippe Tulliez]

Bonjour,
Je ne peux qu'abonder dans le sens d'Unparia que je salue.
Je constate régulièrement que l'on propose la propriété UsedRange de l'objet WorkSheet pour connaître une plage de données alors que si l'on respecte la règle d'or de la gestion des données dans Excel à savoir que doivent être remplie les cellules de la première ligne (étiquette de colonnes) et première colonne, la propriété CurrentRegion de l'objet Range est bien plus sûre.
J'ajouterais qu'il est encore plus intéressant d'utiliser les tableaux et dans ce cas on peut utiliser la propriété DataBodyRange de l'objet ListObjet.