Microsoft 365 renommer feuille excel

Ziyaa

XLDnaute Nouveau
Bonjour à tous,

Je me tourne vers vous pour un problème de renommage de feuille. J'ai une macro qui crée une nouvelle feuille à la demande, renseigne un certain nombre de champ et je voudrais qu'à la fin du processus elle renomme ma feuille.

Une version précédente fonctionnait à merveille et depuis que je l'ai modifiée Excel me renvoie le message d'erreur qui est en pièce jointe et le débogage me ramène à la deuxième capture d'écran.

Mon code est écrit de cette façon :
VB:
compteur = 0
ligne = 3
colonne = 3
vide = 0

 Sheets("Liste Visites").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, -1).Range("A1").Select
    num = ActiveCell.Value
    If ActiveCell.Offset(0, 2).Range("A1").Value = "IC" Then
        Sheets("IC (B)").Copy After:=Sheets(Sheets.Count)
        Range("H4:J6").Value = num
        ActiveSheet.Shapes("Check Box 43").Select
            With Selection
            .Value = xlOn
            End With
        ActiveSheet.Name = "IC" & num

Si quelqu'un à des réponses à m'apporter je lui en serais très reconnaissante.

A bientôt

Ziyaa
 

Pièces jointes

  • message d'erreur.png
    message d'erreur.png
    6.3 KB · Affichages: 16
  • résultat débogage.png
    résultat débogage.png
    15.4 KB · Affichages: 13

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
292

Statistiques des forums

Discussions
311 721
Messages
2 081 929
Membres
101 843
dernier inscrit
Thaly