Intégrer une formule a un code

[Myst]

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

 

[Staple1600]

Re : Intégrer une formule a un code

Bonsoir à tous

Myst
Ne pas joindre de fichier exemple est la meilleure solution pour voir sa question rester sans proposition de solutions.
Tu sais ce qu'il te reste à faire pour inverser la tendance 😉

 

[Myst]

Re : Intégrer une formule a un code

Bonsoir a tous
Staple1600 a raison ,j'ajoute donc le fichier
l'idée serait de copier la formule "=RC1-INDEX(R3C1:R22C1,MATCH(RC6,R3C5:R22C5,0))" dans la dernière cellule vide de la colonne H en cliquant sur le bouton Valider de l'UserForm "changement_de_lames"
La formule est le résultat de =$A4-INDEX($A$3:$A$22;EQUIV($F4;$E$3:$E$22;0)) après l'avoir enregistré via macro
merci

 

[Staple1600]

Re : Intégrer une formule a un code

Re

Essaies avec ton code ainsi modifié

Private Sub CommandButton1_Click()
If ComboBox2.ListIndex = -1 Then
MsgBox "saisie du N° de machine obligatoire", vbExclamation
Exit Sub
End If

If ComboBox4.ListIndex = -1 Then
MsgBox "saisie du N° de Matcou obligatoire", vbExclamation
Exit Sub
End If

'bouton VALIDER enregistre les données saisie puis ferme la boite de dialogue'
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
      'ici recopie la formule présente en colonne H
      .Cells(derligne - 1, "H").Resize(2).FillDown
     End With
    TextBox2 = ""
   End
End Sub

 

[Myst]

Re : Intégrer une formule a un code

Bonjour Staple 1600
Désoler pour la réponse un peu tardive mais je suis sur plusieurs fichiers et j'avais délaisser celui la
donc ta solution est nickel et je t'en remercie
joyeux noël