Probléme de la méthode Select : Erreur (1004)
Bonjour à tous !!
Je possédes un classeur ayant une dixaine de feuilles, comportants des informations redondantes et communes (nom, dates...).
Je dois mettre au point un macro constituer d'une succession d'InputBox qui redirige les diverses informations dans les diverses feuilles de mon classeur !
Or, je bloques sur cette partie (qui fonctionne malgrès tout en indépendante mais bug dès que je l'incére dans le code final) :
Dim a As String
Dim np As Integer
Dim NomT As String
i = 0
np = InputBox("Saisir le nombre d'employés concernés", "Identité employés")
For i = 1 To np Step 1
nomcherche = InputBox("Saisir le nom de l'employé", "Identité employés")
Set result = Worksheets("CS et VS par personne").Range("A2:A300").Find(What:=nomcherche, LookIn:=xlValues)
If result Is Nothing Then
MsgBox "Employé absent de nos listes, vérifier la synthaxe"
Else
Worksheets("CS et VS par personne").Range(result, result).Offset(0, 4).Select
Worksheets("CS et VS par personne").ActiveCell.Value = ActiveCell.Value + 1
Worksheets("CAUSERIES").Cells(DC, 8) = Worksheets("CAUSERIES").Cells(DC, 8) & nomcherche
End If
NextLe debogger me retourne l'erreur : (1004) "La méthode Select de la classe Range à échoué" (au niveau de la ligne en gras, biensur)
Je cherches depuis déjà un bout de temps , en sachant que ce codesemble fonctionnel si traiter en indépendant..
J'hésite également à mettre des guillemets à nomcherche sur l'avant derniére ligne.. nomcherche est ici une variable String
Merci d'avance,un stagiaire dépassé...
C'est bon, il suffisait d'activer la feuille...
Bonjour,
Pas de fichier ! Tu es du genre à téléphoner au garage pour qu'il dépanne ta voiture sans la lui amener.. !!
Tout de même : fais précéder ta ligne en gras par une ligne qui active la feuille : Worksheets(".......").Activate
Ceci étant, sélectionner ou activer étant toujours superflu (sauf si c'est le seul but, évidemment), tu peux écrire :
With Worksheets("CS et VS par personne").Range(result, result).Offset(0, 4)
.Value = .Value + 1
End WithCordialement.