Metabaron
XLDnaute Nouveau
Bonjour,
J'ai une macro qui me permet de generer et nommer des onglets en fonction du contenu de 2 colonnes :
-------------------------------------------
Dim i, j, m, n, p As Integer
Dim onglet, nom1, nom2 As String
'i : Plage de lignes de la feuille résultats pour ajout onglets
i = 18
'on va créer un nouvel onglet par ligne possedant une ref
Do While Sheets("Résultats").Cells(i, 4) <> ""
nom1 = Sheets("Résultats").Cells(i, 5)
nom2 = Sheets("Résultats").Cells(i, 4)
onglet = nom1 & nom2
'Créer les nouvelles feuilles à partir d'une feuille modele
Sheets("MODEL_PRELEV").Select
Sheets("MODEL_PRELEV").Copy Before:=Sheets("MODEL_PRELEV")
Sheets("MODEL_PRELEV (2)").Select
Sheets("MODEL_PRELEV (2)").Name = onglet
Jusque là ca marche bien...
mais si le "nom1" est trop long ca devient imbuvable..
donc j'ai voulu faire ca :
nom1 = gauche(Sheets("Résultats").Cells(i, 5);3) --> bref garder que les 3 premiers caracteres de ma cellule..
....et ca marche pas, il refuse la fonction quand le la tape, au niveau du ";" .. c'est surement tout bête, j'ai oublié un truc ? pourtant c'est pas violant comme fonction..
merci d'avance
J'ai une macro qui me permet de generer et nommer des onglets en fonction du contenu de 2 colonnes :
-------------------------------------------
Dim i, j, m, n, p As Integer
Dim onglet, nom1, nom2 As String
'i : Plage de lignes de la feuille résultats pour ajout onglets
i = 18
'on va créer un nouvel onglet par ligne possedant une ref
Do While Sheets("Résultats").Cells(i, 4) <> ""
nom1 = Sheets("Résultats").Cells(i, 5)
nom2 = Sheets("Résultats").Cells(i, 4)
onglet = nom1 & nom2
'Créer les nouvelles feuilles à partir d'une feuille modele
Sheets("MODEL_PRELEV").Select
Sheets("MODEL_PRELEV").Copy Before:=Sheets("MODEL_PRELEV")
Sheets("MODEL_PRELEV (2)").Select
Sheets("MODEL_PRELEV (2)").Name = onglet
Jusque là ca marche bien...
mais si le "nom1" est trop long ca devient imbuvable..
donc j'ai voulu faire ca :
nom1 = gauche(Sheets("Résultats").Cells(i, 5);3) --> bref garder que les 3 premiers caracteres de ma cellule..
....et ca marche pas, il refuse la fonction quand le la tape, au niveau du ";" .. c'est surement tout bête, j'ai oublié un truc ? pourtant c'est pas violant comme fonction..
merci d'avance