Etendre une formule sur une plage qui évolue

Sylvain a écrit :

C'est trop bon !

Je me mets un peu à Excel pour cause d'arrêt de travail pour une jambe cassée.

Et grâce aux forums j'arrive à comprendre plein de trucs !

Là je cherchais à "étendre" une formule sur une plage, jusqu'à la dernière ligne d'une base de données à côté, et la dernière colonne de la ligne de titre du tableau.

J'arrivais à détecter les cellules "extrêmes", mais pas à me servir de leur adresse pour ma macro.

Maintenant grâce à Nad-Dan ça donne ça :

Dim l As Integer

Dim c As String

l = Range("F2").End(xlDown).Row

c = Chr(Range("H1").End(xlToRight).Column + 64) (astuce trouvée sur un autre site pour récupérer la lettre de la colonne, avec son code ASCII)

Range("H2").Select

ActiveCell.FormulaLocal = "=SI(H$1<$E2;0;SI(H$1>$F2;0;1))" (je veux que des 0 ou des 1 dans mon tableau)

Selection.AutoFill Destination:=Range("H2", Range("H" & l)), Type:=xlFillValues

Range("H2", Range("H" & l)).Select

Selection.AutoFill Destination:=Range("H2", Range(c & l)), Type:=xlFillValues

Voilà y'avait peut-être plus simple, et je le découvrirais peut-être un jour, mais en tout cas ça marche !

Merci à tous ceux qui aident les "blaireaux" comme moi à résoudre leurs problèmes.

(voir ce topic)

Merde !! J'ai parlé trop vite parce que j'avais fait un petit tableau pour ma faciliter la vie...

Mais dés que je dépasse la colonne Z, l'astuce du code ASCII ne marche plus.... !

Des solutions ?

Bonjour,

une solution parmi d'autres...

Dim l As Integer
Dim c As String
l = Range("F2").End(xlDown).Row
c = Split(Range("H1").End(xlToRight).Address, "$")(1)

With Range("H2")
    .FormulaLocal = "=SI(H$1<$E2;0;SI(H$1>$F2;0;1))"
    .AutoFill Destination:=Range("H2", Range("H" & l)), Type:=xlFillValues
    With .Resize(l - 1, 1)
        .AutoFill Destination:=Range("H2", Range(c & l)), Type:=xlFillValues
    End With
End With

C'est vraiment trop bon Excel !!

Merci Félix ! J'aime les solutions parmi d'autres, quand elles marchent même si je comprends pas comment...

J'essayerai de me faire expliquer par mon frangin ce w-e

Merci encore, problème [Résolu]