Bonjour
Etant novice et n'ayant rien trouvé sur le forum associé à ma demande, j'aimerai savoir dans mon cas comment utiliser le code name pour appeler la feuille dans ma macro
La macro fonctionne très bien...Son est de sauvegarder une partie de la colonne C de la feuille "Saisie" dans la dernière colonne vide de l'onglet "C1"
J'aimerai gérer les feuille par le code name en cas de modif de nom de l'onglet dans le classeur
Sub C1()
If IsEmpty(Cells(2, 2)) = True Then
If MsgBox("Vous n'avez pas saisi d'OF en cellule 'B2' !", vbOKOnly + vbInformation, "Transfert") = vbOK Then
Exit Sub
End If
End If
If IsEmpty(Cells(3, 12)) = True Then
Exit Sub
End If
Sheets("C1").UnProtect
Dim WsS As Worksheet
Dim WsC As Worksheet
Set WsS = Worksheets("Saisie"): Set WsC = Worksheets("C1")
WsS.Range("C10:C4029").Copy WsC.Cells(10, WsC.Cells(10, Columns.Count).End(xlToLeft).Column + 1)
Set WsS = Nothing: Set WsC = Nothing
Sheets("C1").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowDeletingColumns:=True, AllowDeletingRows:=True
End Sub
Merci pour l'aide