J'ai crée un tableau de 10 colonnes avec des references dans la premiere
colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je
rentre dans une case. Cette macro démarre dès que je fais un retour charriot
(enter) mais revient automatique sur cette case. Ce que je voudrais, c'est
que dès mon retour charriot, ma case active aille directement sur ma valeur
et que ma case de recherche s'efface automatiquement prête pourune nouvelle
recherche.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
SL
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("A1").Address Then
Cells.Find(What:=Target, After:¬tiveCell).Activate
Range("A1") = ""
End If
Application.EnableEvents = True
End Sub
où la case de recherche est A1.
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
76A15261-D936-45BF-B36C-D2816C77D97E@microsoft.com...
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere
colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je
rentre dans une case. Cette macro démarre dès que je fais un retour
charriot
(enter) mais revient automatique sur cette case. Ce que je voudrais, c'est
que dès mon retour charriot, ma case active aille directement sur ma
valeur
et que ma case de recherche s'efface automatiquement prête pourune
nouvelle
recherche.
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
Pej
Merci de Votre réponse mais cela ne marche pas! En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès que j'appui sur entrer, la cellule active se mette directement sur la case trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
Merci de Votre réponse mais cela ne marche pas!
En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai
créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il
faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès
que j'appui sur entrer, la cellule active se mette directement sur la case
trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("A1").Address Then
Cells.Find(What:=Target, After:¬tiveCell).Activate
Range("A1") = ""
End If
Application.EnableEvents = True
End Sub
où la case de recherche est A1.
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
76A15261-D936-45BF-B36C-D2816C77D97E@microsoft.com...
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere
colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je
rentre dans une case. Cette macro démarre dès que je fais un retour
charriot
(enter) mais revient automatique sur cette case. Ce que je voudrais, c'est
que dès mon retour charriot, ma case active aille directement sur ma
valeur
et que ma case de recherche s'efface automatiquement prête pourune
nouvelle
recherche.
Merci de Votre réponse mais cela ne marche pas! En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès que j'appui sur entrer, la cellule active se mette directement sur la case trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
SL
Re-bonjour
il faut adapter le code à la situation :
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("B1").Address Then Columns(1).Find(What:=Target).Activate Range("B1") = "" End If Application.EnableEvents = True End Sub
Avec B1 la cellule de recherche.
un exemple ici : http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" a écrit dans le message de news:
Merci de Votre réponse mais cela ne marche pas! En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès que j'appui sur entrer, la cellule active se mette directement sur la case trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
Re-bonjour
il faut adapter le code à la situation :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("B1").Address Then
Columns(1).Find(What:=Target).Activate
Range("B1") = ""
End If
Application.EnableEvents = True
End Sub
Avec B1 la cellule de recherche.
un exemple ici :
http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
FDC722BA-1316-47F2-860A-81D9312A97F9@microsoft.com...
Merci de Votre réponse mais cela ne marche pas!
En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai
créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il
faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès
que j'appui sur entrer, la cellule active se mette directement sur la case
trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("A1").Address Then
Cells.Find(What:=Target, After:¬tiveCell).Activate
Range("A1") = ""
End If
Application.EnableEvents = True
End Sub
où la case de recherche est A1.
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
76A15261-D936-45BF-B36C-D2816C77D97E@microsoft.com...
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la
premiere
colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je
rentre dans une case. Cette macro démarre dès que je fais un retour
charriot
(enter) mais revient automatique sur cette case. Ce que je voudrais,
c'est
que dès mon retour charriot, ma case active aille directement sur ma
valeur
et que ma case de recherche s'efface automatiquement prête pourune
nouvelle
recherche.
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("B1").Address Then Columns(1).Find(What:=Target).Activate Range("B1") = "" End If Application.EnableEvents = True End Sub
Avec B1 la cellule de recherche.
un exemple ici : http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" a écrit dans le message de news:
Merci de Votre réponse mais cela ne marche pas! En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès que j'appui sur entrer, la cellule active se mette directement sur la case trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
Pej
Excuses moi stéphane mais j'ai encore besoin de ton aide...
Toujours dans cette même case recherche, je veux qu'une fois qu'on tape 0 on accède à la dernière ligne(non vide) + 1 (ou la première vide) de ma 1ère colonne.
Merci d'avance.
Re-bonjour
il faut adapter le code à la situation :
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("B1").Address Then Columns(1).Find(What:=Target).Activate Range("B1") = "" End If Application.EnableEvents = True End Sub
Avec B1 la cellule de recherche.
un exemple ici : http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" a écrit dans le message de news:
Merci de Votre réponse mais cela ne marche pas! En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès que j'appui sur entrer, la cellule active se mette directement sur la case trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
Excuses moi stéphane mais j'ai encore besoin de ton aide...
Toujours dans cette même case recherche, je veux qu'une fois qu'on tape 0 on
accède à la dernière ligne(non vide) + 1 (ou la première vide) de ma 1ère
colonne.
Merci d'avance.
Re-bonjour
il faut adapter le code à la situation :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("B1").Address Then
Columns(1).Find(What:=Target).Activate
Range("B1") = ""
End If
Application.EnableEvents = True
End Sub
Avec B1 la cellule de recherche.
un exemple ici :
http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
FDC722BA-1316-47F2-860A-81D9312A97F9@microsoft.com...
Merci de Votre réponse mais cela ne marche pas!
En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai
créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il
faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès
que j'appui sur entrer, la cellule active se mette directement sur la case
trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("A1").Address Then
Cells.Find(What:=Target, After:¬tiveCell).Activate
Range("A1") = ""
End If
Application.EnableEvents = True
End Sub
où la case de recherche est A1.
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
76A15261-D936-45BF-B36C-D2816C77D97E@microsoft.com...
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la
premiere
colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je
rentre dans une case. Cette macro démarre dès que je fais un retour
charriot
(enter) mais revient automatique sur cette case. Ce que je voudrais,
c'est
que dès mon retour charriot, ma case active aille directement sur ma
valeur
et que ma case de recherche s'efface automatiquement prête pourune
nouvelle
recherche.
Excuses moi stéphane mais j'ai encore besoin de ton aide...
Toujours dans cette même case recherche, je veux qu'une fois qu'on tape 0 on accède à la dernière ligne(non vide) + 1 (ou la première vide) de ma 1ère colonne.
Merci d'avance.
Re-bonjour
il faut adapter le code à la situation :
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("B1").Address Then Columns(1).Find(What:=Target).Activate Range("B1") = "" End If Application.EnableEvents = True End Sub
Avec B1 la cellule de recherche.
un exemple ici : http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" a écrit dans le message de news:
Merci de Votre réponse mais cela ne marche pas! En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès que j'appui sur entrer, la cellule active se mette directement sur la case trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
SL
quelque chose comme
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Target.Address = Range("B1").Address Then If Target <> 0 Then Columns(1).Find(What:=Target).Activate Range("B1") = "" Else : Range("A65536").End(xlUp)(2).Activate End If End If Application.EnableEvents = True End Sub
Stéphane
"Pej" a écrit dans le message de news:
Excuses moi stéphane mais j'ai encore besoin de ton aide...
Toujours dans cette même case recherche, je veux qu'une fois qu'on tape 0 on accède à la dernière ligne(non vide) + 1 (ou la première vide) de ma 1ère colonne.
Merci d'avance.
Re-bonjour
il faut adapter le code à la situation :
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("B1").Address Then Columns(1).Find(What:=Target).Activate Range("B1") = "" End If Application.EnableEvents = True End Sub
Avec B1 la cellule de recherche.
un exemple ici : http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" a écrit dans le message de news:
Merci de Votre réponse mais cela ne marche pas! En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès que j'appui sur entrer, la cellule active se mette directement sur la case trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
quelque chose comme
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.Address = Range("B1").Address Then
If Target <> 0 Then
Columns(1).Find(What:=Target).Activate
Range("B1") = ""
Else : Range("A65536").End(xlUp)(2).Activate
End If
End If
Application.EnableEvents = True
End Sub
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
FAADE7FA-035F-4AED-ACBA-4B2EC449DF30@microsoft.com...
Excuses moi stéphane mais j'ai encore besoin de ton aide...
Toujours dans cette même case recherche, je veux qu'une fois qu'on tape 0
on
accède à la dernière ligne(non vide) + 1 (ou la première vide) de ma 1ère
colonne.
Merci d'avance.
Re-bonjour
il faut adapter le code à la situation :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("B1").Address Then
Columns(1).Find(What:=Target).Activate
Range("B1") = ""
End If
Application.EnableEvents = True
End Sub
Avec B1 la cellule de recherche.
un exemple ici :
http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
FDC722BA-1316-47F2-860A-81D9312A97F9@microsoft.com...
Merci de Votre réponse mais cela ne marche pas!
En fait, la première colonne contient mais réf. et sur la colonne 2
j'ai
créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il
faudrait c'est que je puisse rentrer dans ma case recherche une réf et
dès
que j'appui sur entrer, la cellule active se mette directement sur la
case
trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("A1").Address Then
Cells.Find(What:=Target, After:¬tiveCell).Activate
Range("A1") = ""
End If
Application.EnableEvents = True
End Sub
où la case de recherche est A1.
Stéphane
"Pej" <Pej@discussions.microsoft.com> a écrit dans le message de news:
76A15261-D936-45BF-B36C-D2816C77D97E@microsoft.com...
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la
premiere
colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que
je
rentre dans une case. Cette macro démarre dès que je fais un retour
charriot
(enter) mais revient automatique sur cette case. Ce que je voudrais,
c'est
que dès mon retour charriot, ma case active aille directement sur
ma
valeur
et que ma case de recherche s'efface automatiquement prête pourune
nouvelle
recherche.
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Target.Address = Range("B1").Address Then If Target <> 0 Then Columns(1).Find(What:=Target).Activate Range("B1") = "" Else : Range("A65536").End(xlUp)(2).Activate End If End If Application.EnableEvents = True End Sub
Stéphane
"Pej" a écrit dans le message de news:
Excuses moi stéphane mais j'ai encore besoin de ton aide...
Toujours dans cette même case recherche, je veux qu'une fois qu'on tape 0 on accède à la dernière ligne(non vide) + 1 (ou la première vide) de ma 1ère colonne.
Merci d'avance.
Re-bonjour
il faut adapter le code à la situation :
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("B1").Address Then Columns(1).Find(What:=Target).Activate Range("B1") = "" End If Application.EnableEvents = True End Sub
Avec B1 la cellule de recherche.
un exemple ici : http://cjoint.com/?ljoOhbt6io
ça marche ?
Stéphane
"Pej" a écrit dans le message de news:
Merci de Votre réponse mais cela ne marche pas! En fait, la première colonne contient mais réf. et sur la colonne 2 j'ai créé une case de recherche de réf car j'en ai plus de mille! Ce qu'il faudrait c'est que je puisse rentrer dans ma case recherche une réf et dès que j'appui sur entrer, la cellule active se mette directement sur la case trouvée de la colonne1 et que ma case recherche devienne vide.
Merci de ton aide précieuse.
Bonjour
si j'ai bien compris
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = Range("A1").Address Then Cells.Find(What:=Target, After:¬tiveCell).Activate Range("A1") = "" End If Application.EnableEvents = True End Sub
où la case de recherche est A1.
Stéphane
"Pej" a écrit dans le message de news:
Bonjour à tous,
J'ai crée un tableau de 10 colonnes avec des references dans la premiere colonne. J'ai récupéré la Macro Ctrl + F en la liant à la valeur que je rentre dans une case. Cette macro démarre dès que je fais un retour charriot (enter) mais revient automatique sur cette case. Ce que je voudrais, c'est que dès mon retour charriot, ma case active aille directement sur ma valeur et que ma case de recherche s'efface automatiquement prête pourune nouvelle recherche.
merci d'avance à tous pour votre aide.
PJ
Pej
Merci stéphane cela fonctionne très bien. Je te remercie pour ton aide précieuse.
Bonne journée.
Pierre-Jean
Merci stéphane cela fonctionne très bien.
Je te remercie pour ton aide précieuse.
