Bonjour,
J'ai une liste de de machines dans une feuille et j'aimerai une macro qui me crée automatique les feuilles comportant les noms présent dans cette liste. Après plusieurs recherche j'ai adapté une macro qui est la suivant :
Sub CREER()
Dim Cellule As Range
Dim AireACopier As Range
Dim ListeACopier As Range
Set ListeACopier = Sheets("Feuil1").Range("A2:A20")
For Each Cellule In ListeACopier
Set AireACopier = Sheets("Feuil1").Range("A1:I1,A" & Cellule.Row & ":I" & Cellule.Row)
AireACopier.Copy
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Cells(1, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
ActiveSheet.Name = Cellule
Next Cellule
Set AireACopier = Nothing
Set ListeACopier = Nothing
End Sub
Jusque là pas de problème sauf... que dans ma liste, j'ai des noms dépassant 31 caractères et ça coince...
Comment pourrai-je contourner le problème ?
Merci d'avance.
Axel