Myst
XLDnaute Occasionnel
Bonjour
j'ai une formule dans toutes les cellules de la colonne "H" de mon tableau et je voudrais que le resultat de cette formule ( "=RC1-INDEX(R3C1:R22C1,MATCH(RC6,R3C5:R22C5,0))" ) s'affiche par code mais je n'arrive pas a l'intégrer au code ci-dessous
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets(ComboBox2 & " " & ComboBox4)
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In Changement_de_lames.Controls
If InStr(Ctrl.Name, "CommandButton") = 0 Then
r = Val(Ctrl.Tag)
If r > 0 Then .Cells(derligne, r) = Ctrl
End If
Next
End With
TextBox2 = ""
End
End Sub
j'ai une formule dans toutes les cellules de la colonne "H" de mon tableau et je voudrais que le resultat de cette formule ( "=RC1-INDEX(R3C1:R22C1,MATCH(RC6,R3C5:R22C5,0))" ) s'affiche par code mais je n'arrive pas a l'intégrer au code ci-dessous
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets(ComboBox2 & " " & ComboBox4)
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In Changement_de_lames.Controls
If InStr(Ctrl.Name, "CommandButton") = 0 Then
r = Val(Ctrl.Tag)
If r > 0 Then .Cells(derligne, r) = Ctrl
End If
Next
End With
TextBox2 = ""
End
End Sub