Qualificateur incorrect VBA

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:

---

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

---

Pièce jointe 562885

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

Bonjour,

Il y a beaucoup de Select et Activate dans ton code. Est-ce vraiment utile ? De façon général, il faut éviter au maximum d'utiliser des Select/Activate. Exemple plutôt que d'écrire :

Code:

---

1 2	Range("A:A").Find("toto").Select Selection.Value = "titi"

---

On écrit

Code:

---

Range("A:A").Find("toto").Value = "titi"

---

Ou

Code:

---

1 2 3

Dim trouve As Range Set trouve = Range("A:A").Find("toto") trouve.Value = "titi"

---

Par exemple, quand tu écris cela :

Code:

---

1 2 3 4

Columns("A:A").Select Selection.Find(What:=Annee, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate

---

Tout ce qui est en orange fait référence au Select, donc à Columns("A:A"), or je ne suis pas sûre que c'est ce que tu veux avec ActiveCell.

D'autre part,

Code:

---

ActiveCell.Select

---

est redondant, puisque ActiveCell est déjà la cellule sélectionnée.

Quant à ton erreur, j'ai essayé sur un exemple tout simple où "a" est écrit dans une cellule de la colonne A :

Code:

---

1 2 3

Sub test() MsgBox Columns("A:A").Find("a").Row End Sub

---

Ceci fonctionne. J'ai une erreur si je cherche quelque chose qui n'est pas dans la colonne A. Est-ce que le mot que tu cherches se situe bien dans la colonne A ?
Vérifie que la variable Anne correspond bien à ce que tu cherches. Utilises par exemple une MsgBox pour faire des tests.

Est-ce normal que tu ais le paramètre LookIn:=xlFormulas ? Tu cherches l'année dans la formule et pas dans le contenu ? Tu me diras, s'il n'y a pas de formule, mais que du texte écrit en brut, c'est équivalent.


Essaie de vérifier que le find trouve bien qqc en utilisant une variable Variant comme cela :

Code:

---

1 2 3 4 5 6 7

Dim trouve As Variant   Set trouve = Columns("A:A").Find(What:=Annee, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False)   If trouve Is Nothing Then MsgBox "pas trouvé": exit sub

---

Pourquoi le code que tu présentes ne correspond pas à celui qui génère l'erreur ?

Citation:

---

Envoyé par riaolle

Il y a beaucoup de Select et Activate dans ton code. Est-ce vraiment utile ? […]

[…] J'ai une erreur si je cherche quelque chose qui n'est pas dans la colonne A. Est-ce que le mot que tu cherches se situe bien dans la colonne A ?
Vérifie que la variable Anne correspond bien à ce que tu cherches. Utilises par exemple une MsgBox pour faire des tests.[…]

Est-ce normal que tu ais le paramètre LookIn:=xlFormulas ? Tu cherches l'année dans la formule et pas dans le contenu ? Tu me diras, s'il n'y a pas de formule, mais que du texte écrit en brut, c'est équivalent.


Essaie de vérifier que le find trouve bien qqc en utilisant une variable Variant comme cela :

Code:

---

1 2 3 4 5 6 7

Dim trouve As Variant   Set trouve = Columns("A:A").Find(What:=Annee, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False)   If trouve Is Nothing Then MsgBox "pas trouvé": exit sub

---

---

Bonjour,
Merci pour tes explications, je vais répondre dans l'ordre. D'abord pour l'utilité des select et activate, ils viennent tous d'une macro de recherche que j'ai effectuée au début du projet, comme notre prof nous a dit de le faire. Et ayant très peu de connaissance en vba, je ne sais pas trop si c'est utile, après avec ça mon code fonctionne donc je préfère laisser ça comme ça et ne pas chipoter à chercher d'autres moyen, la deadline du projet étant vendredi 00h.

Oui, ce que je cherche se trouve bien dans la colonne A. Et pour vérifier mes variables j'utilise la fenêtre des variables locales pour ne pas surcharger de msgbox. Aussi je trouve ça plus simple pour suivre l'évolution de mes variables et je suis assez habitué à ce genre de debug.

Pour le lookin0:=xiFormulas, cela vient aussi de ma macro de base, mais en effet il n'y a que du texte dans mes cellules.

J'ai essayé ton code de test, j'ai une erreur de type incompatibles. Je vais essayer de trouver la source de l'erreur. Mais je ne peut même pas tester la valeur de trouve puisque l'erreur survient pendant la recherche. Je ne comprends pas pourquoi puisque la valeur que je cherche est bien présente dans ma colonne.

J'ai aussi essayé les recherches en simplifiant le code comme tu le proposes, mais là, plus aucune procédure ne fonctionne correctement. J'ai donc remis comme c'était à la base, ce n'est peut être pas optimisé, mais ça fonctionne.

Mehnir : c'est le même code, j'ai juste mis le find directement sur le columns("A:A")

Merci

EDIT :
en codant le reste de la procédure, j'ai remarqué que l'erreur arrivait même si je ne rentre pas dans la condition avec ce problème. J'ai alors le "Selection" qui posait problème sélectionné en bleu et l'en tête de la procédure sélectionné en jaune. Voir l'image qui suit.
J'ai vérifié les arguments que je passe à ma procédure lors de l'appel et ils sont tous bons donc aucune idée de l'erreur. Je ne vous cache pas que je trouve la gestion des erreurs en VBA très floue. C'est peut-être une question d'habitude, mais je trouve que la gestion des erreurs en vba est loin d'être aussi claire qu'en java par exemple, où on peut remonter facilement la gestion de l'erreur.
Pièce jointe 563266

EDIT 2 :
J'ai bêtement fait l'erreur d'appeler une variable "Selection" :roll:

Citation:

---

Envoyé par scryper

Mehnir : c'est le même code, j'ai juste mis le find directement sur le columns("A:A")

---

Donc ce n'est pas le même code.

Citation:

---

J'ai bêtement fait l'erreur d'appeler une variable "Selection" :roll:

---

CQFD

Bonjour,
Je suis complètement novice en macro.
J'ai effectué une planification avec un ajout / suppression d'une ligne et je souhaiterais insérer des conditions d'insertion selon deux critères de rangement :
Le premier est la section de l'intéressé.
Le deuxième est le grade de l'intéressé.
Comment puis je réaliser ce travail via macro

Citation:

---

Envoyé par Floy69

J'ai effectué une planification avec un ajout / suppression d'une ligne et je souhaiterais insérer des conditions d'insertion selon deux critères de rangement :
Le premier est la section de l'intéressé.
Le deuxième est le grade de l'intéressé.
Comment puis je réaliser ce travail via macro

---

Crée ton propre sujet plutôt que de squater le sujet de quelqu'un d'autre qui, en plus, est qualifié "Résolu".

De plus, les éléments que tu fournis sont très insuffisants pour apporter une réponse exploitable.