Discussion :

[cycy55]

Bonjour à tous
Je tiens à remercier d'avance toute les personnes qui porterait attention à ma question

Je souhaiterais réaliser un programme de selection et de recherche de données dans excel avec VBA. Je souhaiterais savoir comment à partir d'une combobox je pourrais selectionner des valeurs dans un tableau.
Par exemple(voir piece jointe doc 2), si dans ma combobox correspondant au facteur à analyser, j'ai selectionné "poids parcellaire", il faudrait que les valeurs situées dans la colonne H (correspondant au poids parcellaire) soient selectionnées...et cela à partir de la ligne 19...
De même, si dans ma combobox correspondant au facteur à analyser, j'ai selectionné "humidité", il faudrait que les valeurs situées dans la colonne I (correspondant à l'humidité) soient selectionnées...et cela à partir de la ligne 19...
Si quelqu'un aurait une idée de code ou de fonction à utiliser je suis preneur.
Encore merci

Doc2.docx

[unparia]

Bonjour
A partir de quelle étape "coinces-tu" ?
Celle du code pour savoir ce que tu as sélectionné ou celle, cette première étape étant passée, de l'alimentation de ton tableau ?
Peux-tu par ailleurs nous préciser ce que tu entends très exactement par "tableau" ?

[cycy55]

Le tableau où je souhaite sélectionner les valeurs (B18:L36).
Pour exemple; J'ai réalisé une boucle : si "poids parcellaire" apparait en H9 (If Range("H9").Value Like "*parcellaire*" Then ) alors sélectionner la colonne H à partir de la ligne 19.
C'est cette dernière partie (en gras) que je n'arrive pas à retranscrire en code VBA...

[Docmarti]

Bonjour.

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
Sub cycy55()
Set f = Worksheets("Feuil1")
 
Set tableau = f.Range("B18:L36")
 
'Selectionner colonne H de 19 a 36
ligne1 = tableau.Row + 1
ligne2 = tableau.Row + tableau.Rows.Count - 1
col1 = "H"
col2 = "H"
Set r = f.Range(f.Cells(ligne1, col1), f.Cells(ligne2, col2))
r.Parent.Activate
r.Select
 
End Sub

[cycy55]

Merci beaucoup Docmarti cela marche bien!
Je pensais maintenant faire le lien entre : Si ma valeur de ma combobox est "poids parcellaire " alors selectionner les valeurs de H19 à H36 mais j'ai un petit soucis car la selection des valeurs de H19 à H36 se fait même si "poids parcellaire" n'est pas selectionné dans ma combobox... voici le code :

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
Private Sub UserForm_Initialize()
'pour retranscrir les valeurs des cellules de H9 à S9 dans une combobox
Dim i As Range
    With ActiveSheet
    Set i = .Range("H9:S9")
    End With
Facteuranalyser.List = Application.Transpose(Feuil1.Range("H9:S9").Value)
 
Set f = Worksheets("Feuil1")
 
Set tableau = f.Range("B18:L36")
 
'Selectionner colonne H de 19 a 36
ligne1 = tableau.Row + 1
ligne2 = tableau.Row + tableau.Rows.Count - 1
col1 = "H"
col2 = "H"
Set r = f.Range(f.Cells(ligne1, col1), f.Cells(ligne2, col2))
r.Parent.Activate
r.Select
If Me.Facteuranalyser.Value = "Poids parcellaire" Then r.Parent.Activate

Merci d'avance à ceux qui pourront y jeter un coup d'oeil

[Docmarti]

Pour débuter en VBA rapidement, il est fortement conseillé de suivre un cours.

En recherchant sur Google "excel vba pour les debutants formulaire"
tu en trouveras sûrement quelques uns.