J'essaye de transformer la macro que Daniel m'a donné
pour faire la recherche par noms
le saisie se fait dans la cellule C2
et recherche les noms dans la colonne F8-F2000
Je pense que le probleme est dans "IsNumeric"
et où dois-je mettre cette macro? avec la 1ere,
c'est à dire dans la page?
mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ctr
If Target.Address <> "$C$2" Then Exit Sub
Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0)
If IsNumeric(Ctr) Then
Range("F8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
End Sub
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
Daniel
Re. Nom ambigü, c'est parce que tu as deux macros qui portent le même nom. Sinon, le code doit fonctionner. Daniel "Patcas" a écrit dans le message de news: 16R2g.130$
bonsoir
J'essaye de transformer la macro que Daniel m'a donné pour faire la recherche par noms le saisie se fait dans la cellule C2 et recherche les noms dans la colonne F8-F2000 Je pense que le probleme est dans "IsNumeric" et où dois-je mettre cette macro? avec la 1ere, c'est à dire dans la page? mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address <> "$C$2" Then Exit Sub Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End Sub
encore merci
Patrice
Re.
Nom ambigü, c'est parce que tu as deux macros qui portent le même nom.
Sinon, le code doit fonctionner.
Daniel
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news: 16R2g.130$jO1.122@nntpserver.swip.net...
bonsoir
J'essaye de transformer la macro que Daniel m'a donné
pour faire la recherche par noms
le saisie se fait dans la cellule C2
et recherche les noms dans la colonne F8-F2000
Je pense que le probleme est dans "IsNumeric"
et où dois-je mettre cette macro? avec la 1ere,
c'est à dire dans la page?
mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ctr
If Target.Address <> "$C$2" Then Exit Sub
Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0)
If IsNumeric(Ctr) Then
Range("F8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
End Sub
Re. Nom ambigü, c'est parce que tu as deux macros qui portent le même nom. Sinon, le code doit fonctionner. Daniel "Patcas" a écrit dans le message de news: 16R2g.130$
bonsoir
J'essaye de transformer la macro que Daniel m'a donné pour faire la recherche par noms le saisie se fait dans la cellule C2 et recherche les noms dans la colonne F8-F2000 Je pense que le probleme est dans "IsNumeric" et où dois-je mettre cette macro? avec la 1ere, c'est à dire dans la page? mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address <> "$C$2" Then Exit Sub Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End Sub
encore merci
Patrice
Patcas
Merci Daniel effectivement le code fonctionne pour la recherche par nom aussi mais comment puis je faire pour les mettre dans la meme page car ça provoque un conflit... Cordialement Patrice
"Daniel" a écrit dans le message de news: %
Re. Nom ambigü, c'est parce que tu as deux macros qui portent le même nom. Sinon, le code doit fonctionner. Daniel "Patcas" a écrit dans le message de news: 16R2g.130$
bonsoir
J'essaye de transformer la macro que Daniel m'a donné pour faire la recherche par noms le saisie se fait dans la cellule C2 et recherche les noms dans la colonne F8-F2000 Je pense que le probleme est dans "IsNumeric" et où dois-je mettre cette macro? avec la 1ere, c'est à dire dans la page? mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address <> "$C$2" Then Exit Sub Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End Sub
encore merci
Patrice
Merci Daniel
effectivement le code fonctionne pour la recherche par nom aussi
mais comment puis je faire pour les mettre dans la meme page car ça provoque
un conflit...
Cordialement
Patrice
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23lQwzSxZGHA.4060@TK2MSFTNGP02.phx.gbl...
Re.
Nom ambigü, c'est parce que tu as deux macros qui portent le même nom.
Sinon, le code doit fonctionner.
Daniel
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news: 16R2g.130$jO1.122@nntpserver.swip.net...
bonsoir
J'essaye de transformer la macro que Daniel m'a donné
pour faire la recherche par noms
le saisie se fait dans la cellule C2
et recherche les noms dans la colonne F8-F2000
Je pense que le probleme est dans "IsNumeric"
et où dois-je mettre cette macro? avec la 1ere,
c'est à dire dans la page?
mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ctr
If Target.Address <> "$C$2" Then Exit Sub
Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0)
If IsNumeric(Ctr) Then
Range("F8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
End Sub
Merci Daniel effectivement le code fonctionne pour la recherche par nom aussi mais comment puis je faire pour les mettre dans la meme page car ça provoque un conflit... Cordialement Patrice
"Daniel" a écrit dans le message de news: %
Re. Nom ambigü, c'est parce que tu as deux macros qui portent le même nom. Sinon, le code doit fonctionner. Daniel "Patcas" a écrit dans le message de news: 16R2g.130$
bonsoir
J'essaye de transformer la macro que Daniel m'a donné pour faire la recherche par noms le saisie se fait dans la cellule C2 et recherche les noms dans la colonne F8-F2000 Je pense que le probleme est dans "IsNumeric" et où dois-je mettre cette macro? avec la 1ere, c'est à dire dans la page? mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address <> "$C$2" Then Exit Sub Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End Sub
encore merci
Patrice
Daniel
Essaie :
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address = "$A$2" Then Ctr = Application.Match(Target.Value, Range("A8:A2000"), 0) If IsNumeric(Ctr) Then Range("A8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If ElseIf Target.Address = "$C$2" Then Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End If End Sub
Cordialement. Daniel "Patcas" a écrit dans le message de news: y7S2g.139$
Merci Daniel effectivement le code fonctionne pour la recherche par nom aussi mais comment puis je faire pour les mettre dans la meme page car ça provoque un conflit... Cordialement Patrice
"Daniel" a écrit dans le message de news: %
Re. Nom ambigü, c'est parce que tu as deux macros qui portent le même nom. Sinon, le code doit fonctionner. Daniel "Patcas" a écrit dans le message de news: 16R2g.130$
bonsoir
J'essaye de transformer la macro que Daniel m'a donné pour faire la recherche par noms le saisie se fait dans la cellule C2 et recherche les noms dans la colonne F8-F2000 Je pense que le probleme est dans "IsNumeric" et où dois-je mettre cette macro? avec la 1ere, c'est à dire dans la page? mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address <> "$C$2" Then Exit Sub Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End Sub
encore merci
Patrice
Essaie :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ctr
If Target.Address = "$A$2" Then
Ctr = Application.Match(Target.Value, Range("A8:A2000"), 0)
If IsNumeric(Ctr) Then
Range("A8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
ElseIf Target.Address = "$C$2" Then
Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0)
If IsNumeric(Ctr) Then
Range("F8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
End If
End Sub
Cordialement.
Daniel
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news: y7S2g.139$jO1.169@nntpserver.swip.net...
Merci Daniel
effectivement le code fonctionne pour la recherche par nom aussi
mais comment puis je faire pour les mettre dans la meme page car ça
provoque un conflit...
Cordialement
Patrice
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23lQwzSxZGHA.4060@TK2MSFTNGP02.phx.gbl...
Re.
Nom ambigü, c'est parce que tu as deux macros qui portent le même nom.
Sinon, le code doit fonctionner.
Daniel
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news: 16R2g.130$jO1.122@nntpserver.swip.net...
bonsoir
J'essaye de transformer la macro que Daniel m'a donné
pour faire la recherche par noms
le saisie se fait dans la cellule C2
et recherche les noms dans la colonne F8-F2000
Je pense que le probleme est dans "IsNumeric"
et où dois-je mettre cette macro? avec la 1ere,
c'est à dire dans la page?
mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ctr
If Target.Address <> "$C$2" Then Exit Sub
Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0)
If IsNumeric(Ctr) Then
Range("F8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address = "$A$2" Then Ctr = Application.Match(Target.Value, Range("A8:A2000"), 0) If IsNumeric(Ctr) Then Range("A8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If ElseIf Target.Address = "$C$2" Then Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End If End Sub
Cordialement. Daniel "Patcas" a écrit dans le message de news: y7S2g.139$
Merci Daniel effectivement le code fonctionne pour la recherche par nom aussi mais comment puis je faire pour les mettre dans la meme page car ça provoque un conflit... Cordialement Patrice
"Daniel" a écrit dans le message de news: %
Re. Nom ambigü, c'est parce que tu as deux macros qui portent le même nom. Sinon, le code doit fonctionner. Daniel "Patcas" a écrit dans le message de news: 16R2g.130$
bonsoir
J'essaye de transformer la macro que Daniel m'a donné pour faire la recherche par noms le saisie se fait dans la cellule C2 et recherche les noms dans la colonne F8-F2000 Je pense que le probleme est dans "IsNumeric" et où dois-je mettre cette macro? avec la 1ere, c'est à dire dans la page? mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address <> "$C$2" Then Exit Sub Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End Sub
encore merci
Patrice
Patcas
Merci beaucoup ça fonctionne impec A très bientôt certainement Patrice
"Daniel" a écrit dans le message de news: ux$
Essaie :
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address = "$A$2" Then Ctr = Application.Match(Target.Value, Range("A8:A2000"), 0) If IsNumeric(Ctr) Then Range("A8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If ElseIf Target.Address = "$C$2" Then Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End If End Sub
Cordialement. Daniel "Patcas" a écrit dans le message de news: y7S2g.139$
Merci Daniel effectivement le code fonctionne pour la recherche par nom aussi mais comment puis je faire pour les mettre dans la meme page car ça provoque un conflit... Cordialement Patrice
"Daniel" a écrit dans le message de news: %
Re. Nom ambigü, c'est parce que tu as deux macros qui portent le même nom. Sinon, le code doit fonctionner. Daniel "Patcas" a écrit dans le message de news: 16R2g.130$
bonsoir
J'essaye de transformer la macro que Daniel m'a donné pour faire la recherche par noms le saisie se fait dans la cellule C2 et recherche les noms dans la colonne F8-F2000 Je pense que le probleme est dans "IsNumeric" et où dois-je mettre cette macro? avec la 1ere, c'est à dire dans la page? mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address <> "$C$2" Then Exit Sub Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End Sub
encore merci
Patrice
Merci beaucoup
ça fonctionne impec
A très bientôt certainement
Patrice
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ux$RDkyZGHA.3736@TK2MSFTNGP04.phx.gbl...
Essaie :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ctr
If Target.Address = "$A$2" Then
Ctr = Application.Match(Target.Value, Range("A8:A2000"), 0)
If IsNumeric(Ctr) Then
Range("A8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
ElseIf Target.Address = "$C$2" Then
Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0)
If IsNumeric(Ctr) Then
Range("F8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
End If
End Sub
Cordialement.
Daniel
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news: y7S2g.139$jO1.169@nntpserver.swip.net...
Merci Daniel
effectivement le code fonctionne pour la recherche par nom aussi
mais comment puis je faire pour les mettre dans la meme page car ça
provoque un conflit...
Cordialement
Patrice
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23lQwzSxZGHA.4060@TK2MSFTNGP02.phx.gbl...
Re.
Nom ambigü, c'est parce que tu as deux macros qui portent le même nom.
Sinon, le code doit fonctionner.
Daniel
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message
de news: 16R2g.130$jO1.122@nntpserver.swip.net...
bonsoir
J'essaye de transformer la macro que Daniel m'a donné
pour faire la recherche par noms
le saisie se fait dans la cellule C2
et recherche les noms dans la colonne F8-F2000
Je pense que le probleme est dans "IsNumeric"
et où dois-je mettre cette macro? avec la 1ere,
c'est à dire dans la page?
mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ctr
If Target.Address <> "$C$2" Then Exit Sub
Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0)
If IsNumeric(Ctr) Then
Range("F8")(Ctr, 1).Select
Else
MsgBox "Code sans équivalence"
End If
End Sub
Merci beaucoup ça fonctionne impec A très bientôt certainement Patrice
"Daniel" a écrit dans le message de news: ux$
Essaie :
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address = "$A$2" Then Ctr = Application.Match(Target.Value, Range("A8:A2000"), 0) If IsNumeric(Ctr) Then Range("A8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If ElseIf Target.Address = "$C$2" Then Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End If End Sub
Cordialement. Daniel "Patcas" a écrit dans le message de news: y7S2g.139$
Merci Daniel effectivement le code fonctionne pour la recherche par nom aussi mais comment puis je faire pour les mettre dans la meme page car ça provoque un conflit... Cordialement Patrice
"Daniel" a écrit dans le message de news: %
Re. Nom ambigü, c'est parce que tu as deux macros qui portent le même nom. Sinon, le code doit fonctionner. Daniel "Patcas" a écrit dans le message de news: 16R2g.130$
bonsoir
J'essaye de transformer la macro que Daniel m'a donné pour faire la recherche par noms le saisie se fait dans la cellule C2 et recherche les noms dans la colonne F8-F2000 Je pense que le probleme est dans "IsNumeric" et où dois-je mettre cette macro? avec la 1ere, c'est à dire dans la page? mais quand je la mets, ça me dit : "nom ambigu détecté"
Private Sub Worksheet_Change(ByVal Target As Range) Dim Ctr If Target.Address <> "$C$2" Then Exit Sub Ctr = Application.Match(Target.Value, Range("F8:F2000"), 0) If IsNumeric(Ctr) Then Range("F8")(Ctr, 1).Select Else MsgBox "Code sans équivalence" End If End Sub
