Instruction If ne fonctionne pas ... & question sur keydown

Bonjour,

Pour ma 1ere question :

Je souhaite, en cliquant sur un item, dans la listview rapatrier les données dans le formulaire initial.

J'ai mis 2 instructions if mais qui ne fonctionnent pas. Je ne vois pas mon erreur ... Ces 2 conditions mettes "vrai" des options buttons

Et pour ma 2e question :

J'ai mis l'évènement "keydown" mais il s'active pour l'utilisation de n'importe qu'elle touche. A vrai dire je pense que je m'y prends mal ...

Merci à vous

Private Sub visio_KeyDown(KeyCode As Integer, ByVal Shift As Integer)

Dim lignelistview As Integer

KeyCode = 109

    lignelistview = Me.visio.SelectedItem.Index
    lignetableau = ligne + 1

    With Me

            Num = .visio.ListItems(lignelistview).ListSubItems(1).Text
            datemanuelle = .visio.ListItems(lignelistview).ListSubItems(2).Text
            comm = .visio.ListItems(lignelistview).ListSubItems(3).Text
            lien = .visio.ListItems(lignelistview).ListSubItems(5).Text
                If .visio.ListItems(lignelistview).ListSubItems(2).Text <> Date Then antidater = True
                If .visio.ListItems(lignelistview).ListSubItems(4).Text = oui Then oui = True

    End With

End Sub

Bonsoir,

A+

Hello,

Bonjour BrunoM45,

Je pensais que le code de la macro que j'ai joint allait suffir ? Le reste de mon vba est beaucoup plus volumineux avec des infos que je ne souhaite pas divulger

Salut à tous,

Bon à tête reposé j'ai trouvé mon problème sur les instructions IF.

Pour le 1er If j'ai ajouté dans une variable où je mémorise la date actuellement et a se moment la je la compare

et ensuite pour le 2eme If c'était seulement l'égalité avec "ou"i où il manquait le O majuscule

Il me reste l'histoire du keydown

Private Sub visio_KeyDown(KeyCode As Integer, ByVal Shift As Integer)

Dim lignelistview As Integer, datecomp As Variant

KeyCode = 109

    lignelistview = Me.visio.SelectedItem.Index
    lignetableau = ligne + 1
    datecomp = Date

    With Me

            Num = .visio.ListItems(lignelistview).ListSubItems(1).Text
            datemanuelle = .visio.ListItems(lignelistview).ListSubItems(2).Text
            comm = .visio.ListItems(lignelistview).ListSubItems(3).Text
            lien = .visio.ListItems(lignelistview).ListSubItems(5).Text
                If .visio.ListItems(lignelistview).ListSubItems(2).Text <> datecomp Then antidater = True Else datedujour = True
                If .visio.ListItems(lignelistview).ListSubItems(4).Text = "Oui" Then oui = True Else non = True

    End With

End Sub

Bonjour,

KeyCode = 109 ??

Il vous suffit de tester la ou les valeurs de "Keycode" correspondantes à l'exécution de votre procédure : https://learn.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/keycode-constant...

Bonjour thev,

Super merci ça fonctionne bien.

@+