zesuila
XLDnaute Occasionnel
bonjour le forum
dans mon projet j'ai besoin de créer des onglets avec les valeurs de 3 cellules
par exemple (mais cela peut être n'importe ou dans le classeur)
en b2 j'ai "oulah"
en b3 j'ai "que c'est"
en b4 j'ai "dur"
ce qui donnerait en cliquant sur un petit bouton macro la creation d'un nouvel onglet "oulah que c'est dur"
une gentille âme (comme d'habitude) m'a trouvé le code pour une valeur mais est ce possible avec 3 valeurs (qui généralement se suivent dans la colonne comme dans mon exemple)
voici le code de ce âme charitable (dont malheureusement j'ai oublié le nom ! désolé)
Dim NFeuil As String
If ActiveCell.Value <> "" Then
NFeuil = ActiveCell.Value
If FeuilExist(NFeuil) Then
Sheets(NFeuil).Activate
Exit Sub
Else
Sheets("hopla").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = NFeuil
ActiveSheet.Range("B2").Value = NFeuil
End If
End If
merci
dans mon projet j'ai besoin de créer des onglets avec les valeurs de 3 cellules
par exemple (mais cela peut être n'importe ou dans le classeur)
en b2 j'ai "oulah"
en b3 j'ai "que c'est"
en b4 j'ai "dur"
ce qui donnerait en cliquant sur un petit bouton macro la creation d'un nouvel onglet "oulah que c'est dur"
une gentille âme (comme d'habitude) m'a trouvé le code pour une valeur mais est ce possible avec 3 valeurs (qui généralement se suivent dans la colonne comme dans mon exemple)
voici le code de ce âme charitable (dont malheureusement j'ai oublié le nom ! désolé)
Dim NFeuil As String
If ActiveCell.Value <> "" Then
NFeuil = ActiveCell.Value
If FeuilExist(NFeuil) Then
Sheets(NFeuil).Activate
Exit Sub
Else
Sheets("hopla").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = NFeuil
ActiveSheet.Range("B2").Value = NFeuil
End If
End If
merci