Code VBA - UserForm - données - cellule
Bonjour à tous,
Je suis tout nouveau ici, depuis hier ! Je tiens à vous remercier car j'ai déjà réussi à trouver beaucoup d'informations hier pour répondre à mes questions.
Aujourd'hui, j'ai une question très précise dont je n'ai pas réussi à trouver la réponse.
Mon projet (ce qui est construit à l'heure actuelle) :
A partir d'une sélection de cellule, lorsque je double Click sur une cellule (dans la zone prédéfinie) une UserForm s'ouvre.
A l'intérieur de cette UserForm, je rentre des valeurs, un calcul s'effectue et j'obtient un résultat.
Aujourd'hui j'ai cela :
Private Sub Text1_Change()
Calcul
End Sub
Private Sub Text2_Change()
Calcul
End Sub
Private Sub Text3_Change()
Calcul
End Sub
Sub Calcul()
Me.Text4 = Val(Replace(Me.Text1, ",", ".")) * Val(Replace(Me.Text2, ",", ".")) * Val(Replace(Me.Text3, ",", "."))
End Sub
Private Sub OK_Click()
If IsNumeric(Text4.Value) Then 'SI valeur numérique ...
Range("X12") = Text4.Value 'Copie en X12
Unload Me 'Fermeture
Else 'SINON ...
MsgBox "Valeur incorrecte, valeur numérique uniquement"
End If
End Sub
Private Sub UserForm2_Initialize()
Me.Text4.Locked = True
End Sub
Private Sub UserForm_Click()
End Sub
Ma question/problématique :
Lorsque je Click sur le bouton "OK" pour valider l'information, le résultat s'affiche uniquement dans une seule cellule (et toujours la même). Je pense que le problème vient du Range ("X12")
-> Je souhaiterai lorsque je Double click dans une des cellules de la zone prédéfini, puis je rentre les données, que le résultat s'affiche uniquement dans la cellule dans laquelle j'ai clické initialement..
D'avance merci
Bonjour,
modifie peut être ceci :
Range("X12") = Text4.Value 'Copie en X12par cela :
ActiveCell = Text4.Value 'Copie en X12bonne journée
@+
C'est PARFAIT !! Merci beaucoup Pierrot93 !