Discussion :

[Micky58]

Bonjour,
J'ai un tableau sur Excel pour gérer un stock et pour faciliter la recherche du N° d'artiche, lors de l'encodage, il faudrait une petite macro qui en indiquant le N° de l'article dans la cellule "J2" et poussant sur un bouton de macro,le curseur se place directement sur le N° de l'article.
S'il n'existe pas encore se positionner sur la 1ère cellule vide dans la colonne "A".
ps: les n° d'article se trouvent en colonne A

Merçi à vous pour votre aide.
Bonne soirée

[Michel_M]

Bonjour,

Ci dessous proposition:

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If ActiveCell.Address <> "$J$1" Then: Exit Sub
code = Range("J1")
On Error Resume Next
Columns(1).Find(code).Select
If Error > 0 Then
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
End If

On pourrait améliorer avec une macro événementielle: tu tapes ton code en J1 et quand tu valides... hop sur la cellule

A+
Michel_M

[Micky58]

Salut Michel_M j'ai essayé la vba et elle ne fonctionne pas. Il faudrait que quand j'ai encodé le n°art (ex:159) et en valident, elle se rende automatiquement sur la cellule avec l'article (ex:159).
Mais si l'article n'a pas encore été encodé dans le stock, il doit aller à la première ligne libre pour l'introduire et cela ça marche
Merç!

[Michel_M]

Bonjour Micky

en réponse petite démo dans ce lien
http://www.cijoint.fr/cij64039718611330.xls

en espérant que...

Michel_M

[Micky58]

Bonjour Michel_M, merçi de suivre mon petit problème.
Ok pour la démo, mais ou est la vba? car celle que tu m'as faite ne se rend pas sur l'article indiqué en "J1"

[Daranc]

Salut Micky
je pense que le problème est celui-ci
la macro de Michel plante parce que la cible est J1 mais une fois validé le changement c'est J2 qui est active (ou la case qui est reprise par défaut après validation)
j'ai modifié la macro comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim code As Variant
If ActiveCell <> Cells(2, 10) Then
Exit Sub
Else
code = Range("j1").Value
On Error Resume Next
Columns(1).Find(code).Select
If Err.Number > 0 Then
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
End If
End If
End Sub

je ne me rappelle plus comment cibler une seule cellule en changement
attention toutefois la macros telle qu'elle est te pointera le 12 sur le 123 si il se trouve avant le douze
lorsque je te demandais quel est le problème je voulait le titre du fil
Daranc