Bonjour à tous
J'ai des formes sur ma feuille Excel que je voudrais renommer grâce à VBA.
Je voudrais supprimer les deux derniers caractère de chaque nom.
Par exemple si une forme a pour nom : "FRANCE_5" je voudrais la renommer en "FRANCE" toujours en supprimant les deux derniers caractères.
Voici mon code :
Sub Renommerforme()
Dim longu As Integer
Dim ch As String
Dim chaine As String
For Each forme In ActiveSheet.Shapes
ch = forme.Name
chaine = Left(ch, longu - 2)
forme.Name = chaine
Next forme
End Sub
Sauf que j'ai une erreur d'exécution : argument ou appel de procédure incorrect.
Pourriez vous m'aider à trouver la solution à ce problème ?
Merci à tous.
J'ai des formes sur ma feuille Excel que je voudrais renommer grâce à VBA.
Je voudrais supprimer les deux derniers caractère de chaque nom.
Par exemple si une forme a pour nom : "FRANCE_5" je voudrais la renommer en "FRANCE" toujours en supprimant les deux derniers caractères.
Voici mon code :
Sub Renommerforme()
Dim longu As Integer
Dim ch As String
Dim chaine As String
For Each forme In ActiveSheet.Shapes
ch = forme.Name
chaine = Left(ch, longu - 2)
forme.Name = chaine
Next forme
End Sub
Sauf que j'ai une erreur d'exécution : argument ou appel de procédure incorrect.
Pourriez vous m'aider à trouver la solution à ce problème ?
Merci à tous.
