Dans une macro cells(3,1) est rejeté
r
Bonjour à tous
J'écris une macro consultant un fichier composé de 3 feuilles.
je veux consulter la liste des membres dans la feuille lfhalp
mais j'obtiens une erreur dès que j'arrive à cells(i,1).select.
PARFOIS j'ai une erreur 1004 ou un cadre avec une étoile ROUGE avec le chiffre400
Où donc se trouve l'erreur?
J'espère que l'entraide fonctionnera
MERCI de votre aide
rogerone
VOICI LE CODE:
Sub compoequipe()
'cette macro au départ du fichier alpha joueurs éditera la composition des équipes pour une semaine
Workbooks.Open Filename:="e:\tenexcel\lf2013.xlsm"
Windows("lf2013.xlsm").Activate
i = 3
'la liste commence à la ligne3
Z = 10
'pour copier le nom à la colonne 10
trois = InputBox("donnez les 3 premières lettres du joueur")
Sheets("lfhalp").Select
Do
Cells(i, 1).Select
'C''EST ICI QUE SE TROUVE L''ERREUR
nom = Cells(i, 1).Value
choix = Left(3, nom)
If choix = trois Then
Cells(10, Z).Select
Cells(10, Z).Value = Cells(i, 1).Value
Z = Z + 1
End If
Loop Until Cells(i, 1).Value = " "
End SubBonjour
Comment veux tu que l'on fasse pour trouver l'erreur ?
Sans le fichier contenant la macro pour tester pas évident, surtout que tu écris "PARFOIS"
Le fichier que tu as fourni c'est le fichier ouvert par la macro afin d'y chercher des informations
Tout ce que j'ai vu c'est
choix = Left(3, nom)Normalement c'est l'inverse
choix = Left(nom, 3)Fournis le fichier principal