Discussion :

[Jess1970]

Bonjour à vous,

Voilà, j'ai une question et j'espère enfin trouver ma réponse dans ce forum.

Avec un tableau Excel, j'ai un UserForm avec trois ComboBox et un TextBox. Selon mes données de la ComboBox 1; 2 et 3, je voudrais écrire le texte de ma TextBox dans la cellule cible.
Par Exemple:

Code :

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

Si ComboBox1 = "4008" ; ComboBox2 = "3" ; ComboBox3 = x Alors Cellule "C8" = TextBox1

Mais attention, je ne veux pas indiquer sur le programme comme ça:

Code :

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

If ComboBox1 = "4008" And ComboBox2 = "3" And ComboBox3 ="x" Then Range "C5" = TextBox1

Je veux qu'il y ai une recherche dans le tableau pour trouver la cellule et y écrire le texte de la TextBox

J'espère être assez clair [

[sogedic]

Peut-être que cette solution te conviendras

Code :

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

1
2
3
4
5
6
 
if (..) then
  with Sheets(FEUILLE_A_COMPLETER)
           ' ex .cells(3,Rows(1).Find("NOM").Value = TextBox1
            .Cells(LIGNE OU ECRIRE, .Rows(1).Find(COLUMN A CHERCHER).Column).Value = TextBox1
  end with

[Theze]

Bonjour,

Déjà, si tu utilises un tableau Excel (Insertion--->Tableau) "ListObject" en VBA, il ne faut plus penser feuille Excel mais seulement tableau et travailler sur et avec les objets du tableau :

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
 
Sub Test()
 
    Dim Tbl As ListObject
 
    Set Tbl = Worksheets("Feuil1").ListObjects("Tableau1")
 
    MsgBox Tbl.DataBodyRange.Address(0, 0) 'adresse de la plage utilisée par le tableau pour stocker les données
    MsgBox Tbl.DataBodyRange.Cells(1, 1).Address(0, 0) 'adresse de la première cellule du tableau (hors entête)
    MsgBox Tbl.HeaderRowRange.Address(0, 0) 'adresse des entêtes
    MsgBox Tbl.DataBodyRange.Rows.Count 'nombre de lignes du tableau
    MsgBox Tbl.DataBodyRange.Columns.Count 'nombre de colonnes du tableau
 
    'entre une valeur dans la cellule vide en bas à gauche sous le tableau (elle sera, une fois la valeur entrée, intégrée au tableau)
    With Tbl.DataBodyRange: .Cells(.Rows.Count + 1, 1).Value = "Test": End With
    'etc...
 
End Sub

Le problème, exposé comme tu l'as fait, c'est qu'on ne sait pas quoi et où chercher pour pouvoir insérer la valeur du TextBox dans la bonne cellule !

Si ComboBox1 = "4008" ; ComboBox2 = "3" ; ComboBox3 = x Alors Cellule "C8" = TextBox1

Il faut rechercher les valeurs des trois ComboBox sur la même ligne ?
En attendant un peu plus d'explications !

[Jess1970]

Bonsoir, et merci de m'accorder de votre temps.

Je mets en pièce jointe un fichier afin d'être un peu plus compréhensible

[Theze]

Bonjour,

Testes ceci pour voir si ça convient :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub ComboBox1_Change()
    Valeur
End Sub
 
Private Sub ComboBox2_Change()
    Valeur
End Sub
 
Private Sub ComboBox3_Change()
    Valeur
End Sub
 
Sub Valeur()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Col As Integer
    Dim Lig As Integer
 
    If ComboBox1.Text <> "" And ComboBox2.Text <> "" And ComboBox3.Text <> "" Then
 
        With ActiveSheet: Set Plage = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft)): End With
        Set Cel = Plage.Find(ComboBox1.Text, , xlValues, xlWhole)
        If Not Cel Is Nothing Then Col = Cel.Column
 
        With ActiveSheet: Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
        Set Cel = Plage.Find(ComboBox2.Text, Plage(Plage.Count), xlValues, xlWhole)
        If Not Cel Is Nothing Then Lig = Cel.Row
 
        With ActiveSheet: Set Plage = .Range(.Cells(Lig, 2), .Cells(Lig + 2, 2)): End With
        Set Cel = Plage.Find(ComboBox3.Text, , xlValues, xlWhole)
        If Not Cel Is Nothing Then Lig = Cel.Row
 
        If Lig <> 0 And Col <> 0 Then Cells(Lig, Col).Value = TextBox1.Text
 
    End If
 
End Sub