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

ARGENSON

XLDnaute Nouveau
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
 

Pièces jointes

  • Capture.JPG
    Capture.JPG
    44.3 KB · Affichages: 22

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

Si j'étais moi, peut-être que j'écrirai le code ainsi
VB:
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?
 

Discussions similaires