If cell et combobox qui ne fonctionne pas Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
r
rominoch
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 25 mars 2020
Version d'Excel : 2016

Message par rominoch » 25 mars 2020, 21:23

Bonjour,

J'ai créé un formulaire et je souhaite pouvoir rechercher un ancien formulaire complété pour le modifier. Pour cela, ma clé de recherche est la première case d'un tableau, chaque ligne étant un formulaire enregistré.
J'ai donc besoin de rechercher si la cellule est égale à la valeur (le numéro du formulaire) sélectionné par l'utilisateur dans la combobox.
Quand je mets des Msgbox, les valeurs sont identiques, mais la macro n'entre jamais dans le if. J'ai essayé de changer les formats de la cellule dans le tableau pour mettre en texte mais cela ne marche pas non plus, quelqu'un a une solution?
Sub Remplissage_form()

    For i = 2 To ligne
    MsgBox ("ComboBox1.Value = " & ComboBox1.Value)
    MsgBox ("Cells(i, 1) = " & Cells(i, 1).Value)
        If Cells(i, 1) = ComboBox1.Value Then
        MsgBox ("ici")
            TextBox9.Value = Cells(i, 9).Value
            ComboBox3.Value = Cells(i, 8).Value
            ComboBox8.Value = Cells(i, 2).Value
        End If
        Next
End Sub
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'091
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 25 mars 2020, 23:25

Bonsoir,

au vu de votre code ligne = 0 car non paramétré...
Du coup la boucle ne tourne même pas puisque i=1 est doit aller à 0, il est déjà au dessus donc la boucle s'arrête.

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
r
rominoch
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 25 mars 2020
Version d'Excel : 2016

Message par rominoch » 26 mars 2020, 08:39

Bonjour,

ligne est une variable externe, qui a comme valeur le nombre de ligne dans mon tableau (ligne = 4 quand je teste, et d'ailleurs, les 2 premiers messages box s'affichent 3 fois.
Ce n'est donc pas la raison.

Le problème vient bien du if entre une cellule et un combobox... mais je n'arrive pas à résoudre...
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'694
Appréciations reçues : 227
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 26 mars 2020, 09:32

Bonjour,

La valeur d'une combobox ou d'une textbox est toujours de type texte (String). Il est fort possible que Cells(i, 1) soit numérique.
Donc j'essaierai
If Cells(i, 1) = Val(ComboBox1.Value) Then
r
rominoch
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 25 mars 2020
Version d'Excel : 2016

Message par rominoch » 26 mars 2020, 10:14

Super merci @thev !
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message