Voilà ce que l'enregistreur de macro m'indique : ActiveCell.FormulaR1C1 = "=ISERR(FIND(RIGHT (R6C:R168C),""ECTLM""))"
J'essaie d'adapter cette réponse dans mon code mais il me refuse le "find".
Voici mon code : ElseIf (Left(pause, 1) = "B" And Right(pause, 1) <> "R" And Right(pause, 1)
<> "L") _ Or (Len(pause) > 1 And Left(pause, 1) = "C" _ And Not IsErr(Find(Right(pause, 1), "ACFRS"))) Or pause = "C" _
Or (Left(pause, 1) = "D" And Right(pause, 1) <> "R" And Right(pause,
1) <> "T") Then calcheur = 6.1 + HS1 + HS2 - RC
Si tu penses à quelque chose ...
Merci d'avance.
Jean-Marie
"Ellimac" a écrit dans le message de
news:068c01c3bd8a$2a6c6830$
Bonjour,
Lance l'enregistreur de macro et tape ta formule.
Camille
-----Message d'origine----- Bonjour, J'ai ceci dans une fonction : (ESTERR(TROUVE(DROITE (H$6:H$168);"ECTLM"))
Comment puis-je le mettre en VBA ?
Merci.
Jean-Marie
.
.
Jean-Marie GILTAIRE
C'était cela.
Je te remercie encore.
Jean-Marie
"Ellimac" a écrit dans le message de news:06c701c3bd90$56509dd0$ Essaye de remplacer par Application.Find.
Camille
-----Message d'origine-----
Voilà ce que l'enregistreur de macro m'indique : ActiveCell.FormulaR1C1 = "=ISERR(FIND(RIGHT (R6C:R168C),""ECTLM""))"
J'essaie d'adapter cette réponse dans mon code mais il me refuse le "find".
Voici mon code : ElseIf (Left(pause, 1) = "B" And Right(pause, 1) <> "R" And Right(pause, 1)
<> "L") _ Or (Len(pause) > 1 And Left(pause, 1) = "C" _ And Not IsErr(Find(Right(pause, 1), "ACFRS"))) Or pause = "C" _
Or (Left(pause, 1) = "D" And Right(pause, 1) <> "R" And Right(pause,
1) <> "T") Then calcheur = 6.1 + HS1 + HS2 - RC
Si tu penses à quelque chose ...
Merci d'avance.
Jean-Marie
"Ellimac" a écrit dans le message de
news:068c01c3bd8a$2a6c6830$
Bonjour,
Lance l'enregistreur de macro et tape ta formule.
Camille
-----Message d'origine----- Bonjour, J'ai ceci dans une fonction : (ESTERR(TROUVE(DROITE (H$6:H$168);"ECTLM"))
Comment puis-je le mettre en VBA ?
Merci.
Jean-Marie
.
.
C'était cela.
Je te remercie encore.
Jean-Marie
"Ellimac" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:06c701c3bd90$56509dd0$a501280a@phx.gbl...
Essaye de remplacer par Application.Find.
Camille
-----Message d'origine-----
Voilà ce que l'enregistreur de macro m'indique :
ActiveCell.FormulaR1C1 = "=ISERR(FIND(RIGHT
(R6C:R168C),""ECTLM""))"
J'essaie d'adapter cette réponse dans mon code mais il me
refuse le "find".
Voici mon code :
ElseIf (Left(pause, 1) = "B" And Right(pause, 1) <> "R"
And Right(pause, 1)
<> "L") _
Or (Len(pause) > 1 And Left(pause, 1) = "C" _
And Not IsErr(Find(Right(pause, 1), "ACFRS"))) Or
pause = "C" _
Or (Left(pause, 1) = "D" And Right(pause, 1)
<> "R" And Right(pause,
1) <> "T") Then
calcheur = 6.1 + HS1 + HS2 - RC
Si tu penses à quelque chose ...
Merci d'avance.
Jean-Marie
"Ellimac" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:068c01c3bd8a$2a6c6830$a401280a@phx.gbl...
Bonjour,
Lance l'enregistreur de macro et tape ta formule.
Camille
-----Message d'origine-----
Bonjour,
J'ai ceci dans une fonction : (ESTERR(TROUVE(DROITE
(H$6:H$168);"ECTLM"))
Il ne suffit pas d'enregistrer une macro qui crée une formule dans une feuille excel pour connaitre sa syntaxe en anglais !!
Ben pourquoi pas ? Ca donne ~ 90% de la syntaxe (fonctions natives) non ?
Pour utiliser une fonction de calcul Excel DANS LE CODE VB, il faut : Traduire la fonction Excel en anglais (Utiliser le fichier ListeVBA.xls)
puis utiliser l'objet WorksheetFunctions dans le code VB, Avec Application.NomDeLaFonction(arguments) ça marche pas mal et même des fois,
mieux
Et la méthode Evaluate ? Toutes les fonctions de feuille peuvent "y passer"
C'était juste pour le smilblick AV
AV
Oui, pour des raison de compatibilité descendante, c'est ce qu'on faisait en VBA avec xl5 et xl7, en Xl97, l'objet WorksheetFunction doit normalement être utilisé.
Pour le smilblick : Il existe des problèmes quant à l'utilisation de WorksheetFunction avec certaines fonctions mal implantées (voir archives)
PS : Si tu mettais ta pendule à l'heure... ;-) AV
Oui, pour des raison de compatibilité descendante, c'est ce qu'on faisait en
VBA avec xl5 et xl7, en Xl97, l'objet WorksheetFunction doit normalement
être utilisé.
Pour le smilblick :
Il existe des problèmes quant à l'utilisation de WorksheetFunction avec
certaines fonctions mal implantées (voir archives)
Oui, pour des raison de compatibilité descendante, c'est ce qu'on faisait en VBA avec xl5 et xl7, en Xl97, l'objet WorksheetFunction doit normalement être utilisé.
Pour le smilblick : Il existe des problèmes quant à l'utilisation de WorksheetFunction avec certaines fonctions mal implantées (voir archives)
