Petite macro, associée à un bouton, qui fonctionne sous xl2000 (à la
maison) mais ne fonctionne pas sous xl97 (au boulot, où je n'ai pas le
temps de fouiller l'aide) :
Dim Nom As String
Nom = InputBox("Entrer le nom :", "Recherche sur le nom")
Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
Le débug s'arrête sur What:=Nom.
Une petite idéee ? Merci d'avance pour vos réponses sur le NG.
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
isabelle
bonjour Laurent,
as tu mis la propriété du bouton TakeFocusOnClick à false ?
isabelle
Bonsoir,
Petite macro, associée à un bouton, qui fonctionne sous xl2000 (à la maison) mais ne fonctionne pas sous xl97 (au boulot, où je n'ai pas le temps de fouiller l'aide) :
Dim Nom As String Nom = InputBox("Entrer le nom :", "Recherche sur le nom") Cells.Find(What:=Nom, After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate End Sub
Le débug s'arrête sur What:=Nom.
Une petite idéee ? Merci d'avance pour vos réponses sur le NG.
-- Amicalement,
Laurent
bonjour Laurent,
as tu mis la propriété du bouton TakeFocusOnClick à false ?
isabelle
Bonsoir,
Petite macro, associée à un bouton, qui fonctionne sous xl2000 (à la
maison) mais ne fonctionne pas sous xl97 (au boulot, où je n'ai pas le
temps de fouiller l'aide) :
Dim Nom As String
Nom = InputBox("Entrer le nom :", "Recherche sur le nom")
Cells.Find(What:=Nom, After:¬tiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse).Activate
End Sub
Le débug s'arrête sur What:=Nom.
Une petite idéee ? Merci d'avance pour vos réponses sur le NG.
as tu mis la propriété du bouton TakeFocusOnClick à false ?
isabelle
Bonsoir,
Petite macro, associée à un bouton, qui fonctionne sous xl2000 (à la maison) mais ne fonctionne pas sous xl97 (au boulot, où je n'ai pas le temps de fouiller l'aide) :
Dim Nom As String Nom = InputBox("Entrer le nom :", "Recherche sur le nom") Cells.Find(What:=Nom, After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate End Sub
Le débug s'arrête sur What:=Nom.
Une petite idéee ? Merci d'avance pour vos réponses sur le NG.
-- Amicalement,
Laurent
Gastibelza
Bonjour isabelle,
as tu mis la propriété du bouton TakeFocusOnClick à false ?
Ben non, elle est sur true.
-- Amicalement,
Laurent
Bonjour isabelle,
as tu mis la propriété du bouton TakeFocusOnClick à false ?
