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 ?