Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème de prog

Problème de prog

4 réponses
Avatar
Setec Essarts
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
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




Avatar
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








Avatar
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












Avatar
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