XL 2013 derniere cellule d'une colonne

vgendron

XLDnaute Barbatruc

• 18 Juillet 2018

• #2

Bonjour
avec ceci

VB:

Sub ajoutfeuille()
Nomfeuille = Range("B" & Rows.Count).End(xlUp)
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nomfeuille
End Sub

 

Vote positif 0 Vote négatif

P

PIERRE02

XLDnaute Nouveau

• 18 Juillet 2018

• #3

merci de ta réponse rapide mais sauf erreur de ma part cela ne fonctionne pas
je joins un fichier pour mieux expliquer ce que je veux
j'ai besoin que la dernière cellule de la colonne B crée une feuille qui aurait pour nom "formule 10"

 

Pièces jointes

• Classeur1.xlsx

  19.2 KB · Affichages: 33

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 18 Juillet 2018

• #4

Cela fonctionne à condition que le nom récupéré ne soit pas un espace....
tes cellules B13 à B20 contiennent un espace...

pour t'en convaincre

VB:

Sub ajoutfeuille()
NomFeuille = Range("B" & Rows.Count).End(xlUp)
MsgBox "la feuille qui va etre créée s'appelle:""" & NomFeuille & """"
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
End Sub

 

Vote positif 0 Vote négatif

P

PIERRE02

XLDnaute Nouveau

• 18 Juillet 2018

• #5

Exact
merci beaucoup
bonne journée

 

Vote positif 0 Vote négatif