Problème de syntaxe

Leskwal · 10 Juin 2014

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 · 10 Juin 2014

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 · 10 Juin 2014

Re : Problème de syntaxe

Bonjour,

Essayez

Code:

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 · 10 Juin 2014

Re : Problème de syntaxe

Merci à vous.

PARFAIT !!!

Très cordialement

Pascal

Problème de syntaxe

Leskwal

XLDnaute Occasionnel

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

PMO2

XLDnaute Accro

Leskwal

XLDnaute Occasionnel

Discussions similaires

Problème de syntaxe

Leskwal

XLDnaute Occasionnel

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

PMO2

XLDnaute Accro

Leskwal

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency