Recuperer la valeur dans le combobox pour renommer

[Celine]

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

 

[Abel]

Bonjour Céline,

Qu'appelles tu un fonctionnement aléatoire ?
Que se passe t'il ?

As tu essayé de faire fonctionner la macro en mode pas à pas (touche F8 quand tu es dans l'éditeur) ?


Abel.

Message édité par: Abel, à: 08/09/2005 11:24