ca veut dire quoi ?

[TitOoN]

bonjour a toutes et a tous,

 

quelqu'un pourrai me dire ce que veut dire ce programme ? SVP je ne maitrise pas le VB.

d'avance merci.

 

TitOoN :p

 

 

 

 

 

Sub CouleursTaches()

'

' CouleursTaches Macro

' Macro enregistrée le 12/09/2004 par V.LELARGE

'

 

'

Dim ii As Integer

Dim jj As Integer

 

For jj = 1 To 100

For ii = 6 To 500

If Worksheets("Codes").Cells(ii, 3).Interior.ColorIndex = jj Then

Worksheets("Analyse pour graph - grue").Cells(ii, 2).Interior.ColorIndex = jj

Worksheets("Analyse pour graph - grue").Cells(ii, 1).Interior.ColorIndex = jj

Worksheets("Analyse pour graph - grue").Cells(ii, 3).Interior.ColorIndex = jj

End If

Next ii

Next jj

 

 

End Sub

 

 

 

 

 

PS: ceci est tiré d'une feuille excel .

[sechanbask]

Sub CouleursTaches()
'début de la précédure Sub CouleursTaches()
' CouleursTaches Macro
' Macro enregistrée le 12/09/2004 par V.LELARGE


'déclarations des variables
Dim ii As Integer
Dim jj As Integer

'initialisations des incrémentations de boucles
For jj = 1 To 100
For ii = 6 To 500
'si la couleur de la cellule ii,3 de la feuille "Codes"
If Worksheets("Codes").Cells(ii, 3).Interior.ColorIndex = jj Then
'alors la feuille dont le nom est "Analyse pour graph - grue" la couleur de la cellule ii,2 sera jj
Worksheets("Analyse pour graph - grue").Cells(ii, 2).Interior.ColorIndex = jj
Worksheets("Analyse pour graph - grue").Cells(ii, 1).Interior.ColorIndex = jj
Worksheets("Analyse pour graph - grue").Cells(ii, 3).Interior.ColorIndex = jj
End If
'prochain ii, prochain jj
Next ii
Next jj

'fin de la précédure
End Sub

si tu as besoin d'aide...

[TitOoN]

impec merci bcp... désolé du rétard pour le remerciement .

 

je vais regarder le VB.

 

merci

 

TitOoN :P

[sechanbask]

si ça te convient, indique que le sujet est résolu en cliquant sur l'ampoule en dessous de ton premier message...