[VBA-E] Effacement de cellules et fonction sur un CommandButton crée dynamiquement

Version imprimable

Bonjour,
J'aurais 2 petites questions en VB-E
1) Comment faire pour effacer le contenu d'une "zone" de cases sur une feuille Exel ?
Avec cells(8,"C")="" j'arrive à effacer la case 8-C mais je n'arrive pas a effacer une zone ( un rectangle par exemple) de cases a cause de la lettre, parce que sinon deux boucles for imbriquées suffiraient...
2) Je creer "dynamiquement" un Commandbouton via le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set Pge = Me.MultiPage1.Pages(1) '2eme page du multipage For j = 1 To x 'boucle pour créer les frames Set Frme = Pge.Controls.Add("Forms.Frame.1", "test" & j) '[...] 'creer les boutons commande Set CmdA = Frme.Add("forms.CommandButton.1") With CmdA .Caption = "valider" .Left = 170 .Top = 14 .Width = 50 .Height = 18 End With '[...] next j
Comment executer une fonction lors de l'appui sur ce bouton ?

merci bien

02/05/2006, 08h58
SfJ5Rpw8
1. Voir range...:f1: , Range("A1:B4")..... ou range(Cells(1,1),Cells(2,2)..
2. ...
02/05/2006, 09h39
clochardevobsy

merci pour la réponse à la question 1. Je connais VB6 mais la, c'est mon premier programme avec Excel, il me faut un ptit temps d'adaptation aux nouvelles "fonctions".

En ce qui concerne le "...", réponse à la question 2 ; Le "..." veus dire que la réponse est "bête" et que j'ai mal cherché ? ou que toi, "expert confirmé " :p tu cale aussi ?
02/05/2006, 09h56
SfJ5Rpw8

ben pour le 2... déjà la phrase

Citation:

Envoyé par clochardevobsy

Comment executer une fonction lors de l'appui sur ce bouton ?

n'est pas claire ..? ( C'. ensuite je ne m'amuse pas souvent à créer dynamiquement des contrôles... essai quand même d'être un peu plus clair sur la nature des fonctions à exécuter .... existent-elle avant la création du bouton ...? etc...
02/05/2006, 10h16
clochardevobsy

Oui, la fonction existe avant la création du bouton.
C'est une fonction que j'utilise plusieurs fois dans mon programme sur différent boutons/événements, elle permet de vérifier le contenu d'une textbox.
j'aimerais l'executer lors de l'appui sur ce bouton.

bonjour

si la question fait suite à tes fils de discussions précédents , tu ne pourras pas procéder de la meme maniere . l'UserForm devra prealablement etre fermé pour que les boutons et les macros créés dynamiquement soient opérationnels

un exemple pour ajouter un bouton dans un UserForm
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Dim USF As vbcomponent Dim Ctrl As CommandButton Dim Code As String Set USF = ThisWorkbook.VBProject.VBComponents("UserForm1") 'Créer le nouveau bouton Set Ctrl = USF.Designer.Controls.Add("forms.CommandButton.1") With Ctrl .Name = "leBouton" .Caption = "OK" End With Code = "Private Sub leBouton_Click()" & vbCrLf Code = Code & "MsgBox ""Coucou """ & vbCrLf Code = Code & "End Sub" With USF.CodeModule .InsertLines .CountOfLines + 1, Code End With 'Affiche l'USF VBA.UserForms.Add(USF.Name).Show 'Supprime le bouton créé dynamiquement USF.Designer.Controls.Remove "leBouton" 'suppression macro : à adapter 'With USF.CodeModule '.deleteLines 2, 4 'End With
bonne journée
michel

02/05/2006, 11h59
clochardevobsy

je venais justement de trouver un code qui ressemble au tiens Silky et je le testait...
Erreur automation:
L'objet invoqué s'est déconnecté de ses clients"

J'image que c'est du a:

Citation:

l'UserForm devra prealablement etre fermé pour que les boutons et les macros créés dynamiquement soient opérationnels

Le probléme c'est que je n'ai qu'une seule Userform dans mon apply :? si je doit la quitter pour sa, sa va pas être super :(

bon, v réfléchir a table ^^

tiens pour la digestion si cela peu t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private WithEvents MonBouton As CommandButton
Private Sub CommandButton1_Click()
Set MonBouton = Controls.Add("forms.CommandButton.1", "MonButton")
    With MonBouton
        .Caption = "valider"
        .Left = 170
        .Top = 14
        .Width = 50
        .Height = 18
        .Name = "MonBouton"
    End With
End Sub
Private Sub MonBouton_Click()
 MsgBox "hello"
End Sub

02/05/2006, 15h43
clochardevobsy

Oui, c'est exactement ce que j'ai fait pour d'autres "contrôles".

Mais dans le cas de mes CommandButton, je ne sais pas le nombre qu'il y en auras dans la page, c'est a l'utilisateur de choisir...
Changer le nom lors de la création du bouton est simple (.name="mon_bouton_" & j par exemple)

mais je ne peut pas creer une fonction pour chaque bouton de cette manière.

enfin bref, j'ai tout de même eu les réponses que j'attendait, merci a tous les deux Bbil et Silky. J'ai décidé de changer le principe de saisie de l'utilisateur, je ne m'embêterai plus avec la création de contrôles dynamiquement :P
02/05/2006, 18h57
SilkyRoad

bonsoir

pour ma culture générale (meme si le sujet est résolu) , peux tu préciser quels types de fonctions tu souhaitais déclencher depuis les boutons créés dynamiquement ...

bonne soiree
michel
03/05/2006, 11h34
clochardevobsy

Sans entrer dans les détails,
Je devait vérifier la saisie d'une textbox, vérifier si le nombre entré dans la textbox situé a côté
du bouton était "compatible" avec les autres données saisies auparavant...

If TextBox4 = "" Or Not IsNumeric(TextBox4) Or TextBox4.Value < 0 Then Exit Sub
' puis une série de calculs ...
' actualiser l'affichage etc...

J'ai réussis a refaire tous mon travail sans avoir recours a la création dynamique de contrôle. j'ai
creer seulement 2 frames dans lesquels je changent les valeurs en fonction du scroll.value. J'arrive
ainsi a simuler les X frames nécessaires.