écriture d'une macro se plante dans excel 2011 ou 2016

Résolu
Utilisateur anonyme -  
thev Messages postés 1985 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
cette macro fonctionne correctement 
Sub Macro2()
 Range("E2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-2]="""","""",IF(HLOOKUP(RC[-2],R[-1]C[6]:R[6]C[13],2,FALSE)=0,"""",HLOOKUP(RC[-2],R[-1]C[6]:R[6]C[13],2,FALSE)))"
End Sub

Comment l'écrire sous cette forme qui plante ? 
Sub Macro()
 Range("E2").Select
If range(C2 = "";"" ,(HLookup("C2", "K1:R8", 2, False = "0", "", HLookup ("C2", "K1:R8", 2, False))
End Sub

MERCI beaucoup pour votre aide
A voir également:

2 réponses

Réponse 1 / 2
Arkana0 Messages postés 6365 Date d'inscription   Statut Modérateur Dernière intervention   182
 
Bonjour,

Pour écrire une formule dans la cellule E2 : 
Range("E2").FormulaLocal = "=Ta formule"

Entre les guillemets, tu écris exactement comme si tu étais sur Excel, à un détail près : quand tu voudras écrire 
""
, tu devras mettre à la place 
" & Chr(34) & Chr(34) & "

En effet, en VBA, les guillemets servent à indiquer un début et une fin de chaîne de caractères.
Pour écrire des guillemets il faut utiliser Chr(34), afin que le code comprenne de quoi il s'agit.
Pour les introduire, tu vas devoir fermer la chaîne de caractères que tu as écrite jusqu'au moment où tu souhaites mettre ton guillemet...en mettant un guillemet donc.
Tu dois ensuite ajouter plusieurs chaînes de caractères entre-elles, et c'est l'opérateur 
&
qui le permet

Rq : l'étape Range("E2").Select est inutile, sauf si tu as vraiment besoin que la cellule soit sélectionnée. Autrement, ça fait perdre beaucoup de temps d'exécution au code.
0
Utilisateur anonyme
 
re bonjour
il serait plus clair pour moi si tu voulais bien écrire cette macro
Je sais c'est la facilité mais j'y est passé tellement de temps et un peu d'indulgence pour un vieux monsieur
Merci d'avoir répondu si vite et peut être pour la suite ?
0
Réponse 2 / 2
thev Messages postés 1985 Date d'inscription   Statut Membre Dernière intervention   713
 
Bonjour,

J'ai de l'indulgence parce que je ne suis pas tout jeune non plus.

formule à adapter en VBA pour la cellule E2 :
=IF(C2="","",IF(HLOOKUP(C2,K1:R8,2,FALSE)=0,"",HLOOKUP(C2,K1:R8,2,FALSE))) 



Sub Macro()
 
    If [C2] = "" Then
        [E2] = ""
    Else
        If Application.HLookup([C2], [K1:R8], 2, False) = 0 Then
            [E2] = ""
        Else
            [E2] = Application.HLookup([C2], [K1:R8], 2, False)
   End If

End Sub


 
0
irettigam
 
Je vais sur 74 ans et toi ?

je teste et te tiens au courant
MERCI
0
thev Messages postés 1985 Date d'inscription   Statut Membre Dernière intervention   713 > irettigam
 
Un peu plus jeune. 65 ans. Content d'avoir pu t'aider.
Je rajoute le "End if" manquant 


Sub Macro()
 
    If [C2] = "" Then
        [E2] = ""
    Else
        If Application.HLookup([C2], [K1:R8], 2, False) = 0 Then
            [E2] = ""
        Else
            [E2] = Application.HLookup([C2], [K1:R8], 2, False)
        End if
    End If

End Sub
0
irettigam
 
UN GRAND MERCI ça fonctionne très bien (il manquait simplement un end if)
Ceci va me servir de modèle pour d'autres applications
Je te suis vraiment très reconnaissant d'avoir résolu mon problème en apportant la solution sur un plateau
MERCI,MERCI vraiment
0
irettigam
 
ENCORE moi je me suis trop précipité en effet Si C2 trouve ....OK en E2
Si C2 ne trouve..... pas OK en E2
mais si C2 est égal à blanc il apparait # N/A en E2 pourquoi ?
Un message apparait : incompatibilité de type... si je clic sur déboguer la ligne :
if application.hlookup( apparait en sur brillance
Merci
0
irettigam
 
DESOLE ça marche très bien
C'est cela la vieillesse !
MERCI encore
Bonne journée
irettigam
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
Telecharger nblettre gratuit
kerroum37 -
brucine -

7 réponses