Aide interpretation Macro

[Diane31000]

Bonjour,
Quelqu'un pourrait-il m'aider a comprendre cette macro:

Sub Examen_decembre_2010()
Sheets("Feuil1").Select
Cells.Clear
Sheets("Feuil1").Name = "Premiere Feuille"
A = 1
i = 1
Do While A = 1
Z = InputBox("Veuillez entrer un numero a 5 chiffres")
If Left(Z, 2) > 95 Then
Cells(i, 1) = Z
Cells(i, 1).Front.Italic = True
If Z = 98818 Then
MsgBox "KOUAOUA"
A = 0
End If
Else
Cells(i, 2) = Left(Z, 2)
Cells(i, 2).Front.ColorIndex = 2
End If
i = i + 1
Loop
Columns.AutoFit
Sheets("Feuil2").Select
For j = 1 To 5
Cells(j, j) = j ^ 2
Next j
Set W = Cells(1, 1).CurrentRegion
Y = W.Rows.Count
Cells(Y + 2.1) = Y
End Sub

Merci 1000 fois d'avance =))

 

[Softmama]

Re : Aide interpretation Macro

Bonsoir,

Sub Examen_decembre_2010()
Sheets("Feuil1").Select [COLOR="red"]'Sélectionne la Feuil1[/COLOR]
Cells.Clear [COLOR="red"]'Efface ttes les cellules[/COLOR]
Sheets("Feuil1").Name = "Premiere Feuille"[COLOR="red"] 'Renomme la Feuil1 en Première feuille[/COLOR]
A = 1 
i = 1
Do While A = 1 [COLOR="red"]'Fait la boucle tant que A=1[/COLOR]
    Z = InputBox("Veuillez entrer un numero a 5 chiffres") [COLOR="red"]'Z prend la valeur d'un num à 5 chiffres entré par l'utilisateur.[/COLOR]
    If Left(Z, 2) > 95 Then [COLOR="red"]'Si les 2 premiers chiffres de Z sont >95 alors[/COLOR]
Cells(i, 1) = Z [COLOR="red"]'La cellule placée ligne i, colonne A prend la valeur de Z[/COLOR]
Cells(i, 1).Front.Italic = True [COLOR="red"]'et est mise en italique[/COLOR]
If Z = 98818 Then  [COLOR="red"]'Si Z est = 98818 alors message: KOUAOUA et A=0[/COLOR]
MsgBox "KOUAOUA"
A = 0
End If
Else [COLOR="red"]'Sinon (Si z<=95)[/COLOR]
Cells(i, 2) = Left(Z, 2)  [COLOR="red"]'La cellule ligne i, colonne B = 2 premiers chiffres de Z[/COLOR]
Cells(i, 2).Font.ColorIndex = 2 [COLOR="red"]' et en Change la couleur de la police[/COLOR]
End If
i = i + 1 [COLOR="red"]'i est incrémenté[/COLOR]
Loop [COLOR="red"]'Refait la boucle tant que la condition (A=1) est vraie[/COLOR]
Columns.AutoFit [COLOR="red"]'Ajuste largeur des colonnes[/COLOR]
Sheets("Feuil2").Select [COLOR="red"]'Selectionne la feuil2[/COLOR]
For j = 1 To 5 [COLOR="red"]'Boucle de 1 à 5 fois[/COLOR]
Cells(j, j) = j ^ 2[COLOR="red"] 'Les cellules A1=1, B2=4, C3=9, D4=16, E5=25[/COLOR]
Next j 
Set W = Cells(1, 1).CurrentRegion [COLOR="red"]'W devient la plage courante de A1[/COLOR]
Y = W.Rows.Count [COLOR="red"]'Y devient le nbre de lignes utilisées par la plage W[/COLOR]
Cells(Y + 2.1) = Y 'Là je pense ça plante ! Essaie plutôt: Cells(Y+2,1)=Y 
End Sub

 

[Diane31000]

Re : Aide interpretation Macro

Merci beaucoup ^^