Rafraichir textbox dans userform

vandewinkel à dit:

Si je change la valeur dans a1 ou a2

Cliquez pour agrandir...

Sub voirUserform1()
UserForm1.Show [COLOR="Red"]0[/COLOR] 'ou [COLOR="red"]vbModeless[/COLOR]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
On Error Resume Next
For i = 1 To 60
Userform1.Controls("TextBox" & i) = Range("A" & i)
Next
End Sub

job75 à dit:

Bonjour vandewinkel,



Normalement on ne peut pas modifier une feuille quand l'UserForm est affiché, pour cela il faut l'ouvrir en non modal :

Code:

Sub voirUserform1()
UserForm1.Show [COLOR="Red"]0[/COLOR] 'ou [COLOR="red"]vbModeless[/COLOR]
End Sub

Ensuite une macro Change (dans le code de la feuille) modifiera les TextBox :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
On Error Resume Next
For i = 1 To 60
Userform1.Controls("TextBox" & i) = Range("A" & i)
Next
End Sub

A+

Cliquez pour agrandir...