Recuperer la valeur dans le combobox pour renommer

C

Celine

Guest
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

XLDnaute Accro
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
 

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 655
Membres
105 479
dernier inscrit
chaussadas.renaud