Sujet Précédent Sujet Suivant

Une erreur dans le code vba d'une formule

Résolu/Fermé
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 7 avril 2016 à 19:03
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 7 avril 2016 à 22:27
salut les amis
j'ai essaye d'introduire la réalisation d'une condition pour l’exécution d'une macro mais mon code s’arrête ici :

LEFT('ES1'!R[1]C[-23],4)*LEFT('ES1'!R[1]C[-23],4) = accueil!R[8]C[-27]

ES1 et accueil sont des onglets de mon classeur

merci d'avance
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
7 avril 2016 à 19:20
Bonjour,

1) Ce que tu appelles code VBA ressemble plutôt à une formule Excel.

2) La fonction LEFT renvoie des caractères : qu'est-ce que tu espères obtenir en multipliant 2 chaines de caractères ?

Si tu souhaites de l'aide, il va falloir te montrer plus clair.

A+
0
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
7 avril 2016 à 19:33
salut
oui c'est une formule que j'ai essayé de convertir en code vba
c a d si en multipliant les 3 premier nombre a partir de gauche de la cellule F3 de la feuil ES1 par eux même je trouve la valeur écrite dans la cellule B10 de la feuille accueil alors macro s’exécute
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
7 avril 2016 à 21:38
Essaie cette macro : 
Sub Test()
Dim Ws1 As Worksheet, Ws2 As Worksheet
    Set Ws1 = Worksheets("ES1")
    Set Ws2 = Worksheets("accueil")
    If Left(Ws1.Range("F3").Value, 4) * Left(Ws1.Range("F3").Value, 4) = Ws2.Range("B10").Value Then
        MsgBox "La condition est vérifiée !", vbInformation
    Else
        MsgBox "La condition n'est pas vérifiée !", vbCritical
    End If
End Sub

A+
0
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
7 avril 2016 à 22:27
Merci Gyrus c'est génial
0

Discussions similaires

Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Pourquoi je n'arrive plus à envoyer ni recevoir de SMS avec Free Mobile ?
Materio -
bern -

32 réponses
erreur 38
claude -
fermiparadoxx -

2 réponses