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...