Problème de syntaxe

[Leskwal]

Bonjour le forum

Un p'tit problème de syntaxe.

Je souhaite lorsque je remplie la cellule A1, onglet "Donnee", que 2 textboxes, onglet "LDF-Préstations (Avec PJ))" se remplissent automatiquement de la valeur "A1" (avec boucle for, next )

Voir pièce jointe.

Merci d'avance pour vos réponses

Pascal

 

[gilbert_RGI]

Re : Problème de syntaxe

Bonjour

comme ceci peut-être

Private Sub Worksheet_Change(ByVal Target As Range)
Dim F5 As Worksheet
Dim A As Integer
A = 0
Set F5 = Worksheets("LDF-Préstations (Avec PJ)")
With F5
For A = 1 To 2
.OLEObjects("Textbox" & A).Object.Value = Worksheets("Donnee").Range("A1").Value
Next A
End With
End Sub

 

[PMO2]

Re : Problème de syntaxe

Bonjour,

Essayez

Private Sub Worksheet_Change(ByVal Target As Range)
Dim S As Worksheet
Dim OL As OLEObject
Dim TB As MSForms.TextBox
'---
If Target.Address = "$A$1" Then
  Set S = Worksheets("LDF-Préstations (Avec PJ)")
  For Each OL In S.OLEObjects
    If OL.Name = "TextBox1" Or OL.Name = "TextBox2" Then
      Set TB = OL.Object
      TB.Value = Target
    End If
  Next OL
End If
End Sub

 

[Leskwal]

Re : Problème de syntaxe

Merci à vous.

PARFAIT !!!

Très cordialement

Pascal