Bonjour le forum,
J'ai un programme qui permet de recuperer la valeur saisie dans le combobox pour renommer une feuille.
Il réussit de façon aleatoire et je ne vois pas où est le problème:
Sub cracra()
Dim i As Integer
Dim wsa As Worksheet
Dim nomfeuille As String
Set wsa = Sheets(OutMois.Value)
i = Exporcol.ListIndex
i = i * 5 + 5
Sheets('cra').Select
Cells.Select
Selection.Copy
Sheets.Add
Cells.Select
ActiveSheet.Paste
nomfeuille = wsa.Cells(i, 1).Value
ActiveSheet.Select
ActiveSheet.Name = nomfeuille
Commentaire:OutMois est un combobox pour choisir un mois
Exporcol est un lisbox qui contient des noms de personnes
Est-ce que vous pouvez m'aider à trouver l'erreur.Merci d'avance