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 :
Si quelqu'un à des réponses à m'apporter je lui en serais très reconnaissante.
A bientôt
Ziyaa
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