Discussion :

[Aragofax]

Boujour à tous,

je viens vous demander un petit conseil car cela fait des jours que je ne dors plus (étant un bon débutant sur VBA).
Bon voilà je vous expose mon problème: Pour un projet, j'ai créer un USF qui contient une CmbBox et une TxtBox.

Le code de ma CmbBox est la suivante:

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
 
Dim MODELE As Variant
 
MODELE = Range("C1:K1")
CmbPRODUITS.Column() = MODELE

Maintenant pour chaque modèle sélectionné dans la CmbPRODUITS, je voudrais que les cellules de la colonne soit parcouru de la 2^e ligne jusqu'à la 10^e (ex C2:C10) . A chaque fois qu'une cellule est non vide, que soit reporter dans la TxtBox les données Cells("A" & i)+ Cells ("B" & i)+ la valeur de la cellule du CmbPRODUITS associé (Qui est une quantité, soit 20, 1, 100).

Comment faire pour remplir ma textbox avec les lignes filtrées? Et comment écrire ces données à la ligne. (Colonne A= Client/ Colonne B=Adresse/ de C à K= MODELE).

J'espère avoir été clair dans ma formulation. En espérant un petit coup de main... Merci à tous.

[eric4459]

Aragofax
Essayes ceci:

Code :

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

Nom_de_ta_UserForm.TextBox1.Value =Cells("A" & i)& & Cells ("B" & i)& & la valeur de la cellule du CmbPRODUITS associé ' Textbox1 doit être remplacé par le nom de ta TextBox, il peut s'agir de TextBox2 ou 3 (Vérifie dans les propriété de ta TextBOX)

Eric

[COCONUT2]

dans ce cas , j'utiliserais bien des boucles :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
private sub CmbBox.change ()
 
dim c as cells '(ou range)
 
'1 Récupere le numéro de colonne 
for each c in MODELE
       if c.value = CmbPRODUITS then
               macolonne=c.column
               exit for
       end if
next
 
'2 Parcourt la colonne pour récupérer le texte à noter
for i = 2 to 10
        if not cells(i,macolonne) isempty then  'on verifie que la cellule n'est pas vide
                montexte = montexte & " " &  cells(i,macolonne)
         end if
next
'3 je colle ce texte dans le txtbox
txtbox.value = montexte
 
end sub

[Aragofax]

Bonsoir Eric4459 et COCONUT2,

je vous remercie pour votre réponse rapide. j'ai essayé la méthode d'Eric mais il manque la boucle pour prendre en compte les cellules de la colonne MODELE sélectionné.

Par contre la méthode de COCONUT2 me semble adéquate. Toutefois, vu mon niveau de maîtrise en algorithmique (très débutant), je ne comprend pas la variable macolonne et montexte.

Je dois déclarer des variables?

En vous remerciant d'avance.

[Aragofax]

RE

J'ai réussi à faire fonctionner le code associé à mon classeur mais il y'a un bug au niveau de cette ligne

Code :

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

 montexte = montexte & " " &  cells(i,macolonne)

je n'arrive pas à prendre les données de la colonne A, de la colonne B ainsi que la "macolonne"
pour en faire un texte.

Cad CLIENT(ADRESSE):MODELE