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:

Es1 free erreur
Erreur 0x80070643 - Accueil - Windows
Word 2013 free download - Télécharger - Traitement de texte
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Sketchup free - Télécharger - 3D
Erreur 1001 outlook - Accueil - Bureautique

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 524
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+

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

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
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+

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

Discussions similaires

Free erreur 38 : impossible d'envoyer des SMS

message "impossible d'envoyer le message via free erreur 0"

ATTENTION A FREE FLEX

smartphone impossible envoyer le message via sim1. erreur 0

erreur 38