Bonjour,
Je dois améliorer ce code en le rendant dynamique. C'est à dire que j'ai une base de données de saisies d'informations. Sauf que cela est fixe:j'aimerais que les modifications en cas d’ajout d’un équipement ou paramètre doivent être rapides à réaliser.
J'ai Excel 2007. Je vous transmis une partie de mon code, si vous voulez l'ensemble pour mieux comprendre.

Merci beaucoup pour votre aide

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
Range("A" & Last_Line + 1).Value = Label8.Caption
            Range("B" & Last_Line + 1).Value = Name_FT.Caption
            Range("C" & Last_Line + 1).Value = Site.Caption
            Range("D" & Last_Line + 1).Value = Building.Value
            Range("E" & Last_Line + 1).Value = Room.Value
            Range("F" & Last_Line + 1).Value = Plug_Id.Value
            Range("G" & Last_Line + 1).Value = Comments.Value
 
 
            Sheets("FT Report").Select
            Last_Line = Range("A1").End(xlDown).Row
 
            If Last_Line = 65536 Then
                Last_Line = 1
            End If
 
            Range("A" & Last_Line + 1).Value = Label8.Caption
            Range("B" & Last_Line + 1).Value = Name_FT.Caption
            Range("C" & Last_Line + 1).Value = Site.Caption
            Range("D" & Last_Line + 1).Value = Building.Value
            Range("E" & Last_Line + 1).Value = Room.Value
            Range("J" & Last_Line + 1).Value = Plug_Id.Value
            Range("M" & Last_Line + 1).Value = Comments.Value
 
            Call Reinit
Merci!
Luc