Bonjour à tous, c'est la 1ère fois que je m'inscris sur un forum du genre.
 
Voici mon problème : j'ai créé une macro qui ne fonctionne pas. "Erreur de compilation: Sub ou Function non définie".
Voici ce que je veux que ma macro fasse pour moi : sur la feuille "Totaux" et sur toutes les suivantes, je veux chercher et remplacer tous les "Aria" par des "Jockare".
 
Pour ce faire, mon idée est d'ajouter une feuille
1) Ajout d'une feuille à la fin du classeur Excel et la renommer en "aeffacer".
2) Sélection de la feuille "Totaux".
3) Lancement d'une boucle qui remplace "Aria" par "Jockare" sur la feuille sélectionnée et qui sélectionne ensuite la page suivante. La boucle s'arrête quand la feuille "aeffacer" est sélectionnée.
4) Suppression de la dernière feuille.
 
Et voici le code (qui ne fonctionne pas)...
 
Sub SwitchCAC()
'
' SwitchCAC Macro
'
        Sheets.Add After:=Sheets(Sheets.Count) 'ajoute une feuille à la fin du classeur
        Sheets(Sheets.Count).Select
         
        Sheets(Sheets.Count).Select 'renomme dernière feuille
        ActiveSheet.Name = "aeffacer"
         
        ActiveWindow.ScrollWorkbookTabs Position:=xlLast 'sélectionne la feuille "Totaux"
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheet("Totaux" ).Select
   
   Do 'boucle qui remplace "Jockare par "Vide04" jusqu'à ce que la feuille "aeffacer" soit sélectionnée
        Cells.Replace What:="Aria", Replacement:="Jockare", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        ActiveSheet.Next.Select
   Loop Until ActiveSheet.Next.Name = "aeffacer"
         
            Application.DisplayAlerts = False 'supprime la dernière feuille sans confirmation
            Sheets(Sheets.Count).Select
            ActiveWindow.SelectedSheets.Delete
            Application.DisplayAlerts = True
End Sub
 
Dans l'idéal, je voudrais non seulement que cette macro fonctionne, mais aussi qu'elle puisse fonctionner sur base d'un formulaire de remplacement. J'entends par là qu'elle ne remplace pas "Aria" par "Jockare" mais "X" par "Y" en ayant pour consigne que "X" se trouve dans telle case sur telle feuille et idem pour "Y".
 
Je ne sais pas si je suis assez clair et si je formule les choses comme elles doivent l'être. Alors soyez indulgents avec moi svp.
 
Merci d'avance à tous !