Macro
Fermé
ceji1987
Messages postés
18
Date d'inscription
jeudi 5 juin 2014
Statut
Membre
Dernière intervention
16 février 2015
-
29 juin 2014 à 18:14
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 2 juil. 2014 à 07:31
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 2 juil. 2014 à 07:31
A voir également:
- Macro
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro Recorder - Télécharger - Divers Utilitaires
3 réponses
skk201
Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
54
1 juil. 2014 à 11:17
1 juil. 2014 à 11:17
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.
il m'écrit boucle sans DO
skk201
Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
54
2 juil. 2014 à 07:29
2 juil. 2014 à 07:29
Il manque le "end if" avant le Loop.
et oui c'est sheets.count -1
Bonne journée
et oui c'est sheets.count -1
Bonne journée
skk201
Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
54
>
skk201
Messages postés
938
Date d'inscription
jeudi 11 septembre 2008
Statut
Membre
Dernière intervention
16 octobre 2016
2 juil. 2014 à 07:31
2 juil. 2014 à 07:31
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
