Salut,
J'essaie de paramétrer une impression d'un tableau en fonction de la dernière cellule renseigné (le tableau est déjà prédéfini avec bordure, une impression classique imprime tout le tableau, mais je veux que jusqu'à la dernière ligne renseignée)
Je n'arrive pas à insérer une formule (qui indique dernière position de la cellule remplie) pour remplacer range("64000")
J'ai deux feuille avec deux formule différentes qui indique cette position max
Pour ça j'ai la formule excel
la commande exécution indique/convertit en vda
et pour une autre feuille
le +8 car j'ai huit ligne avant le début du tableau
C'est mon 1er jour e VDA je suis nul et j'y comprend pas grand chose ^^
J'essaie de paramétrer une impression d'un tableau en fonction de la dernière cellule renseigné (le tableau est déjà prédéfini avec bordure, une impression classique imprime tout le tableau, mais je veux que jusqu'à la dernière ligne renseignée)
Code:
Sub impression()
With ActiveSheet
.PageSetup.PrintArea = .Range("A1:L" & _
.Range("a64000").End(xlUp).Row).Address
.PrintOut
End With
End Sub
Je n'arrive pas à insérer une formule (qui indique dernière position de la cellule remplie) pour remplacer range("64000")
J'ai deux feuille avec deux formule différentes qui indique cette position max
Pour ça j'ai la formule excel
Code:
={MAX(SI(ESTVIDE(A:L);0;LIGNE(A:L)))}
Code:
Debug.Print Range("p13").Formula
donne
=CONCATENATE("a"&MAX(IF(ISBLANK(A:L),0,ROW(A:L))))
et pour une autre feuille
Code:
=CONCATENER("A"&MAX(bilan!$M$5:$M$2996)+8)
Code:
convertit en vda en
=CONCATENATE("A"&MAX(bilan!$M$5:$M$2996)+8)
C'est mon 1er jour e VDA je suis nul et j'y comprend pas grand chose ^^