Discussion :

[sk8bcn]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set recherche = absent.Cells.Find(codecoll & ",", absent.Cells(m, 3 + (mois - 1) * 4), xlValue, xlWhole)
 
If Not recherche Is Nothing Then
 
  absent.Cells(m, 3 + (mois - 1) * 4).Replace What:=codecoll & ",", Replacement:=""
 
End If

Voila, j'ai un calendrier avec des codes personnes absentes. (codecoll). Lorsque celles-ci s'en vont, je dois supprimer toutes les références à cette entrée à partir de cette date.

Mais qd je lance ce code on me dit que l'indice n'appartient pas a la selection. Pourquoi?

Merci d'avance.

[AlainTech]

on me dit que l'indice n'appartient pas a la selection.

Sur quelle ligne?

[sk8bcn]

sur le set

pourtant absent est définit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim absent As Worksheet, recherche As Range
Set absent = Worksheets("absents")

codecoll l'est aussi puisque l'intellisense me donne la bonne affectation de la variable. m et mois aussi (intellisense à nouveau).

[AlainTech]

Le nom de la feuille n'est pas correct!

Vérifie l'orthographe et/ou l'éventuelle présence d'espace devant ou derrière le nom.

[sk8bcn]

ben non, en cas d'erreur de la feuille correspondante, le programme bloquerait au set, non? (j'ai testé la théorie, et c'est le cas).

Au demeurrant: est-ce que "recherche" va me renvoyer l'adresse de absent.Cells(m, 3 + (mois - 1) * 4) ou nothing, non?

[AlainTech]

Comme tu as dit "sur le Set" et que tu donnais le code du Set de ta feuille, j'ai cru que tu parlais de cette ligne.

Vu que ce n'est pas ça, j'en conclus que c'est dans cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set recherche = absent.Cells.Find(codecoll & ",", absent.Cells(m, 3 + (mois - 1) * 4), xlValue, xlWhole)

que tu as l'erreur.

Ce que je peux te conseiller, alors, c'est de remplacer les variables par des valeurs "en dur" et/ou de tracer le contenu de tes variables avant l'exécution de la ligne incriminée.
Ce qui serait aussi intéressant, vu que tu sembles être dans une boucle, c'est de savoir à quel tour de boucle l'erreur apparaît.