Bonjour,
J'aimerai savoir la signification de ces codes en vba svp :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
var = Worksheets("Feuil1").Cells(65536, 3).End(xlUp).Row
et

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Worksheets(“feuil1”).Range("A" & i & ":H" & i).Font.Color = RGB(255, 0, 0)
et


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
 
Dim Projets_plr() As String
Dim x, y, z, nbline_projets_plr As Integer
Flag_trouve = False
x = 15
y = 0
nbline_projets_plr = ThisWorkbook.Worksheets("Configurateur").Cells(65536, 3).End(xlUp).Row
 
While x <= nbline_projets_plr
    If ThisWorkbook.Worksheets("Configurateur").Cells(x, 3) <> "" Then
        ReDim Preserve Projets_plr(0 To y)
        Projets_plr(y) =    ThisWorkbook.Worksheets("Configurateur").Cells(x, 3)
        y = y + 1
    End If
    x = x + 1
Wend
Merci beaucoup !