Discussion :

[grisby007]

bonjour à toutes et à tous!

Je suis nouveau sur le forum et je débute en programmation de macro.
Donc voilà, j'ai réalisé une macro mais on me sort une erreur et je ne sais pas comment traiter cela...

J'ai une procédure Va_dans_le_SELECT() qui est appellée lors de l'entrée de données. cette procédure se lance, ok.
Dans cette procédure j'ai un Select case qui fonctionne.
C'est dans le With Selection que ca "merdouille", là j'appelle

Code :

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

nomTECH = SELECT_TECH(Sheets("BASE"), CurLigne, 5)

La fonction SELECT_TECH est décrite ci dessous:

Code :

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

1
2
3
4
5
Private Function SELECT_TECH(ByVal sheet As String, ByVal currentligne As Long, ByVal colonne As Long) As Integer
Select Case Sheets("BASE").Cells(currentligne, colonne).Value
....blablabla....
End Select
End Function

Est ce quelqu'un sait pourquoi ca ne rentre pas dans SELECT_TECH??? Ca me sort Erreur 438: propriété ou méthode non gérée par cet objet...

En fait, initialement j'ai ce select case incorporoé dans le case 1 de la méthode Va_dans_le_SELECT(), mais c'était trop gros, donc je l'ai sortie de là en pensant que ca marcherai et ma foi non...

Qualu'un à une idée, désolee je n'ai pas pu mettre le fichier, il est trop gros!

[mercatog]

Bonjour
Ton blablabla n'est pas du tout opportun pour déceler l'erreur.
et à la fin SELECT_TECH devra récupérer un integer
Alors, je ferai comme ceci

Code :

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

1
2
3
4
5
Function SELECT_TECH(sht As Sheets, ByVal currentligne As Long, ByVal colonne As Integer) As Integer
Select Case sht.Cells(currentligne, colonne).Value
....blablabla....
End Select
End Function

Edit, j'ai relu ton post et changé le code, regarde les paramètres de la fonction

[zyhack]

Bonjour

au premier coup d'oeil dans la déclaration de ta fonction

Code :

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

Private Function SELECT_TECH(ByVal sheet As String, ByVal currentligne As Long, ByVal colonne As Long) As Integer

1) tu devrais remplacer le nom de variable sheet qui est réservé par VB ex : mySheet

2) la variable sheet est de type string et quand tu appelle ta fonction

Code :

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

nomTECH = SELECT_TECH(Sheets("BASE"), CurLigne, 5)

Sheets("BASE") est un objet Worksheet tu devrais utiliser

Code :

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

nomTECH = SELECT_TECH(Sheets("BASE").name, CurLigne, 5)

ensuite dans la ligne

Code :

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

Select Case Sheets("BASE").Cells(currentligne, colonne).Value

vu que tu passe le nom de la feuille en paramètre, pourquoi utiliser son nom en dur

a remplacer par

Code :

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

1
2
'penser à remplacer sheet par un autre nom
Select Case Sheets(sheet).Cells(currentligne, colonne).Value