Macro somme aide

Bonjour tout le monde,

Je recherche a crée une macro pour automatiser un fichier. pour qu'elle puisse marché je voudrais que la macro fasse :

dans la feuille EXPORT qu'elle recherche les spécilités EN COLONNE C , et faire la somme des spécilitées (AVI, cab, mec....) dans le tableau recap de la feuille suivi.

dans la feuille" export" je doit ignorer ; BT, ordo ... et les lignes vides. Les seules sommes a faire sont celle récapituler dans le tableau en feuille 'suivi'.

Sachant que les spécialitées(CAB,AVI,MEC....) dans la feuille export n'est pas fixe en ligne , il peut y en avoir plus ou moins , il faudrais une une fonction while qui réalise la somme de la spécilitées(dans la feuille suivi) autant qu'il a de spé dans la feuille "export".

Dans le fichier joint, j'ai réalisé l'exemple pour que se soit claire et concret.

J'ai essayé de réaliser une macro mais sans succées, merci d'avance si vous pouvez d'aidez

Bonjour

C'est quoi ces tableaux plein de trous... Et cette version Excel inexistante XUF-84te ?

une simple formule suffit : en E10 à étirer en dessous après avoir nettoyer l'espace présent à la fin de NET

=SOMME.SI.ENS('EXPORT '!$I$3:$I$83;'EXPORT '!$C$3:$C$83;SUIVI!C10)

Tu peux aussi le faire par Tableau croisé dynamique

Bonjour,

Nul besoin d'une macro, une simple formule à placer en E10 et à tirer vers le bas

=SOMME.SI('EXPORT '!C:C;SUIVI!C10;'EXPORT '!I:I)

Bonjour,

Merci pour vos réponse.

Effectivement une formule sufit ceci-dit, je ne sais pas si dans ma feuille export si les spécialités viennent a varier (plus de CAB, MEC..) la formule marchera toujours?

Et je voudrais aussi que lorsque la feuille export est supprimer les valeurs du tableau soit conservées en feuille suivi.. :(

merci d'avance

Re,

Si ton export et sur un onglet et que tu récupères les sommes sur l'autre onglet comme ton exemple, le calcul est automatique puis ma formule prend en compte l'intégralité des deux colonnes

Bonjour à tous,

Si tu préfères néanmoins l'avoir sous forme de macro, voici un bout de code qui devrait faire l'affaire :

Sub somme()

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
        .DisplayStatusBar = False
    End With

    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim dl&, i&, j#, cab#, avi#, cel#, mec#, wir#, chd#, net#, pnt#
    Set ws1 = Worksheets("EXPORT")
    Set ws2 = Worksheets("SUIVI")
    dl = ws1.Cells(Application.Rows.Count, 9).End(xlUp).Row

    For i = dl To 3 Step -1
        If ws1.Cells(i, 3) Like "CAB" Then
            j = ws1.Range("I" & i).Value
            cab = cab + j
        ElseIf ws1.Cells(i, 3) Like "AVI" Then
            j = ws1.Range("I" & i).Value
            avi = avi + j
        ElseIf ws1.Cells(i, 3) Like "CEL" Then
            j = ws1.Range("I" & i).Value
            cel = cel + j
        ElseIf ws1.Cells(i, 3) Like "MEC" Then
            j = ws1.Range("I" & i).Value
            mec = mec + j
        ElseIf ws1.Cells(i, 3) Like "WIR" Then
            j = ws1.Range("I" & i).Value
            wir = wir + j
        ElseIf ws1.Cells(i, 3) Like "CHD" Then
            j = ws1.Range("I" & i).Value
            chd = chd + j
        ElseIf ws1.Cells(i, 3) Like "NET" Then
            j = ws1.Range("I" & i).Value
            net = net + j
        ElseIf ws1.Cells(i, 3) Like "PNT" Then
            j = ws1.Range("I" & i).Value
            pnt = pnt + j
        End If
    Next i

    With ws2
        .Range("E10").Value = cab
        .Range("E11").Value = avi
        .Range("E12").Value = cel
        .Range("E13").Value = mec
        .Range("E14").Value = wir
        .Range("E15").Value = chd
        .Range("E16").Value = net
        .Range("E17").Value = pnt
    End With

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
        .DisplayStatusBar = True
    End With

End Sub

Cordialement,

LSK

RE

riri180299 a écrit :

Effectivement une formule sufit ceci-dit, je ne sais pas si dans ma feuille export si les spécialités viennent a varier (plus de CAB, MEC..) la formule marchera toujours?

Merci pour vos réponses!