Z ZAJNI XLDnaute Nouveau 23 Juillet 2018 #1 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.
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 Johan XLDnaute Occasionnel 23 Juillet 2018 #2 Salut, Ca te renvoie sur une ligne en particulier ton erreur ? Peut être déclarer "forme as Object" dans tes variables ? Sans pièce jointe dur à dire ! Johan Vote positif 0 Vote négatif
Salut, Ca te renvoie sur une ligne en particulier ton erreur ? Peut être déclarer "forme as Object" dans tes variables ? Sans pièce jointe dur à dire ! Johan
phlaurent55 Nous a quittés en 2020 Repose en paix 23 Juillet 2018 #3 Bonjour Zajni, remplace: chaine = Left(ch, longu - 2) par: chaine = Left(ch, Len(ch) - 2) à+ Philippe Vote positif 0 Vote négatif
Bonjour Zajni, remplace: chaine = Left(ch, longu - 2) par: chaine = Left(ch, Len(ch) - 2) à+ Philippe
Z ZAJNI XLDnaute Nouveau 23 Juillet 2018 #4 Merci beaucoup, j'avais oublié l'instruction qui calcule le len. Ca marche très bien à présent. Merci de votre aide. A+ Vote positif 0 Vote négatif
Merci beaucoup, j'avais oublié l'instruction qui calcule le len. Ca marche très bien à présent. Merci de votre aide. A+
phlaurent55 Nous a quittés en 2020 Repose en paix 23 Juillet 2018 #5 Re, la réponse apportée lors de ma précédente intervention fonctionne sur ton fichier à+ Philippe Vote positif 0 Vote négatif