Bonjour,
J'ai le code suivant qui fonctionne tres bien dans la feuille de calcul (Datenbasis IST-Stunden) ou j'en ai besoin. Seulement, comme j'ai plusieurs macro a appliquer, j'aimerais creer une interface a part (sur une autre feuille) d'ou je pourrais lancer toutes mes macros.
Pour certaines j'ai reussi a modifier le code, mais pas pour celle la, car il y a des zones que je ne comprend pas completement.
Je m'excuse pour l'abscence d'accents mais etant a l'etranger je n'en ai pas sur mon clavier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Sub SommeTest() Dim Datenbasis As Worksheet Dim cmpt As Long, c As Range, tcmpt As Long Set Datenbasis = Worksheets("Datenbasis IST-Stunden") For Each c In Datenbasis.Range("F2:F" & Datenbasis.Cells(Rows.Count, 6).End(xlUp).Row + 1) If Trim(UCase(c.Value)) Like "*ERGEBNIS*" Then c.Offset(0, 2) = cmpt tcmpt = tcmpt + cmpt cmpt = 0 ElseIf Trim(UCase(c.Value)) Like "*GESAMT*" Then c.Offset(0, 2) = tcmpt Else cmpt = cmpt + c.Offset(0, 2) End If Next End Sub
Partager