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,
|