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.

[sk8bcn]

Code :

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

Set recherche = absent.Cells.Find("po,", absent.Cells(19, 35), xlValue, xlWhole)

sachant que absent.cells(19.35)="po," (selon l'intellisense).

j'ai remplacé la ligne incriminé par ce codage.

Sinon le code se bloque à la premiere boucle, et le type d'erreur n'a pas changé.

Au fait, je travaille sur excel 2002, est-ce que ça peut etre lié?

[sk8bcn]

J'AI TROUVE!!!!

J'avais copié le codage sur le texte du document d'aide de Rabilloud (au demeurrant ma "bible" ) mais en fait, il a ecrit xlvalue au lieu de xlvalues.

[sk8bcn]

merci!

j'ai ajouté le tag résolu.....jusqu'a nouvel ordre!

[sk8bcn]

J'ai du retirer le résolu car, aucune erreur n'apparait à l'execution mais rien ne marche correctement:

Code :

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

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

etrangement, recherche n'est jamais nothing. J'ai une hypothese a ce propos:
J'ai lu que After était la derniere cellule regardée. Donc il doit certainement trouver un codecoll (la valeur de la variable) avant.

Toutefois, le replace ne remplace rien, que la cellule contienne ou non une chaine de caractere egale a codecoll.

[sk8bcn]

ok un petit progres: replace n'arrive pas a remplacer une chaine dans une chaine!!!

donc "salut ses super"

si je cherche à remplacer "ses" par "c'est" cela ne fonctionne pas?

Y a t il des solutions de contournement?

[sk8bcn]

ok lookat:= xlpart

dsl de ma stupidité!

re-résolu


(par ailleurs, le .find ne sert à rien)