Impossible de récupérer la valeur d'une cellule

Bonjour ,

J'aimerai que : si la valeur 'cellule' est égale a X ( ou <> "") me renvoi la valeur "objet" j'ai une erreur sur la déclaration de cellule (erreur 1004)

ici i est une boucle permettant de tester environ 160 ligne , Ncoln renvois un numero en fonction de se qui est rentré dans une combobox

Set cellule = Sheets("BDD").Cells(i, Ncoln).Value

Set Objet = Sheets("BDD").Cells(i, 2)

le code complet :

Private Sub Select_Atelier_Valid_Click()
    Dim atelier As Variant
        Unload Select_Action
            atelier = Combo_Atelier.Value

        If Combo_Atelier = "BP0P3 Elec. " Then
        Ncoln = 30
    ElseIf Combo_Atelier = "BP0P3 Cath. " Then
        Ncoln = "31"
    ElseIf Combo_Atelier = "BP0 P4Li. " Then
        Ncoln = "32"
    ElseIf Combo_Atelier = "Bp1-1 N0. " Then
        Ncoln = "33"
    ElseIf Combo_Atelier = "Bp1-1 N1. " Then
        Ncoln = "34"
    ElseIf Combo_Atelier = "BP1-1 Li " Then
        Ncoln = "35"
    ElseIf Combo_Atelier = "BP1-1P2. " Then
        Ncoln = "36"
    ElseIf Combo_Atelier = "BP1-2P1. Production" Then
        Ncoln = "37"
    ElseIf Combo_Atelier = "BP1-2. Maintenance" Then
        Ncoln = "38"
End If
' Dim N As Variant 'code du produit a modifier
    'Dim NumL As Integer 'numero de ligne de la valeur cherchée
    MsgBox Combo_Atelier 'valeur ok
    DernLigne = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row ' ok

      MsgBox Ncoln ' ok

    i = 11
Set Objet = Sheets("BDD").Cells(i, 2)
Set cellule = Sheets("BDD").Cells(i, Ncoln).Value

MsgBox cellule
            For i = 11 To DernLigne
            If cellule.Value = Empty Then

                 Select_Code_Kanban.items.Add Objet

            End If

                Next i

                Kanban_select_code.Show

End Sub

Merci d'avance

Bonjour Kazkad, bonjour le forum,

Pas sûr d'avoir bien compris... Essaie comme ça :

Private Sub Select_Atelier_Valid_Click()
Dim Atelier As String
Dim Objet As Range
Dim Cellule As Range

Unload Select_Action
Atelier = Combo_Atelier.Value
Select Case Atelier
    Case "BP0P3 Elec. "
        Ncoln = 30
    Case "BP0P3 Cath. "
        Ncoln = "31"
    Case "BP0 P4Li. "
        Ncoln = "32"
    Case "Bp1-1 N0. "
        Ncoln = "33"
    Case "Bp1-1 N1. "
        Ncoln = "34"
    Case "BP1-1 Li "
        Ncoln = "35"
    Case "BP1-1P2. "
        Ncoln = "36"
    Case "BP1-2P1. Production"
        Ncoln = "37"
    Case "BP1-2. Maintenance"
        Ncoln = "38"
End Select
DernLigne = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row ' ok
For i = 11 To DernLigne
    Set Objet = Sheets("BDD").Cells(11, 2)
    Set Cellule = Sheets("BDD").Cells(i, Ncoln)
    If Cellule.Value = "" Then Select_Code_Kanban.items.Add Objet.Value
Next i
Kanban_select_code.Show
End Sub

Donner la macro, c'est bien, mais joindre le fichier qui va avec, même avec des données bidonnées pour les rendre anonymes, c'est beaucoup mieux.

Bye !

Bonjour ThauThème,

Merci de votre réponse , il y a du progrès !

Encore quelque erreur :

ici "If Cellule.Value <> "" Then Select_Code_Kanban.items.Add Objet.Value" j'ai remplacer le = "" par <>"" ( c'est quand la cellule est remplis que "Objet "dois s'ajouter" bref,sans importance ...

J'ai en revanche un erreur sur : " Select_Code_Kanban.items.Add Objet.Value" me renvoi une erreur "424 objet requis" objet est pourtant = a "P23380AC" j'ai essayer en la déclarant en variant mais rien n'y fait , J'ai aussi essayer avec .Additems mais rien n'y fait ...

GMB: merci de votre intérêt , dans un soucis de confidentialité je ne souhaite pas transmettre de fichier, changer les information prendrai beaucoup de temps... mon problème réside dans se code ! Notamment dans la syntaxe je pense... Je n'es que quelque base en VBA ...

PS : le code est mis dans le module du bouton "validé" lors du chois de l’atelier !

Merci de votre intérêt

Bonjour le fil, bonjour le forum,

Désolé Kazkad mais je rejoins GMB dans son propos. Nous ne sommes pas des devins et les boules de cristal sont tellement fragiles...

Créer un fichier anonyme est tellement rapide. Avec juste une poignée de données et le contexte de ton fichier original. C'est juste de la flemme pure de ta part car je t'assure que ça prend pas plus d'une minute pour faire un fichier anonyme basé sur ton original.

Mais puisque tu as la flemme dis-toi bien que moi plus encore que toi...