Re : Valeur dans une céllule sous condition de valeur dans une autre colonne, même li
Bonjour laetitia90,
Ca fonctionne pas, la valeur de la 1ère cellule est 1 à chaque ligne créée.
J'ai trouvé une autre solution, qui n'est pas top, mais je vais faire avec...
J'ai mis ça à l'ouverture du fichier:
PREMLI = Sheets("BILAN BATIMENT").Range("LISTERENO").End(xlUp).Row
'Sécurité pour ne pas effacer si vide
If Range("LISTERENO").Rows.Count > 1 Then
Range("LISTERENO").Rows(PREMLI & ":" & Range("LISTERENO").Rows.Count).Delete
End If
Sheets("BILAN BATIMENT").Range("LISTERENO1L").FormulaLocal = "=(L(-1)) + 1"
Ce qui a pour effet d'éffacer le tableau et de mettre la formule "=(L(-1)) + 1" dans la 1ère case de le 2ème ligne du tableau (zone nommée "LISTERENO1L").
Malheureusement, je suis obligé de mettre 0 dans mon entête pour avoir 1 (et la suite) à la 2ème ligne. Quand on crée une nouvelle ligne, la formule se duplique et ça fonctionne plutôt bien.
Ca commence à déconner quand je supprime une ligne et quand le tableau est déplacé verticalement...
Je vais jamais en sortir !!!