Discussion :

[Damieb]

Bonjour à tous,
je suis actuellement en stage et je tombe sur une erreur que je n'arrive pas à corriger.
Il s'agit d'une erreur 438 : "Propriété ou méthode non gérée par cet objet"

Or je ne vois vraiment pas d'où viens le problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
CategorieCol = InputBox("Veuillez entrer le numéro de la colonne définissant le type des appareils.", "Eléments à renseigner", 1)
    While (ActiveSheet.Cell(I, CatégorieCol) <> Null)
        Categorie = ActiveSheet.Cell(I, CatégorieCol)
        Select Case Categorie
            Case Is = "Hautparleur" '(différents modèles) a faire avec un comparatif vers un onglet extérieur
 
            Case Is = "Atténuateur" '(différents modèles) a faire avec un comparatif vers un onglet extérieur
 
            Case Else
                Erreur = Erreur + 1
                Valide = False
        End Select
    Wend

Dans le débogueur le ligne du While ne passe pas.
PS: j'ai déjà fait du code VB mais il y a 4 ans et pas en environnement Excel. Donc je suis débutant mais je comprendrai vos réponses rapidement.

Merci

[patricktoulon]

Bonjour
essai plutôt ca :

Code :

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

Categorie = ActiveSheet.Cells(I, CatégorieCol)

Au plaisir

[Kimy_Ire]

Bonjour Damieb,

Je dirais qu'une "Cell" ne peut jamais être "Null".

Essaye ceci :

Code :

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

ActiveSheet.Cell(I, CatégorieCol) <> ""

Cordialement,
Kimy

EDIT : C'est peut-être patricktoulon qui a la solution finalement.

[patricktoulon]

bonjour kimi
une cell n'existe pas c'est cells

[Kimy_Ire]

patrick,

Une "cells" peut être égale à Null ?

[Damieb]

merci pour vos réponses mais cela ne fonctionne toujours pas.

Le fait de changer Null en "" n'impact pas mon code (pour l'instant peut être une seconde erreur par la suite).
Le fait de rajouter un s à Cell ne modifie que mon type d'erreur je passe en 1004.

Je vous met la totalité de la Sub au cas où.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub TestUnitaire()
Dim Valide As Boolean
Dim NbEleTotalf As Integer
 
Call Identification_des_elements(Valide, NbEleTotalf)
 
 
End Sub
 
 
 
Private Sub Identification_des_elements(ByRef Valide As Boolean, ByRef NbEleTotalf As Integer)
 
'------- Déclaration des variables
Dim I As Integer
Dim Erreur As Integer
Dim J As Integer
Dim CategorieCol As Integer
Dim ImmatCol As Integer
Dim Categorie As String
 
'------- Initialisation des variables
Valide = True
I = 1
Erreur = 0
J = 1
NbEleTotalf = 0
 
'------- Début traitement identification des éléments
CategorieCol = InputBox("Veuillez entrer le numéro de la colonne définissant le type des appareils.", "Eléments à renseigner", 1)
    While (ActiveSheet.Cells(I, CatégorieCol) <> "")
        Categorie = ActiveSheet.Cell(I, CatégorieCol).Value
        Select Case Categorie
            Case Is = "Hautparleur" '(différents modèles) a faire avec un comparatif vers un onglet extérieur
 
            Case Is = "Atténuateur" '(différents modèles) a faire avec un comparatif vers un onglet extérieur
 
            Case Else
                Erreur = Erreur + 1
                Valide = False
        End Select
    Wend
ColReseauFich = InputBox("Veuillez entrer le numéro de la colonne définissant le réseau des appareils.", "Eléments à renseigner", 1)
    While (AciveSheet.Cell(J, ImmatCol) <> Null)
        Select Case Immatriculation
            Case Is = Null Or ""
 
            Case Else
                Valide = False
        End Select
    Wend
NbEleTotalf = I - Erreur
 
End Sub

[Kimy_Ire]

bonjour kimi
une cell n'existe pas c'est cells

pourtant :

Code :

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

1
2
3
While (AciveSheet.Cell(J, ImmatCol) <> Null)
'...
Categorie = ActiveSheet.Cell(I, CatégorieCol).Value

Kimy

[Marc-L]

Une "cells" peut être égale à Null ?

Un Range sans rien équivaut souvent par défaut à sa propriété Value, VBA parfois lui préférant la propriété Text …

[Kimy_Ire]

Un Range sans rien équivaut souvent par défaut à sa propriété Value, VBA parfois lui préférant la propriété Text …

Merci.