Initilalisation user

roro69

XLDnaute Impliqué

• 23 Novembre 2011

• #2

Re : Initilalisation user

Bonsoir
a voir dans la procédure de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive l'évènement
Application.EnableEvents = False
UserForm1.TextBox1.Value = Feuil2.Range("B3").Value

'Réactive l'évènement
Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

D

dra72

XLDnaute Occasionnel

• 23 Novembre 2011

• #3

Re : Initilalisation user

Bonsoir,

Dans Private Sub Worksheet_Change(ByVal Target As Range)

insérer

Code:

 If Target.Address = "$B$3" Then
  UserForm1.TextBox1.Text = Sheets("Feuil2").Range("B3")
End If

Bonne soirée

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 23 Novembre 2011

• #4

Re : Initilalisation user

Bonsoir roro69 et dra72,
Merci pour vos réponses apportées mais à l'ouverture USER la valeur b3 n'est pas réprise dans la textbox1
A+

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 23 Novembre 2011

• #5

Re : Initilalisation user

RE
est ce que dans la procédure d'initialize de ton userform tu as bien garder la ligne comme ceci?

Private Sub UserForm_Initialize()
Userform1.TextBox1.Value = Sheets("Feuil2").Range("B3").Value
End Sub

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 23 Novembre 2011

• #6

Re : Initilalisation user

roro69,

RE, oui
A+

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 23 Novembre 2011

• #7

Re : Initilalisation user

Bonsoir,
RE
Pour arriver au résultat voulu, pour que la valeur b3 soit pris en compte dans textbox1
Private Sub CommandButton1_Click()
Unload Userform1
Userform1.Show vbModeless
End Sub
C'est ok, mais !!!!!
A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2011

• #8

Re : Initilalisation user

Bonjour,

bizarre fonctionne chez moi avec l'événement "change"... A voir comment est modifiée la cellule, si elle contient une formule, peut être utiliser l'événement "calculate" de la feuille :

Code:

Option Explicit
Private Sub Worksheet_Calculate()
UserForm1.TextBox1.Text = Range("B3")
End Sub

sinon peut être mettre un petit fichier en pièce jointe représentant uniquement le problème posé...

bonne journée
@+

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 24 Novembre 2011

• #9

Re : Initilalisation user

Bonsoir Pierrot93,

Bien joué, c'est ok.
Encore merci à toi, à roro69 et dra72,
Bonne soirée.
A+

 

Vote positif 0 Vote négatif