Userform combinée, à 1ère vue compliquée, ms pas tant que ça ;-)

@

@+Thierry

Guest

• 29 Juin 2004

• #16

Re Lapou....

Il y a deux types de boutons... Car il y a deux types de barre d'outils :



Pour la 1)
Tu Click à droite sur le bouton et tu assignes une macro de ce type (qui sera dans un Module Standard :

Sub MontreUSF ()
UserForm1.Show
End Sub

Pour la 2)
Tu Doubles-Click sur le bouton quand tu viens à peine de le dessiner et tu te retrouves dans le Private Module de la Feuille où se trouve le bouton... Tu auras ce code déjà fait...
Private Sub CommandButton1_Click()

End Sub

Que rajouteras-tu entre ces deux lignes............ Je te le dis ?

Et oui c'est comme l'autre....


Trouvé ?

Alors bravo !!!

Et bonne découverte du VBA.... Sans vouloir t'offusquer Lapou, tu devrais quand même t'acheter un bouquin pour avoir quelques bases de programmation VBA car sinon tu vas galérer pas mal... (Enfin on est là !!)

Bonne Après Midi
@+Thierry

 

Vote positif 0 Vote négatif

L

lapou

Guest

• 30 Juin 2004

• #17

Salut Thierry et le forum !!!

Je sais je suis lourd scuse moi :---(

Mais now c'est bon j'y suis arrivé ;-)

Ne t'en fais pas je ne suis pas offusqué par ton conseil bien au contraire j'y pense mais c'est l'investissement qui me freine un peu alors si tu as des conseils ;-)
Et quand je vois l'efficacité de ce forum ça m'incite pas à chercher moi-même ;-) mais ça c'est en partie de la faute à chacun d'entre vous qui êtes trop fort

Bonne journée, je retourne essayé de finir tt ça ;-)
Tchao

 

Vote positif 0 Vote négatif

L

lapou

Guest

• 30 Juin 2004

• #18

Re: USERFORM combinée, une dernière précision ;-)

Re Bonjour tout le monde !!!

Avec la Userform, les textbow pour "position" et "fufus" doivent recevoir uniquement des chiffres !
Or pour l'instant, j'ai l'impression qu'il ne met pas le bon format et les mise en forme conditionnelent que j'ai sur ces 2 colonnes ne fonctionne pas.
J'ai le tit icone attention qui me propose d'"ignorer l'erreur",de "convertir en nombre",...et quand je fais ce dernier cela marche nickel.
j'espère que j'ai été assez clair dans mon explication ;-)

Merci beaucouppppppppppppppppppppppppp !

Tchao

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 30 Juin 2004

• #19

Salut Lapou, le Forum

Ah oui je vois, dans ce cas tu devras abandonner la boucle :
'pour les TextBox 2 to 5...
For C = 2 To 5
.Cells(L, C) = Controls("TextBox" & C)
Next

Mais te contenter d'un code comme ceci alors
.Cell(L,2) = Texbox2
.Cell(L,3) = Texbox3
.Cell(L,4) = CInt(Texbox4)
.Cell(L,5) = Texbox5

Ici c'est la Texbox4 qui contient une valeur numérique...

On pourrait tout de même éviter toutes ces lignes dans le cas d'un grand nombre de TextBoxes à reporter avec une boucle comme ceci :

For C = 2 To 5
If Not C = 4 Then
.Cells(L, C) = Controls("TextBox" & C)
Else
.Cells(L, C) = CInt(Controls("TextBox" & C))
End If
Next

Ce code ferait exactement la même chose que celui précédemment exposé.

Maintenant nommer des TextBox "position" et "fufus" n'est vrament pas très conventionnel... Prends l'habitude d'adopter des Noms Clairs (exemple "TxbPosition") qui permettra au premier coup d'oeil d'identifier le type de Contrôle et de ne pas le confondre avec une Variable... (Quant à "fufus" alors là !! lol)

Bonne Journée
@+Thierry

 

Vote positif 0 Vote négatif

L

lapou

Guest

• 30 Juin 2004

• #20

Merci Thierry, quelle maîtrise cela marche à merveille !!!

Pour nommer mes textboxes différement, cela viendra quand j'aurais atteins ton niveau, si je l'atteins un jour...

Bonne jourée ;-)
Tchao

 

Vote positif 0 Vote négatif

L

Lapou

Guest

• 1 Juillet 2004

• #21

Bonjour Thierry, le Forum !!!

Une précision : lorsque je valide une perfs, je vide ttes les textboxes si l'option est cochée, ça c'est nickel !!!
Mais peut-on faire pareil pour la listbox ?

Merci beaucoup

Bonne journée !

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 1 Juillet 2004

• #22

Bonjour Lapou, le Forum

Oui Lapou, pour une ListBox, tu peux faire ceci :
ListBox1.Clear

Pour toutes les ListBoxs...

Private Sub TheCleaner() '<<<<< MACRO DE NETTOYAGE DES TEXTBOXS
Dim CTRL As Control '<<<<<<<<<< Déclaration de Variable de Type Objet "Control"

'ICI Une Boucle sur cahque Controls avec un test sur le Nom (4 Première Lettres) pour
' Vérifier qu'on ne va vider ques des "TEXT"Box...des "COMBO"Box.... des "LIST"Box
For Each CTRL In Controls
If Left(CTRL.Name, 4) = "Text" Or Left(CTRL.Name, 5) = "Combo" Then
CTRL.Value = ""
ElseIf Left(CTRL.Name, 4) = "List" Then
CTRL.Clear
End If
Next CTRL

End Sub

Bonne Journée
@+Thierry

 

Vote positif 0 Vote négatif

L

Lapou

Guest

• 1 Juillet 2004

• #23

Bonjour Thierry !!!

ben en fait ça me vide la listbox ! j'aurais plutôt voulu que les 5 items que j'aurais selectionné se desélectionne simplement ;-)

Merci
Bonne journée ;-)
Tchao

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 1 Juillet 2004

• #24

Re Lapou, le Forum

Et Bien moi je lis le Français (lol) "Une précision : lorsque je valide une perfs, je vide ttes les textboxes si l'option est cochée, ça c'est nickel !!!
Mais peut-on faire pareil pour la listbox ?"

C'est vrai que çà pouvait sembler un peu bizarre comme demande mais le client est roi !!! lol

Bon sinon alors pour délectionner les items d'une ListBox...

Private Sub DeSelector()
Dim i As Byte
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
Next
End Sub

Bon App
@+Thierry

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 1 Juillet 2004

• #25

tiens j'ai inventé un nouveau mot !!!

Délectionner les items qui est donc le contraire de Sélectionner !!! lol

Bon App
@+Thierry

 

Vote positif 0 Vote négatif

L

Lapou

Guest

• 1 Juillet 2004

• #26

merci Thierry je test ça dès que j'ai un moment ;-)

 

Vote positif 0 Vote négatif

L

Lapou

Guest

• 1 Juillet 2004

• #27

Re Thierry !!!

ben le code ne déselectionne rien mon Titi !!!

Merciiiiiiiiiiiiiiiiiiiiiiiiii !!!

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 2 Juillet 2004

• #28

Bonjour Lapou, le Forum

Mais si, mais si, je suis formel !!!

Je pense simplement que tu n'as pas placé ce code comme il faut...

'ICI Une Boucle sur cahque Controls avec un test sur le Nom (4 Première Lettres) pour
' Vérifier qu'on ne va vider ques des "TEXT"Box...des "COMBO"Box.... des "LIST"Box
Dim i As Byte
For Each CTRL In Controls
If Left(CTRL.Name, 4) = "Text" Or Left(CTRL.Name, 5) = "Combo" Then
CTRL.Value = ""
ElseIf Left(CTRL.Name, 4) = "List" Then
For i = 0 To CTRL.ListCount - 1
CTRL.Selected(i) = False
Next
End If
Next CTRL

NB pour autant que tu es au moins une "ListBox" nommée "Listxxxxxx" et surtout pas d'autre type de Contrôles ActiveX que "ListBox" nommés "Listxxxxxxxxxxx"

Bon App
@+Thierry

 

Vote positif 0 Vote négatif

L

Lapou

Guest

• 2 Juillet 2004

• #29

Coucou Thierryyyyyyyyyyyyyyyyy !!!

Effectivement cela va beaucoup mieux comme cela ;-)

Enorme Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii !!!
Tchao

 

Vote positif 0 Vote négatif