au secours!!!! fichier texte

Question

Salut à tous je suis un vrai novice et voilà ce que j'aimerais faire pour me faciliter le vie au travail:

+Société
------------------a  ici un point check
------------------b  ici un point check
------------------c  ici un point check
+Gérant
------------------anom ici un point check
------------------bnom ici un point check
------------------cnom ici un point check

bon voilà et un bouton commande qui va m'imprimer ma sélection selon ce qui est coché. J'ai vu celà dans une application sous une apparence texte.
Est ce possible et comment le réaliser

Dans l'attente de vous lire je vous remercie et à très bientôt.

Doudou

acive · Answer

Salut, sous excel word ou autre tu peux le faire facilement..

A.C.I.V.E SARL
Automatismes Conception Informatique Vidéo Electronique

cs_clafouti · Answer

Je ne sais pas si c'est ce que tu veux faire (ton explication est pas claire du tout), mais essaie ceci :
Met une listbox sur ta feuille et règle la propriété "Style" à "1 - Checkbox". Ainsi chaque élément ajouté à la liste sera précédé d'une case à cocher.

Auteur de PrestoNotes, LE célèbre logiciel freeware de post-its développé en VB. 
Découvrez-le sur http://users.chello.be/cr41007/index.html

doudoufly · Answer

Je sais que je suis pas très claire. l'objectif c'est en cliquant sur le + il me fait défiler des coix et ainsi de suite puis il m'imprime uniquement ce que j'ai sélectionné.

Bon j'essaye avec world mais comment insérer mon contenu world dans un textbox ou autre dans vb.

Merci.

acive · Answer

Alors
pour insérer une image word dans vb t'as un controle dans composants, ojets à insérer, et image microsoft word

puis comme clafouti l'a bien dit tu fais un listbox style = 1
 et il suffit de faire un truc de ce genre:

Private Sub Command1_Click()
Dim Cases(50) As String
qs = 0
For rt = 0 To List1.ListCount - 1
   If List1.Selected(rt) = True Then
      List1.ListIndex = rt
      Cases(qs) = List1.Text
      qs = qs + 1
   End If
Next rt
Cases(qs) = "*"
List1.Clear
For rt = 0 To 50
   If Cases(rt) = "*" Then
      Exit For
   Else
      List1.AddItem Cases(rt)
      List1.Selected(rt) = True
   End If
Next rt
End Sub

éssaye...

A+

A.C.I.V.E SARL
Automatismes Conception Informatique Vidéo Electronique

Au secours!!!! fichier texte

4 réponses

Discussions similaires