Re : code avec combobox qui ne s'execute pas
Bonjour robert,
En fait , je sais que je dois remplacer OST TEE par OST EEL. je l'ai fait via le code suivant:
---------------------------------------------------------------------
Sub essai2() ' A voir
Dim i, j As Integer
Dim k As Integer
Dim wshO As Worksheet, wshD As Worksheet
Set wshO = ThisWorkbook.Worksheets("feuilleDebord")
Set wshD = ThisWorkbook.Worksheets("OST EEL")
i = 16
j = 4
Dim rRange As Range
Dim vI As Variant
Set rRange = Range([B2], [B65536])
For Each vI In rRange
If UserForm2.CmbLigne.Text = vI Then
k = vI.Row
End If
While i <= 110 And j <= 38
wshD.Cells(k, i).Value = wshO.Cells(j, 8).Value
i = i + 4
j = j + 1
Wend
Exit For
Next vI
End Sub
----------------------------------------------------------------
je veux copier les valeurs de "feuille de bord à OST EEL maisj'ai une erreur 1004 sur la ligne en gras.
J'ai tout esayé, là j'ai vraiment besoin d'aide, merci d'avance et bon aprem