Mais pourquoi la ligne 12 me met une "Incompatibilité de type"? SCROGNEUGNEU
Sub Recherche()
Dim texte
Dim c, activec As Range
Set activec = ActiveCell
texte = CommandBars.ActionControl.TooltipText
Posesp = InStr(texte, " ")
'SDString = Caption
MsgBox (texte)
MsgBox (Posesp)
NumSD = Left(texte, Posesp - 1)
MsgBox (NumSD)
Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext)
c.Activate
'MsgBox "This is a do-nothing macro."
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
papou
Bonjour Ne déclare pas la variable c ou alors identifie-la complètement Cordialement Pascal
"Setec Essarts" a écrit dans le message de news:4003aa06$0$28686$
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"? SCROGNEUGNEU
Sub Recherche() Dim texte Dim c, activec As Range Set activec = ActiveCell texte = CommandBars.ActionControl.TooltipText Posesp = InStr(texte, " ") 'SDString = Caption MsgBox (texte) MsgBox (Posesp) NumSD = Left(texte, Posesp - 1) MsgBox (NumSD) Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext) c.Activate 'MsgBox "This is a do-nothing macro." End Sub
Bonjour
Ne déclare pas la variable c ou alors identifie-la complètement
Cordialement
Pascal
"Setec Essarts" <a87essartsns@setec.fr> a écrit dans le message de
news:4003aa06$0$28686$626a54ce@news.free.fr...
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"?
SCROGNEUGNEU
Sub Recherche()
Dim texte
Dim c, activec As Range
Set activec = ActiveCell
texte = CommandBars.ActionControl.TooltipText
Posesp = InStr(texte, " ")
'SDString = Caption
MsgBox (texte)
MsgBox (Posesp)
NumSD = Left(texte, Posesp - 1)
MsgBox (NumSD)
Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext)
c.Activate
'MsgBox "This is a do-nothing macro."
End Sub
Bonjour Ne déclare pas la variable c ou alors identifie-la complètement Cordialement Pascal
"Setec Essarts" a écrit dans le message de news:4003aa06$0$28686$
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"? SCROGNEUGNEU
Sub Recherche() Dim texte Dim c, activec As Range Set activec = ActiveCell texte = CommandBars.ActionControl.TooltipText Posesp = InStr(texte, " ") 'SDString = Caption MsgBox (texte) MsgBox (Posesp) NumSD = Left(texte, Posesp - 1) MsgBox (NumSD) Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext) c.Activate 'MsgBox "This is a do-nothing macro." End Sub
Setec Essarts
OK merci, j'essaie
Cordialement
Vincent
"papou" <nspm> a écrit dans le message de news:
Bonjour Ne déclare pas la variable c ou alors identifie-la complètement Cordialement Pascal
"Setec Essarts" a écrit dans le message de news:4003aa06$0$28686$
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"? SCROGNEUGNEU
Sub Recherche() Dim texte Dim c, activec As Range Set activec = ActiveCell texte = CommandBars.ActionControl.TooltipText Posesp = InStr(texte, " ") 'SDString = Caption MsgBox (texte) MsgBox (Posesp) NumSD = Left(texte, Posesp - 1) MsgBox (NumSD) Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext) c.Activate 'MsgBox "This is a do-nothing macro." End Sub
OK merci, j'essaie
Cordialement
Vincent
"papou" <nspm> a écrit dans le message de news:
eQrTiqb2DHA.556@TK2MSFTNGP11.phx.gbl...
Bonjour
Ne déclare pas la variable c ou alors identifie-la complètement
Cordialement
Pascal
"Setec Essarts" <a87essartsns@setec.fr> a écrit dans le message de
news:4003aa06$0$28686$626a54ce@news.free.fr...
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"?
SCROGNEUGNEU
Sub Recherche()
Dim texte
Dim c, activec As Range
Set activec = ActiveCell
texte = CommandBars.ActionControl.TooltipText
Posesp = InStr(texte, " ")
'SDString = Caption
MsgBox (texte)
MsgBox (Posesp)
NumSD = Left(texte, Posesp - 1)
MsgBox (NumSD)
Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext)
c.Activate
'MsgBox "This is a do-nothing macro."
End Sub
Bonjour Ne déclare pas la variable c ou alors identifie-la complètement Cordialement Pascal
"Setec Essarts" a écrit dans le message de news:4003aa06$0$28686$
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"? SCROGNEUGNEU
Sub Recherche() Dim texte Dim c, activec As Range Set activec = ActiveCell texte = CommandBars.ActionControl.TooltipText Posesp = InStr(texte, " ") 'SDString = Caption MsgBox (texte) MsgBox (Posesp) NumSD = Left(texte, Posesp - 1) MsgBox (NumSD) Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext) c.Activate 'MsgBox "This is a do-nothing macro." End Sub
Setec Essarts
Ben, non, ça marche pas,
la recherche doit se faire dans la colonne B, à partir de la ligne où je me trouve ( en colonne B ou C)
je cale pour le moment
"Setec Essarts" a écrit dans le message de news: 4003d328$0$17141$
OK merci, j'essaie
Cordialement
Vincent
"papou" <nspm> a écrit dans le message de news:
Bonjour Ne déclare pas la variable c ou alors identifie-la complètement Cordialement Pascal
"Setec Essarts" a écrit dans le message de news:4003aa06$0$28686$
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"? SCROGNEUGNEU
Sub Recherche() Dim texte Dim c, activec As Range Set activec = ActiveCell texte = CommandBars.ActionControl.TooltipText Posesp = InStr(texte, " ") 'SDString = Caption MsgBox (texte) MsgBox (Posesp) NumSD = Left(texte, Posesp - 1) MsgBox (NumSD) Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext) c.Activate 'MsgBox "This is a do-nothing macro." End Sub
Ben, non, ça marche pas,
la recherche doit se faire dans la colonne B, à partir de la ligne où je me
trouve ( en colonne B ou C)
je cale pour le moment
"Setec Essarts" <a87essartsns@setec.fr> a écrit dans le message de news:
4003d328$0$17141$626a54ce@news.free.fr...
OK merci, j'essaie
Cordialement
Vincent
"papou" <nspm> a écrit dans le message de news:
eQrTiqb2DHA.556@TK2MSFTNGP11.phx.gbl...
Bonjour
Ne déclare pas la variable c ou alors identifie-la complètement
Cordialement
Pascal
"Setec Essarts" <a87essartsns@setec.fr> a écrit dans le message de
news:4003aa06$0$28686$626a54ce@news.free.fr...
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"?
SCROGNEUGNEU
Sub Recherche()
Dim texte
Dim c, activec As Range
Set activec = ActiveCell
texte = CommandBars.ActionControl.TooltipText
Posesp = InStr(texte, " ")
'SDString = Caption
MsgBox (texte)
MsgBox (Posesp)
NumSD = Left(texte, Posesp - 1)
MsgBox (NumSD)
Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext)
c.Activate
'MsgBox "This is a do-nothing macro."
End Sub
la recherche doit se faire dans la colonne B, à partir de la ligne où je me trouve ( en colonne B ou C)
je cale pour le moment
"Setec Essarts" a écrit dans le message de news: 4003d328$0$17141$
OK merci, j'essaie
Cordialement
Vincent
"papou" <nspm> a écrit dans le message de news:
Bonjour Ne déclare pas la variable c ou alors identifie-la complètement Cordialement Pascal
"Setec Essarts" a écrit dans le message de news:4003aa06$0$28686$
Mais pourquoi la ligne 12 me met une "Incompatibilité de type"? SCROGNEUGNEU
Sub Recherche() Dim texte Dim c, activec As Range Set activec = ActiveCell texte = CommandBars.ActionControl.TooltipText Posesp = InStr(texte, " ") 'SDString = Caption MsgBox (texte) MsgBox (Posesp) NumSD = Left(texte, Posesp - 1) MsgBox (NumSD) Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext) c.Activate 'MsgBox "This is a do-nothing macro." End Sub
JpPradier
Bonjour Setec Essarts
Remplace Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext)
par :
Set c = Range("B:B").Find(NumSD, Range(activec.Address), , , xlByColumns, xlNext)
j-p
Bonjour Setec Essarts
Remplace Set c = Range("B:B").Find(NumSD, activec, , , xlByColumns, xlNext)
par :
Set c = Range("B:B").Find(NumSD, Range(activec.Address), , , xlByColumns, xlNext)