Discussion :

[scryper]

Bonjour,

J'ai une question concernant une erreur de compilation. Je ne comprends pas pourquoi elle apparaît, puisque je fais la même chose à plusieurs endroits du code et ça ne pose pas de problèmes :/
J'ai fait plusieurs recherche sur l'erreur, sans succès.

voici le code et l'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
' activationn de la feuille
        Sheets("Cours " & Section).Activate
        Annee = Correspondance(Section, Bloc)
        If Annee <> "" And Selection = "" Then ' si il y a un bloc s?lectionn? et pas d'ue s?lectionn?e
            ' on cherche l'endroit ? partir duquel on doit afficher les cours
            Columns("A:A").Find(What:=Annee, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False, SearchFormat:=False).Activate
            ActiveCell.Select
            LBSans.Clear
            LBAvec.Clear
            CellulePrecedente = Range("A" & ActiveCell.Row).Value
            While CellulePrecedente = Range("A" & ActiveCell.Row)
                If Left(Range("I" & ActiveCell.Row).Value, 3) = "non" Then 'sans attributions
                    LBSans.AddItem Range("D" & ActiveCell.Row)
                Else ' avec attributions
                    LBAvec.AddItem Range("D" & ActiveCell.Row)
                End If
            Wend
        Else ' si il y a une Ue s?lectionn?e (le bloc n'a plus d'importance)
            MsgBox "ue"
        End If

Contexte, je veux chercher une certaine valeur (variable Annee, déclarée string, dans la colonne A). Chose que je fais à de très nombreux endroits différe,ts du code et ce sans problèmes.
J'ai aussi remarqué que lorsque je met le .find directement après Columns("A:A"), cette erreur disparaît et laisse place à une erreur d'incompatibilité de type.
Autre chose, je ne peux même pas debuger mon programme puisque, même avec un point d'arrêt sur l'appel de la procédure, l'erreur apparaît directement.

Je vais continuer mes recherches pour ne pas perdre lus de temps,
merci d'avance