IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Fomule VBA R1C1


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    DG
    Inscrit en
    Mars 2021
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Monaco

    Informations professionnelles :
    Activité : DG
    Secteur : Santé

    Informations forums :
    Inscription : Mars 2021
    Messages : 20
    Par défaut Fomule VBA R1C1
    Bonjour à tous,

    J'aimerais déclencher la formule suivante en colonne 16 dès qu'un numéro de facture est saisi en colonne 4, ici en ligne D :
    =SIERREUR(SI(SIERREUR(RECHERCHEV(D4;'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!$F$1:$J$23000;4;FAUX);RECHERCHEV(D4*1;'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!$F$1:$J$23000;4;FAUX))=0;"Pas d'arrivée";SIERREUR(RECHERCHEV(D4;'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!$F$1:$J$23000;4;FAUX);RECHERCHEV(D4*1;'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!$F$1:$J$23000;4;FAUX)));"")


    J'ai tenté avec la formule suivante mais cela me ramène systématiquement un "FAUX".

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub Worksheet_Change(ByVal Target As Range)
            If Target.Column = 4 Then
    Target.Offset(0, 12) = FormulaR1C1 = "=IF(RC[-12]="""","""",IFERROR(IF(IFERROR(VLOOKUP(RC[-12],'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!R1C6:R23000C10,4,FALSE),VLOOKUP(RC[-12]*1,'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!R1C6:R23000C10,4,FALSE))=0,""Pas d'arrivée"",IFERROR(VLOOKUP(RC[-12],'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!R1C6:R23000C10,4,FALSE),VLOOKUP(RC[-12]*1,'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!R1C6:R23000C10,4,FALSE))),""""))" & ""
       End If
          End Sub
    Pourriez vous me filer un coup de pouce?
    Merci!!

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Bonjour,


    Je ne peux pas tester la formule mais ce que je vois:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Target.Offset(0, 12) = FormulaR1C1 =
    devrait s'écrire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Target.Offset(0, 12).FormulaR1C1 =
    Cdlt

  3. #3
    Membre averti
    Homme Profil pro
    DG
    Inscrit en
    Mars 2021
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Monaco

    Informations professionnelles :
    Activité : DG
    Secteur : Santé

    Informations forums :
    Inscription : Mars 2021
    Messages : 20
    Par défaut
    Bah, voilà, c'était juste çà!


    Merci bcp!!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Traduction Formule Excel R1C1 --> $R1$C1 en VBA
    Par rampage92 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 06/06/2016, 20h57
  2. [XL-2013] Formule R1C1 en VBA avec variable
    Par Ghost0000 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 18/02/2016, 17h05
  3. [Toutes versions] executer code vba apres le calcul automatique des fomules
    Par LaPanic dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 19/12/2011, 17h42
  4. [VBA-E]:copier des cellules en gardant les fomules
    Par VBBBA dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/06/2006, 10h53
  5. problème avec VBA
    Par Delph dans le forum Langage
    Réponses: 2
    Dernier message: 19/08/2002, 13h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo