XL 2013 derniere cellule d'une colonne

PIERRE02

XLDnaute Nouveau
Bonjour
Comment sur un tableau sélectionner en VBA la dernière cellule non vide d'une colonne( excolonne B )et récupérer le contenu de cette cellule pour nommer un nouvel onglet.
merci de votre aide
 

vgendron

XLDnaute Barbatruc
Bonjour
avec ceci
VB:
Sub ajoutfeuille()
Nomfeuille = Range("B" & Rows.Count).End(xlUp)
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nomfeuille
End Sub
 

PIERRE02

XLDnaute Nouveau
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"
 

Fichiers joints

vgendron

XLDnaute Barbatruc
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
 

Discussions similaires


Haut Bas