Discussion :

[Maxou 10]

Bonjour à tous,

J'aimerais pouvoir mettre le résultat de ma combobox en colonne AA si dans la feuille1 plage H5:H28 & " " & I5:I28 = feuille2 plage F4:F27.

Si je trouve feuille1 H9 & " " & I9 = feuille2 F8 alors feuille1 AA9 = combobox.value

J'ai fait ce code mais il ne fonctionne pas comme il faut, ma combobox rempli toutes mes cellules de AA5 à AA28....

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
Private Sub ComboBoxAffectation_Change()
    Dim ws00 As Worksheet, ws11 As Worksheet
    Dim i As Integer, j As Integer
 
    Set ws00 = Worksheets("feuille1")
    Set ws11 = Worksheets("feuille2")
 
    For i = 5 To 28
    For j = 4 To 27
        If ws00.Cells(i, 8).Value & " " & ws00.Cells(i, 9).Value = ws11.Cells(j, 6).Value Then
            ws00.Cells(i, 27).Value = Me.ComboBox1.Value
            Me.ComboBox1.Visible = False
        End If
    Next j
    Next i
End Sub

Merci une fois de plus pour l'aide que vous m'apporter.

[tototiti2008]

Bonjour,

essaie de remplacer

Code :

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

1
2
 For j = 4 To 27
Next j

par

Code :

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

j=i-1

[Maxou 10]

Merci pour ton aide

Il me met une erreur de syntaxe quand je remplace j = 4 to 27 par j = i - 1.

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
Private Sub ComboBox1_Change()
    Dim ws00 As Worksheet, ws11 As Worksheet
    Dim i As Long, j As Long
 
    Set ws00 = Worksheets("feuille1")
    Set ws11 = Worksheets("feuille2")
 
    For i = 5 To 28
    For j = i - 1
        If ws00.Cells(i, 8).Value & " " & ws00.Cells(i, 9).Value = ws11.Cells(j, 6).Value Then
            ws00.Cells(j, 27).Value = Me.ComboBox1.Value
            Me.ComboBox1.Visible = False
        End If
    Next j
    Next i
End Sub

j'ai essayer aussi ce code mais il me fait la même chose...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ComboBox1_Change()
    Dim ws00 As Worksheet, ws11 As Worksheet
    Dim i As Long, j As Long
 
    Set ws00 = Worksheets("feuille1")
    Set ws11 = Worksheets("feuille2")
 
    For i = 5 To 28
        If ws00.Cells(i, 8).Value & " " & ws00.Cells(i, 9).Value = ws11.Cells(i - 1, 6).Value Then
            ws00.Cells(i - 1, 27).Value = Me.ComboBox1.Value
            Me.ComboBox1.Visible = False
        End If
    Next i
End Sub

Encore merci

[tototiti2008]

Re,

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
Private Sub ComboBoxAffectation_Change()
    Dim ws00 As Worksheet, ws11 As Worksheet
    Dim i As Integer, j As Integer
 
    Set ws00 = Worksheets("feuille1")
    Set ws11 = Worksheets("feuille2")
 
    For i = 5 To 28
    j=i-1
        If ws00.Cells(i, 8).Value & " " & ws00.Cells(i, 9).Value = ws11.Cells(j, 6).Value Then
            ws00.Cells(i, 27).Value = Me.ComboBox1.Value
            Me.ComboBox1.Visible = False
        End If
    Next i
End Sub

[Maxou 10]

Je ne comprend pas pourquoi mais avec ce code aussi cela me rempli toutes mes lignes de AA5 à AA28 avec la valeur de ma conbobox.
J'aimerais que cela remplisse AA uniquement sur la ligne avec les valeurs égale....

Re,

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
Private Sub ComboBoxAffectation_Change()
    Dim ws00 As Worksheet, ws11 As Worksheet
    Dim i As Integer, j As Integer
 
    Set ws00 = Worksheets("feuille1")
    Set ws11 = Worksheets("feuille2")
 
    For i = 5 To 28
    j=i-1
        If ws00.Cells(i, 8).Value & " " & ws00.Cells(i, 9).Value = ws11.Cells(j, 6).Value Then
            ws00.Cells(i, 27).Value = Me.ComboBox1.Value
            Me.ComboBox1.Visible = False
        End If
    Next i
End Sub

[Maxou 10]

J'ai réussi a obtenir ce que je voulais avec ce 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
Private Sub ComboBox1_Change()
    Dim ws00 As Worksheet, ws11 As Worksheet
    Dim adresseCellule As String
 
    Set ws00 = Worksheets("feuille1")
    Set ws11 = Worksheets("feuille2")
 
    adresseCellule = ws11.Application.ActiveCell.Address
 
    With ws00
        .Range(adresseCellule).Offset(1, 17) = Me.ComboBox1.Value
        Me.ComboBox1.Visible = False
    End With
 
End Sub

Merci pour votre aide.