Macro
ceji1987
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
3 réponses
Bonjour,
Alors comme ça sans vérification
Je te laisse essayer et me redire.
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.
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
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