Feuil excel

[mannkael]

Bonjour,

Je voudrais à l'aide d'une macro, ajouter des feuilles excel supplémentaires en les nommant d'après le contenu d'une cellule située dans une liste "L" d'une feuille "F". Puis charger certaines cellules de cette nouvelle feuille avec des valeurs de cette liste "L".

D'autre part pour éviter les bugs, comment vérifier si la feuille à créer n'existe pas déjà????

Trop fort pour moi, si quelqu'un peut m'aider?? Merci d'avance.

 

[tototiti2008]

Re : Feuil excel

Bonjour mannkael,

oui, on peut surement t'aider, mais un fichier exemple et une description détaillée de ce que tu souhaite obtenir dans ce fichier nous aideraient beaucoup.

 

[jp14]

Re : Feuil excel

Bonjour
Salut tototiti2008

Un exemple de code

Sub ess()
Dim erreur As Byte
erreur = 1
On Error GoTo suite
Sheets("Feuil1").Range("a1").Select
If erreur = 0 Then
    MsgBox ("La feuille existe déjà")
Exit Sub
End If
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sheets("Feuil1").Range("a1")

Exit Sub
suite:
erreur = 0
Resume Next
End Sub

A tester

JP

 

[mannkael]

Re : Feuil excel

Merci JP.
C'est à moitié ok, car ma liste s'allogeant, il faut que je passe à la cellule A2, puis A3 etc....?
C'est quand même une bonne approche!

 

[tototiti2008]

Re : Feuil excel

Bonjour à tous,

c'est dans la dernière ligne qu'il faut vérifier ?
personnellement ma boule de cristal est cassée et mes compétences de lecture télépathiques sont un peu rouillées, alors...