• Initiateur de la discussion Initiateur de la discussion Julien
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

Julien

Guest
Bonjour à tous,

Je développe actuellement un client OPC avec Excel et VBA et j'ai quelques petits problemes...

Je crée des bouton et leur code dans une feuille excel (dynamiquement, meme nombre de boutons que d'items crées dans le serveur OPC).
J ai l 'impression de perdre a un moment ou a un autre le control de mon programme car:

1º: je ne peux plus entrer en debug pas a pas (des que je cree le premier bouton)
2º: mes connections OPC ne se font plus...

Les lignes pour creer les boutons sont les suivantes (j utilise les OLE objects mais mal apparement...):

For i = 1 To UBound(Item)
Hoja1.Range("A" & (i + 1)).Value = Item(i)
Hoja1.Range("B" & (i + 1)).Value = ""
Set Butt = Hoja1.OLEObjects.Add("Forms.commandbutton.1")
With Butt
.Visible = True
.Top = Hoja1.Range("C" & (i + 1)).Top
.Left = Hoja1.Range("C" & (i + 1)).Left
.Width = Hoja1.Range("C" & (i + 1)).Width
.Height = Hoja1.Range("C" & (i + 1)).Height
.Object.Caption = ""
.Name = "CmdWriteItem" & i
End With
Set Butt = Nothing
ButtonCode = "Sub CmdWriteItem" & i & "_Click()" & vbCrLf
ButtonCode = ButtonCode & "Call ThisWorkBook.WriteOPCItem(""CmdWriteItem" & i & """)" & vbCrLf
ButtonCode = ButtonCode & "End Sub"
With ThisWorkbook.VBProject.VBComponents("Hoja1").CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, ButtonCode
End With
Next i


Si quelqu'un pouvait ou me dire se qui ne va pas ou me conseiller un autre moyen de creer dynamiquement les boutons, j en serait tres heureux.

Merci d avance

Julien
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
505
Réponses
2
Affichages
321
Réponses
0
Affichages
459
Retour