XL 2016 probleme de transfert de valeur textbox dans les cellules d'une feuille

[ARGENSON]

Bonjour le Forum
Je tourne en rond depuis un certain temps car ma macro ci aprés lance des macrofonctions alors qu'elle devrait copier des valeurs de textbox dans des cellules de la feuilles 12.
j'ai :
VBA :
Dans feuilles - 1 Userforme acti les Userforms 2 et 3 sont vide
Dans modele 3 module de macro fonction

L'userforme1 doit simplement transferer les valeurs des Textbox (qui sont formatées) dans les cellules
macro :
Private Sub CommandButton1_Click()
'"Dim insert As Range"
Dim Annuler As Integer
Dim Hygromet As Variant
Dim RowNum As Double

On Error Resume Next

'RowNum = ActiveCell.Row
'ActiveSheet.Cells(8, 6).Select
'ActiveSheet.Cells(8, 6).Activate

Annuler = MsgBox("Assurez vous de l'emplacement de la ligne" & _
Chr(13) & _
"de la cellule active pour l'insertion des données?" & _
Chr(13) & _
"Sinon annulez et repositionnez-vous à l'endroit.", _
vbOKCancel + vbInformation, "Insertion désignation du module")

Stop
If Annuler = 2 Then End


ActiveSheet.Cells(8, 6).Value = Val(Me.TextBox1)
ActiveSheet.Cells(10, 6).Value = Val(Me.TextBox3) / 100
ActiveSheet.Cells(12, 6).Value = Val(Me.TextBox4)
ActiveSheet.Cells(8, 14).Value = Val(Me.TextBox2)

Stop

Unload UserForm1
aprés la ligne "ActiveSheet.Cells(8, 6).Value = Val(Me.TextBox1)" je lance une macro fonction et boucle sur plusieur macro fonction alors que je n'ai aucune macro fonction sur ma feuille excel. si je supprime la ligne "ActiveSheet.Cells(10, 6).Value = Val(Me.TextBox3) / 100" la macro se déroule sans probléme
End Sub

Merci de votre aide car je ne comprend pas ce qu'i ce passe

 

[Staple1600]

Bonsoir le fil

Si j'étais moi, peut-être que j'écrirai le code ainsi

Private Sub CommandButton1_Click()
Annuler = MsgBox("Assurez vous de l'emplacement de la ligne" & Chr(13) & _
"de la cellule active pour l'insertion des données?" & Chr(13) & _
"Sinon annulez et repositionnez-vous à l'endroit.", 65, "Insertion désignation du module")
Select Case Annuler
Case 1
Cells(8, 6).Value = Val(Me.TextBox1)
Cells(10, 6).Value = Val(Me.TextBox3) / 100
Cells(12, 6).Value = Val(Me.TextBox4)
Cells(8, 14).Value = Val(Me.TextBox2)
Case Else
Unload UserForm1
End Select
End Sub

Qu'en penses-tu?

 

[ARGENSON]

Bonjour Staple 1600
Cela fonctionne mais j'ai mis le Unload aprés le End select car le unload ne se faisiat pas
Merci à toi
Cordialement

 

[Staple1600]

Re

Le unload se faisait si tu cliques sur Annuler
(C'est pourquoi je l'avais mis là où je l'avais mis)
😉

 

[ARGENSON]

OK,
j'ai compris
merci encore
🙂🙂