VBA création Macro pour tirer des formules tanque que cellule est vraie

Bonjour à tous ,

cela fait plusieurs tentative de ma part sans résultat

je recherche à tirer les formule des cellule D55 à D60 sur la droite tanque que la valeur en cellule Ligne 9 est vraie

voici un screen

Bonjour voici une solution

Sub MacroEtendreFormule()

    Range("D55:D60").Select
    Application.CutCopyMode = False
    Selection.Copy
    i = 0
    fin = False
    While Not fin
        i = i + 1
        Select Case Range("D9").Offset(0, i).Value
        Case True
            Range("D55:D60").Offset(0, i).Select
            Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
        Case False
            fin = True
        Case Else
            fin = True
        End Select
    Wend
End Sub

Re merci de m'apporter ton aide

je viens de l'essaie mais rien ne ce passe, seul la range à été copier

En PJ un exemple qui reprend normalement votre besoin, en particulier vous dites

Tant que la valeur en cellule Ligne 9 est vraie

Que j'ai interprété comme, arrêt dès que Ligne 9 = Faux

dans l'exemple que je fournis :

- colonne C : des valeurs pour alimenter la formule en D

- colonne D : la formule à recopier

- Ligne 9 : une formule pour avoir vrai ou faux

après exécution de la macro MacroEtendreFormule, le tableau (en jaune) est bien mis à jour : la formule est propagé jusqu'à la colonne F (G9 étant à FAUX)

si vous devez continuer à étendre après avoir rencontré un FAUX, remplacer le code par celui-ci

Sub MacroEtendreFormule()

    Range("D55:D60").Select
    Application.CutCopyMode = False
    Selection.Copy
    i = 0
    fin = False
    While Not fin
        i = i + 1
        Select Case Range("D9").Offset(0, i).Value
        Case ""
            fin = True
        Case True
            Range("D55:D60").Offset(0, i).Select
            Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
        Case False
            fin = False
        Case Else
            fin = True
        End Select
    Wend
End Sub

je viens de comprendre ,

la ligne que je veux tester comme pleine est celle de la dénomination

je pense que vous avez pris celle avec les vraie et faux

autant pour moi le screen ne permettais pas de le voir

c'est pour cela que la macro ne marche pas ...

il y à t'il un moyen de tester jusqu'à si cellule vide?

voir réponse précédente

merci

N'oubliez pas de valider la solution avec la coche V en haut à droite de la réponse qui a apporté la solution.