Macro
bonjour je voudrais convertir ca en macro merci d'avance
pour i de 1 à nombre de page -1
tant que feuille (i) . cellule (27+j,2) non vide faire
si feuille (i). cellule (27+j,2)=dernierefeuille. cellule(1,2) alors
derniere feuille.cellule(2,2)=derniere feuille.cellule(2,2)+feuille(i).cellule(27+j,3)
j=j+1
pour i de 1 à nombre de page -1
tant que feuille (i) . cellule (27+j,2) non vide faire
si feuille (i). cellule (27+j,2)=dernierefeuille. cellule(1,2) alors
derniere feuille.cellule(2,2)=derniere feuille.cellule(2,2)+feuille(i).cellule(27+j,3)
j=j+1
3 réponses
-
Bonjour,
Alors comme ça sans vérification
Sub test() Dim J as integer For i = 1 to Sheets.Count J = 1 Do while Sheets(i).Cells(27 +j, 2).Value <> "" If Sheets(i).Cells(27 +j, 2).value = Sheets(Sheets.Count).Cells(1, 2).VAlue Then Sheets(Sheets.Count).Cells(2, 2) = Sheets(Sheets.Count).Cells(2, 2) + Sheets(i).Cells(27 +j, 3).value j = j+1 Loop Next
Je te laisse essayer et me redire.
-
merci mais je voudrais que le i parcourt jusqu'à la l'avant dernière feuille , je fais -1
-
il m'écrit boucle sans DO
-
-
@skk201Sub test()
Dim J as integer
For i = 1 to Sheets.Count -1
J = 1
Do while Sheets(i).Cells(27 +J, 2).Value <> ""
If Sheets(i).Cells(27 +J, 2).value = Sheets(Sheets.Count).Cells(1, 2).VAlue Then
Sheets(Sheets.Count).Cells(2, 2) = Sheets(Sheets.Count).Cells(2, 2) + Sheets(i).Cells(27 +j, 3).value
end if
J = J+1
Loop
Next
-
