Rapport de message :*
 

Re: liste de choix et recherche

Titre du sujet : Re: liste de choix et recherche
par myDearFriend! le 24/06/2010 15:44:22

Bonjour Nino63, JackyAmiens, le Forum,

Citation :
Nino63 a écrit :
Date de MAJ :
Que faut-il changer si je veux que çà se réactualise uniquement par rapport à la modification des colonnes B (date) ou C (choix de la marchandise). Et non C (choix de la marchandise ou G (provenance).


J'ai supprimé les 2 lignes suivantes de la procédure Sub Maj(ByVal T As String) du module de code Module1 :
   'Date de MAJ
    Cells(ActiveCell.Row, 10).Value = Now
Et j'ai ajouté la procédure suivante dans le module de code de la Feuille "Planning" :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub   'ne gère pas la modification de plage
    If Not Application.Intersect(Target, UsedRange, Range("B13:C65536")) Is Nothing Then
        'Date de MAJ
        Cells(ActiveCell.Row, 10).Value = Now
    End If
End Sub

Tu trouveras en pièce jointe le fichier modifié en conséquence.

Citation :
Nino63 a écrit :
Modification de la date de livraison
Sauf erreur de ma part, je n'arrive pas à modifier avec les touche +/- du pavé numérique.
Seulement avec les + (touche "shift =") et - (touche "6" clavier central).
Si ce n'est pas possible, on trouvera d'autres touches de remplacement du genre "a" et "q" ou  "a" et "p" ou "1" et "9"...
Effectivement, petit problème pour moi, je travaille exclusivement avec un portable, donc pas de clavier numérique chez moi !

Sauf erreur, tu devrais pouvoir tester en modifiant la procédure suivante du module de code Module1 :
Sub TouchesPM(A As Boolean)
    With Application
        If A Then
            .onkey "{+}", "'DatPM 1'"
            .onkey "{-}", "'DatPM -1'"
        Else
            .onkey "{+}"
            .onkey "{-}"
        End If
    End With
End Sub
A remplacer (pour test) par :
Sub TouchesPM(A As Boolean)
    With Application
        If A Then   'Activation
            .onkey "{" & vbKeyAdd & "}", "'DatPM 1'"
            .onkey "{" & vbKeySubtract & "}", "'DatPM -1'"
        Else        'Désactivation
            .onkey "{" & vbKeyAdd & "}"
            .onkey "{" & vbKeySubtract & "}"
        End If
    End With
End Sub

Sinon, dans l'exemple joint, j'ai remplacé l'appui sur les touches +/- par les touches Flèches HAUT/BAS, si ça peut te dépanner (voir d'autres combinaisons possibles dans l'aide VBA sur "OnKey").

Cordialement,