Attribuer une formule selon l'Item choisie

[creolia]

Bonjour je reviens vers vous pour un problème


J’ai récupère une macro qui me permet de calculer automatiquement le nombre de jour entre 2 dates

Et

Une autre qui me permet de calculer une date limite à partir d’une date initialement renseigné


Mon problème est que j’ai mis ses formules sur un bouton et il me calcule indifféremment toutes les dates pareilles c'est-à-dire

Pour la formation 1 il faut 10 jours d’écart
Donc :
Textbox1 je rentre 01/01/2001 la Textbox2 calcule 01/01/2001 + 10 jour = 10/01/2001


Pour la formation 2 il faut 20 jours d’écart

Textbox1 je rentre 01/01/2001 la Textbox2 calcule 01/01/2001 + 10 jour = 10/01/2001 le problème donc c’est qu’il me calcule tous les formations a + 10

Ma question la suivante est ce que selon si ont clique sur le type formation ont peut attribuer la formule date+10 ou +20 jour écart


Merci pour votre aide à bientot

 

[Habitude]

Re : Attribuer une formule selon l'Item choisie

Pourquoi ne pas ajouté une colonne dans ton listView
Et ainsi utiliser cette valeur

Voir exemple

 

[creolia]

Re : Attribuer une formule selon l'Item choisie

Bonsoir HABITUDE et merci de te pencher sur mon probleme peut tu me detailler ton idée car en essayant utiliser ton fichier joint ya un bug des le choix du nom

merci pour ton aide

 

[creolia]

Re : Attribuer une formule selon l'Item choisie

j'ai un debut de solution je pense dans le double click au lieu de choisir toute la listview j'ai reussi a isoler les Item

Private Sub ListView1_DblClick() ' double clic sur listview rempli les textbox
With[COLOR="Blue"] ListView1.ListItems(1)[/COLOR] 'les textbox en bas
     NomDeLaFeuilFormation = .ListSubItems(6).Text
     Lig = .ListSubItems(7).Text
     TextBoxDernFormation = .ListSubItems(1).Text
     TextBoxDateLimitRecycl = .ListSubItems(2).Text
     TextBoxPrevisFormation = .ListSubItems(3).Text
     TextBoxComment = .ListSubItems(4).Text
     TextBoxJourRestant = .ListSubItems(5).Text
     ButtonMaJ.Visible = True
End With
End Sub

le probleme c'est quand j'essais de mettre Item du dessous

sa pose probleme il me selectionne a la suite

Private Sub ListView1_DblClick() ' With ListView1.ListItems(1) 'les textbox en bas
     NomDeLaFeuilFormation = .ListSubItems(6).Text
     Lig = .ListSubItems(7).Text
     TextBoxDernFormation = .ListSubItems(1).Text
     TextBoxDateLimitRecycl = .ListSubItems(2).Text
     TextBoxPrevisFormation = .ListSubItems(3).Text
     TextBoxComment = .ListSubItems(4).Text
     TextBoxJourRestant = .ListSubItems(5).Text
     ButtonMaJ.Visible = True
End With

[COLOR="Red"]With ListView1.ListItems(2)[/COLOR]      NomDeLaFeuilFormation = .ListSubItems(6).Text
     Lig = .ListSubItems(7).Text
     TextBoxDernFormation = .ListSubItems(1).Text
     TextBoxDateLimitRecycl = .ListSubItems(2).Text
     TextBoxPrevisFormation = .ListSubItems(3).Text
     TextBoxComment = .ListSubItems(4).Text
     TextBoxJourRestant = .ListSubItems(5).Text
     ButtonMaJ.Visible = True
End With
End Sub

peut etre

Private Sub ListView1.ListItems(1) _DblClick() '
With ListView1.ListItems(1) 'les textbox en bas
NomDeLaFeuilFormation = .ListSubItems(6).Text
Lig = .ListSubItems(7).Text
TextBoxDernFormation = .ListSubItems(1).Text
TextBoxDateLimitRecycl = .ListSubItems(2).Text
TextBoxPrevisFormation = .ListSubItems(3).Text
TextBoxComment = .ListSubItems(4).Text
TextBoxJourRestant = .ListSubItems(5).Text
ButtonMaJ.Visible = True
End With
End Sub

mais sa marche pas non plus

 

[creolia]

Re : Attribuer une formule selon l'Item choisie

Re bon ben la je suis bloquer a savoir comment cliquer sur une ligne de ma listview pour lui attribuer une action

ListView1.ListItems(1)_click
msgbox"test"
end sub

ne marche pas non plus si quelqu'un a une autre idée je suis preneur merci
et bonne soirée

 

[Habitude]

Re : Attribuer une formule selon l'Item choisie

Utilise la fonction

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

End Sub



L' "Item" en paramètre est l'item que tu cherche.

Tu peux faire item.text
item.subitems
etc

 

[creolia]

Re : Attribuer une formule selon l'Item choisie

HABITUDE bonsoir et merci pour ta solution sauf que je pige pas tous

si mon item se nome ListView1.ListItems(1)

et que je souhaite qu'il me lance la macro Modole.5

dois je faire

Private Sub ListView1_ListItems(1)Click(ByVal Item As MSComctlLib.ListItem)
Module.5
End Sub


merci pour ton eclairage sur la question

à bientot

 

[Habitude]

Re : Attribuer une formule selon l'Item choisie

Dans ton code en haut tu as 2 combobox

Celle de gauche tu choisi ton Objet
Dans ce cas, listview1

 

[Habitude]

Re : Attribuer une formule selon l'Item choisie

Dans ton code en haut tu as 2 combobox

Celle de gauche tu choisi ton Objet
Dans ce cas, listview1

Celle de droite tu choisi l'évènement associé à l'objet
Tu prend L'événement Item_click

Cet événement s'active dès que tu choisi un item dans la liste.
Et envoie en paramètre l'item choisi

Tu peux donc effectuer toute les opérations désirer sur cet item.

 

[creolia]

Re : Attribuer une formule selon l'Item choisie

Re bonjour

DSL pour le retard de réponse

j'ai essayer de faire ce qui ma été dit mais je n'y arrive pas quelqu'un aurais t'il un exemple pour que je puisse me situé merci 'avance à bientot

 

[creolia]

Re : Attribuer une formule selon l'Item choisie

re pour etre plus precis je souhaite en cliquand sur la ligne 2 de ma listview

faire apparaitre une textbox ect la 3

et sa je n'y arrive pas

ce que ma donnée habitude me permet de cliquez sur nimporte lequelle d'Item

et ect faire apparaitre un message moi j'aimerais faire afficher une textbox en appuyant sur un Item precis


quelqu'un pourais m'aider


merci

 

[creolia]

Re : Attribuer une formule selon l'Item choisie

re bonsoir une bonne ame svp pour resoudre mon probleme mer bonne soirée

 

[creolia]

Re : Attribuer une formule selon l'Item choisie

re bon j'avance mais tous doucement

rappel

j'ai 71 lignes dans une listview je cherche à faire apparaitre exemple en cliquant sur la ligne 5 de ma listview une textbox cachée et un label cachée


dans ce qui me été donnée cela me permet affichée ce que je veut en cliquant sur la listview et non sur une ligne particuliere de ma listview.

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
MsgBox ListView1.SelectedItem.Index
End Sub

ma question est donc comment en cliquant sur ma 5 eme lignes et uniquement sur la 5 eme puis je faire apparaitre ma textbox et mon label

merci à bientot

 

[ChTi160]

Re : Attribuer une formule selon l'Item choisie

Salut creolia
Bonsoir le Fil
Bonsoir le Forum

Tu aurais donc 71 TextBox et 71 Label masqués ou pas ????

Y'a t'il un rapport entre la ligne de ta ListView sélectionnez et le numéro de tes TextBox et Label
exemple Ligne 5 sélectionnée donc Textbox5 et label5 Visibles
si j'ai compris

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
'on affiche le message que si l'index et le 5
If ListView1.SelectedItem.Index = 5 then MsgBox ListView1.SelectedItem.Index
End Sub

Bonne fin de Soirée

 

[ChTi160]

Re : Attribuer une formule selon l'Item choisie

Re
Une autre adaptation

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
'on affiche les deux objets que si l'index et le 5
If ListView1.SelectedItem.Index = 5 Then
Me .TextBox5.visible =True
Me .Label5.visible =True
Else 'sinon on cache
Me .TextBox5.visible =False
Me .Label5.visible =False
End If
End Sub

Bonne fin de Soirée