Discussion :

[Mickamax]

Bonjour au forum,

J'ai une base de données dans laquelle chaque ligne se distingue grâce au numéro d'OF, qui est unique.
J'ai créé un formulaire tout simple avec un TextBox dans lequel je renseigne un numéro d'OF.



Je souhaite ainsi, grâce à une boucle qui balaierai toute ma colonne d'OF, retrouver le numéro d'OF que j'ai entré dans mon TextBox.

J'ai créé cette courte macro pour voir si le système reconnaissait mon numéro d'OF:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Valider_Click()
Dligne = Range("E15000").End(xlUp).Row
For I = 6 To Dligne
If NOF = Cells(I, 5) Then Cells(1, 1) = "OK"
 
 
Next I
End Sub

Précision: Mes OF se trouvent en colonne 5.

Cependant, mon numéro d'OF n'est pas reconnu puisque rien n'est inscrit en case A1. J'avoue que je ne comprend pas vraiment où se situe mon erreur, même si la réponse doit-être assez simple.

Quelqu'un aurait la gentillesse de m'aiguillier un peu ?

Bonne journée,
Mickamax

[BENNASR]

Bonjour
Je crois que un userform avec un combobox ou vous trouvez tous les OF et si tu fais un choix dans ce combobox tu aura le numéro OF dans un textbox est mieux non ??pour ton cas et si j'ai compris : tu saisie le numéro OF dans un textbox et tu récupère le OF dans la cellule A1 et que les OF se trouve dans la colonne A :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Valider_Click()
dim Dligne as long
Dligne = Cells(Rows.Count, 5).End(xlUp).Row
For I = 6 To Dligne
If Cells(I, 5) =textbox1.value Then Cells(1, 1) = Cells(i, 1)
Next I
End Sub

[Mickamax]

Bonjour BENNASR,
La ComboBox aurait été intéressante effectivement, mais le problème étant que ma liste d'OF n'est pas fixe, elle est amenée à changer régulièrement car le fichier sera alimenté par un utilisateur.
Or, si je ne dis pas de bêtise, la ComboBox s'alimente via RowsSource qui renvoie des valeurs fixes…

A moins qu'il y ai un moins de variabiliser les informations de la ComboBox, dont je n'ai pas connaissance, et qui m'intéresse fortement.


J'ai essayé ta macro, cela ne fonctionne pas non plus…
Pour être plus précis dans mes besoins: Je souhaite saisir un OF dans ma textBox, le retrouver dans ma base de données, et extraire les informations sur la ligne de cet OF (exemple: Date, N° de commande, etc).

Je ne suis pas allé aussi loin dans ma macro car je me suis rendu compte (via le code que je vous ai transmis) que ma macro ne trouvait pas de correspondance entre ma textBox et ma liste d'OF.

j'avais fait une boucle qui disait grosso-modo: si la cellule dans ma boucle = textBox, alors ma cellule A1= "OUI". Or, rien ne s'affiche dans ma cellule A1.



Mickamax

[BENNASR]

le combobox s'alimente au moment de l'initialisation de l'userform
et si le résultat est une seule ligne donc tu peux faire un combobox et 4 ou 5 textbox et suite au choix les textbox s'alimente avec la ligne correspondante
si le résultat et plusieures lignes tu peux remplacer les textbox par un listbox

[Pierre Fauconnier]

Salut.

Tu peux alimenter un combobox via Rowsource ou via List. Je préfère la seconde solution qui est simple à mettre en place. Normalement, cette combobox aura comme source une table de données, ce qui permet d'utiliser la référence structurée de la colonne qui alimente le combobox, rendant ton code plus simple à réaliser.

Voici le tableau t_OF qui contient la colonne OF avec tes références...



Pour appeler ton userform et charger ton combo, tu peux utiliser le code suivant (avec un userform nommé usfOF et un combobox nommé cboOf)

Code :

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

1
2
3
4
5
6
7
Sub ShowUsfOf()
  With usfOF
    .cboOF.List = Range("t_OF[OF]").Value
    .Show
  End With
  Unload usfOF
End Sub

L'intérêt est que tu peux recharger ton combobox "à chaud", par exemple durant l'utilisation du userform si tu ajoutes un nouvel OF à la liste. Il suffit de redéfinir la propriété List du combo avec le code suivant: cboOF.List = Range("t_OF[OF]").Value
J'explique la technique dans ce message avec un fichier d'exemple

[Mickamax]

Bonjour Pierre,
Merci beaucoup pour l'info, je ne savais pas du tout qu'il était possible de fonctionner comme cela !
Première partie de mon problème réglé, donc !

Cependant, j'ai toujours le même problème:

Je sélectionne mon numéro d'OF, celui-ci a bien une correspondance dans la liste, comme le prouve la photo ci-dessous:



Or, via la macro que j'ai implémenté sur le bouton valider, je pensais avoir écrit "KARATE KID" sur la douzième colonne de la ligne correspondant à l'OF sélectionné dans mon ComboBox, mais ce n'est toujours pas le cas

Code :

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

1
2
3
4
5
6
7
8
Private Sub Valider_Click()
 
Dligne = Range("E15000").End(xlUp).Row
For I = 6 To Dligne
If Cells(I, 5) = cboOF.Value Then Cells(I, 12) = "KARATE KID"
 
Next I
End Sub

Des idées ?

[BENNASR]

je propose de définir votre feuille surtout si tu appelle ton USF d'une feuille différente
aussi tester votre variable Dligne avec un message box et vérifier si ça donne la bonne valeur
aussi quand tu écris entre un WITH n'oubliez pas le point (.)

Code :

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

1
2
3
4
5
6
7
8
Private Sub Valider_Click()
with sheets("Feuil1") ' à adpter
Dligne = .Range("E15000").End(xlUp).Row
For I = 6 To Dligne
If .Cells(I, 5) = cboOF.Value Then .Cells(I, 12) = "KARATE KID"
Next I
End with
End Sub

[Mickamax]

Re,
J'ai trouvé une solution qui me convient avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Valider_Click()
Cells(1, 1) = cboOF.Value
 
Dligne = Range("E50000").End(xlUp).Row
For I = 6 To Dligne
If Cells(I, 5) = Cells(1, 1) Then Cells(I, 12) = "KARATE KID"
 
Next I
 
End Sub

Je pense que le fait de poser la valeur de ma ComboBox avant de comparer rend la macro fonctionnelle.
C'est certes moins élégant, mais je m'en contenterai.
Merci beaucoup à tous les deux, problème résolu !


Mickamax

[Pierre Fauconnier]

Dans l'exemple, j'ajoute une colonne Titre



Dans le userform, j'ajoute une zone de texte tboTitle.

Au clic sur le bouton de validation, on appelle la procédure qui ajoute le titre saisi dans la zone de texte sur la ligne de la colonne Titre correspondant à l'OF choisi.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub btnValidate_Click()
  SaveTitle
End Sub
 
Sub SaveTitle()
  If cboOF.ListIndex <> -1 Then
    Range("t_OF[Titre]").Cells(cboOF.ListIndex + 1).Value = tboTitle.Value
  End If
End Sub

[Pierre Fauconnier]

Voilà le fichier qui illustre cela.

Si l'on travaille avec des tables de données, ce qui est pour moi la seule option dans ce cas de figure, il n'est nécessaire ni de préciser la feuille, ni de s'amuser avec des End(xlUp) (pourquoi partir de 15000, d'ailleurs?).

Les tables de données permettent de travailler de façon beaucoup plus simple et souple que de passer par la feuille et des trucs comme End(xlUp)