christ77000
XLDnaute Occasionnel
Bonsoir à tous, il y a quelque que jours on m'a aidé pour cette macro. Et avec les testes sur mon fichier je me rend compte que si la cellule C30 est égale à vide le code plante. Je n'avais encore testé a vide. J'ai essayer en mettant 0, il me créer la feuille la je pense que c'est normal puisqu'il y a valeur. Mais comment faire pour la cellule vide. Mais elle n'est pas vraiment vide car j'ai lu que le faite de mettre en "C30 la formule =SI(C29="";"";CONCATENER(C29;"-";$A$2)) le résultat est vide visuellement. Sauf si je dis un ânerie ou mal compris. Merci pour votre aide.
VB:
Sub Creation_IT6_par_nom()
Dim DerLig As Long, i As Integer
DerLig = Feuil2.Range("D" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = DerLig To 29 Step -1
If TypeName(Evaluate("='[" & ThisWorkbook.Name & "]" & Feuil2.Cells(i, 4) & "'!A:A")) <> "Range" Then
Sheets("IT6").Copy after:=Feuil2
ActiveSheet.Name = Feuil2.Cells(i, 4)
End If
Next i
Application.ScreenUpdating = True
End Sub