Discussion :

[mehdido04]

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 !

[78chris]

Bonjour

1. Sert à calculer où est la dernière cellule remplie de la colonne C : formulation un peu démodée puisqu'elle utilise 65536 qui est le nombre de lignes maximum jusqu'à la version 2003
2. Mets la police des cellules Ai:Hi en rouge (i étant déterminé par un code situé avant)
3. Détermine la plage à utiliser dans la feuille Configurateur à partir de la taille de la colonne C comme au 1.
   Parcourt cette plage de la ligne 15 à sa dernière ligne (Boucle While)
   Stocke les infos trouvées dans un tableau en mémoire (voir l'aide sur array)