Macro selon condition sur une autre feuille

Bonsoir à tous,

J'ai un petit souci avec Excel, et les macros, j'aimerai que mes conditions écrites sur la feuille "Données" agissement sur la mise en dimension (suppression de lignes et de colonnes) du tableau de la feuille "Tableau".

En clair, j'ai plusieurs conditions par exemple si en A2 de la feuille "Données" il est écrit le chiffre 3, alors la macro supprime les colonnes de H à J dans la feuille "Tableau". Et ainsi de suite avec d'autres conditions explicitées dans la feuille "Conditions" du fichier excel joint.

J'ai fait un exemple à la main ("Tableau_exemple") qui est censé être le résultats voulu après macro selon les conditions écrite sur la feuille "Données_exemple".

La feuille qui "subit" la macro est la feuille "Tableau"

J'espère que mes explications sont assez clairs

Merci beaucoup !

Quik

Bonjour,

voici un début de piste,

Bonjour,

A tester :

Sub ModifTableau()

    Dim FeDonnees As Worksheet
    Dim FeTableau As Worksheet
    Dim Tbl
    Dim I As Integer

    Tbl = Array("9:11", "12:14", "15:16", "17:20", "21:24", "25:29", "30:38", "39:44", "45:55", "56:58", "59:59")

    Set FeDonnees = Worksheets("Données")
    Set FeTableau = Worksheets("Tableau")

    With FeDonnees

        Select Case .Range("A2").Value

            Case 1: FeTableau.Range("F:J").Delete
            Case 2: FeTableau.Range("G:J").Delete
            Case 3: FeTableau.Range("H:J").Delete
            Case 4: FeTableau.Range("I:J").Delete
            Case 5: FeTableau.Range("J").Delete

        End Select

        For I = 12 To 2 Step -1

            If .Cells(2, I).Value = "n" Then FeTableau.Range(Tbl(I - 2)).Delete

        Next I

    End With

End Sub

Bonsoir à tous !

Merci Theze et sabV pour vos solutions qui résolvent mon problème !!

Merci beaucoup pour votre aide

Bonne soirée

Quik