Aide macro qui fait le même calcule sur toutes les feuilles

bonsoir,

j'ai besoin de votre aide pour programmer une macro sous VBA qui fait le même calcule sur toutes les 6 feuilles.

Le classeur contient 6 feuilles contenant 1 tableaux identiques sur des secteurs géographiques différents.

Je veux programmer une macro qui calcule et donne les résultats de ce tableau dans toutes les 6 feuilles.

cordialement

Bonjour Zack10

Je viens de télécharger ton XLS !

Les tableaux sont ils obligatoirement situé à des emplacements différents (en feuil1 A1, en feuil2 en A7, en feuil3 en D8...) ?

Ce serait plus facile pour la macro si l'on pouvait tous les mettre dans les coordonnées de cellules !

bonsoir, en fait c'est ça le but l'exercice c'est de calculer le même tableau situé dans différents emplacements.

Cordialement

Ok !

Mais ça va être plus long à envisager...

D'autant que mon Excel vient de se planter !

ah d'accord, désolé si c'étais moi la cause.

cordialement

(Ah ! je croyais )

Bref le nombre de feuilles est il fixe au moins ?

salut c'est fixe a 6 feuilles.

cordialement

Bonjour Zack10

Voilà !

La seule condition : la feuille 7 n'est pas disponible, j'y ai mis un tableau

Ce tableau sert à renseigner les coordonnées de "tes" tableaux copiés (un peu) n'importe où

Lorsque tu ajoutes une (ou plus) feuille tu dois donc saisir SES coordonnées dans MON tableau

cool merci ça marche parfaitement ,

Bonjour

Parfait donc !

De rien

Bonjour,

Bonjour Andrea73,

Avec un peu de retard (un petit merci à Windows 10).

Une proposition avec tableaux, qui permet de s'affranchir du nombre de lignes, des formats nombres, etc...

Le code est donc minimisé.

Cdlt.

Option Explicit

Dim ws As Worksheet

Public Sub RAZ()
' CTRL + MAJ + x
Dim col As Long

    Application.ScreenUpdating = False

    For Each ws In ActiveWorkbook.Worksheets
        For col = 5 To 8
            ws.ListObjects(1).ListColumns(col).DataBodyRange.ClearContents
        Next col
    Next ws

End Sub

Public Sub Calcul()
' CTRL + MAJ + w
    Application.ScreenUpdating = False
    ' adaptation aisée si plusieurs tableaux au sein d'une même feuille
    For Each ws In ActiveWorkbook.Worksheets
        With ws.ListObjects(1)
            .ListColumns(5).DataBodyRange.Cells(1).FormulaR1C1 = "=[@[Prix d''achat HT]]+[@[ Frais]]"
            .ListColumns(6).DataBodyRange.Cells(1).FormulaR1C1 = "=[@[Prix de revient]]*(1+[@[ Marge (%)]])"
            .ListColumns(7).DataBodyRange.Cells(1).FormulaR1C1 = "=[@[Prix de vente HT]]*(1+[@[Taux TVA]])"
            .ListColumns(8).DataBodyRange.Cells(1).FormulaR1C1 = "=[@[Prix de vente HT]]-[@[Prix de revient]]"
            ' on efface les formules (à voir si nécessaire)
            .DataBodyRange.Value = .DataBodyRange.Value
            ' pas de bouton de filtre dans le tableau
            .ShowAutoFilterDropDown = False
            ' ajustement des largeurs de colonnes
            .Range.EntireColumn.AutoFit
        End With
    Next

End Sub

Bonjour tout le monde,

petite contribution de ma part également.

Bonne journée.

Cordialement.

Bonjour, merci pour vos réponses et vos aides .

Cordialement