Fenêtre de saisie de réf. pour inventaire
Bonjour,
Je dois faire un inventaire de pièces portant des n° de séries et j'aimerais pouvoir utiliser une fenêtre de saisie pour ces n° de telle sorte que, après avoir renté le n° de série dans la fenêtre de saisie, en tappant "enter", le curseur vienne directement sur le n° en question dans la grille, si il s'y trouve... et si il ne s'y trouve pas, qu'il soit enregistré dans une case vide de la colonne "numèro de pièce".
J'ai joint un prototype de feuille exel....
https://www.excel-pratique.com/~files/doc2/grille_test.xls
Merci à vous.
PP
Bonjour et bienvenue,
Utilise ce code :
Public ok As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro Dan pour elpat le 1/09/2009
'http://www.excel-pratique.com/forum/viewtopic.php?t=13036
If ok = True Then Exit Sub
If Not Intersect(Target, Range("E6")) Is Nothing Then
ok = True
On Error GoTo nouveau
lig = Application.WorksheetFunction.Match(Target, Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row), 0)
Range("B" & lig + 2).Activate
End If
ok = False
Exit Sub
nouveau:
Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1) = Target
ok = False
End SubCode à mettre dans la feuille concernée.
Pour ce faire, clique droite sur l'onglet de la feuille puis choisis "visualiser le code". Dans la fenêtre, place ensuite le code ci-avant puis enregistre ton fichier.
Amicalement
Dan
PS : si ton pb est terminé, n'oublie pas de mettre RESOLU. explications ici --> https://www.excel-pratique.com/forum/viewtopic.php?t=13
Merci de ta participation.