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.

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
Je m'excuse pour l'abscence d'accents mais etant a l'etranger je n'en ai pas sur mon clavier.