Macro
ceji1987
Messages postés
19
Statut
Membre
-
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
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.
-
-
-
Il manque le "end if" avant le Loop.
et oui c'est sheets.count -1
Bonne journée- Sub 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
-
