Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la formule
Vlookup, la référence à la colonne où tu
cherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" a écrit dans le message de
news:%
Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe
Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la formule
Vlookup, la référence à la colonne où tu
cherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message de
news:%23JKJLE7qDHA.1408@TK2MSFTNGP11.phx.gbl...
Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe
Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la formule
Vlookup, la référence à la colonne où tu
cherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" a écrit dans le message de
news:%
Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe
Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la formule
Vlookup, la référence à la colonne où tu
cherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" a écrit dans le message de
news:%
Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe
Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la formule
Vlookup, la référence à la colonne où tu
cherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message de
news:%23JKJLE7qDHA.1408@TK2MSFTNGP11.phx.gbl...
Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe
Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la formule
Vlookup, la référence à la colonne où tu
cherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" a écrit dans le message de
news:%
Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe
Bonjour Christophe,
Ce doit être un "simple" problème de syntaxe
Un exemple de concaténation que je peux te donner :
Range("B2").FormulaLocal = "=SI(A1=""Denis"";""Denis"";"""") & ""
""&SI(A2=""Michon"";""Michon"";"""")"
Attention aux coupures de la ligne du service de messagerie.
Salutations!
"Christophe Joly" a écrit dans le message de
news:
Bonsoir Denis:
Merci. J'ai suivi tes instructions et écrit la formule ci-dessous dans une
macro. J'ai du changer& "" "" & en & " " & car autrement j'obtenais une
erreur de compilation.
ActiveCell.Formula >
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))" & " " &
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,16,TRUE)))"
Malheureusement j'obtiens le résultat FAUX dans C16 alors que je devrais
obtenir un prenom et un nom. Les references de ma feuille et cellules ont
pourtant l'air bonnes.
Quand je vais sur C16 je lis la formule suivante.
=SI(ESTERREUR(RECHERCHEV(B16,USCompanyData,15,VRAI)),"",(RECHERCHEV(B16,USCo
mpanyData,15,VRAI)))
=SI(ESTERREUR(RECHERCHEV(A16,USCompanyData,16,VRAI)),"",(RECHERCHEV(B16,USCo
mpanyData,16,VRAI)))
Aurais-tu une petite ou une grande idée.
Merci.
Christophe
"Denis Michon" a écrit dans le message de
news:BAvtb.33593$Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la
formule
Vlookup, la référence à la colonne où tucherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" a écrit dans le message de
news:%Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule
en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers
la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon
à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe
Bonjour Christophe,
Ce doit être un "simple" problème de syntaxe
Un exemple de concaténation que je peux te donner :
Range("B2").FormulaLocal = "=SI(A1=""Denis"";""Denis"";"""") & ""
""&SI(A2=""Michon"";""Michon"";"""")"
Attention aux coupures de la ligne du service de messagerie.
Salutations!
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message de
news:eFY1Xm7qDHA.2520@TK2MSFTNGP09.phx.gbl...
Bonsoir Denis:
Merci. J'ai suivi tes instructions et écrit la formule ci-dessous dans une
macro. J'ai du changer& "" "" & en & " " & car autrement j'obtenais une
erreur de compilation.
ActiveCell.Formula >
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))" & " " &
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,16,TRUE)))"
Malheureusement j'obtiens le résultat FAUX dans C16 alors que je devrais
obtenir un prenom et un nom. Les references de ma feuille et cellules ont
pourtant l'air bonnes.
Quand je vais sur C16 je lis la formule suivante.
=SI(ESTERREUR(RECHERCHEV(B16,USCompanyData,15,VRAI)),"",(RECHERCHEV(B16,USCo
mpanyData,15,VRAI)))
=SI(ESTERREUR(RECHERCHEV(A16,USCompanyData,16,VRAI)),"",(RECHERCHEV(B16,USCo
mpanyData,16,VRAI)))
Aurais-tu une petite ou une grande idée.
Merci.
Christophe
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:BAvtb.33593$Ng3.22048@charlie.risq.qc.ca...
Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la
formule
Vlookup, la référence à la colonne où tu
cherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message de
news:%23JKJLE7qDHA.1408@TK2MSFTNGP11.phx.gbl...
Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule
en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers
la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon
à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe
Bonjour Christophe,
Ce doit être un "simple" problème de syntaxe
Un exemple de concaténation que je peux te donner :
Range("B2").FormulaLocal = "=SI(A1=""Denis"";""Denis"";"""") & ""
""&SI(A2=""Michon"";""Michon"";"""")"
Attention aux coupures de la ligne du service de messagerie.
Salutations!
"Christophe Joly" a écrit dans le message de
news:
Bonsoir Denis:
Merci. J'ai suivi tes instructions et écrit la formule ci-dessous dans une
macro. J'ai du changer& "" "" & en & " " & car autrement j'obtenais une
erreur de compilation.
ActiveCell.Formula >
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))" & " " &
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,16,TRUE)))"
Malheureusement j'obtiens le résultat FAUX dans C16 alors que je devrais
obtenir un prenom et un nom. Les references de ma feuille et cellules ont
pourtant l'air bonnes.
Quand je vais sur C16 je lis la formule suivante.
=SI(ESTERREUR(RECHERCHEV(B16,USCompanyData,15,VRAI)),"",(RECHERCHEV(B16,USCo
mpanyData,15,VRAI)))
=SI(ESTERREUR(RECHERCHEV(A16,USCompanyData,16,VRAI)),"",(RECHERCHEV(B16,USCo
mpanyData,16,VRAI)))
Aurais-tu une petite ou une grande idée.
Merci.
Christophe
"Denis Michon" a écrit dans le message de
news:BAvtb.33593$Bonjour Christophe,
Tu as donné la solution, ce n'est pas le fun ...;-)
Range("C16").Select
ActiveCell.Formula = "=IncrisLaFormuledéjàContenudansDeC16 & "" "" &
FormuleContenuDansD16"
Pour ce qui est de la formule dans D16, il faudra juste adapter la
formule
Vlookup, la référence à la colonne où tucherches la donnée VLOOKUP(RC[-2] ... le 2 pour un 1.
Salutations!
"Christophe Joly" a écrit dans le message de
news:%Bonsoir:
J'ai les deux formules suivantes:
Range("C16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],CompanyData,15,TRUE)),"""",(VLOOKUP(RC[-1],Compa
nyData,15,TRUE)))"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],CompanyData,16,TRUE)),"""",(VLOOKUP(RC[-2],Compa
nyData,16,TRUE)))"
Je souhaite fusionner les contenus de C16 et de D16 en 1 seule cellule
en
C16
Mon niveau débutant me pousserait à faire quelque chose du genre/
Range("E16").Select
ActiveCell.Formula = "Á6&"" ""&D16"
puis à copier/coller la valeur de E16 dand F16 et enfin supprimer vers
la
gauche C16:E16 afin que le contenu de F16 se retrouve dans C16
Mais voila je suis sur qu'il y a beaucoup beaucoup plus simple de facon
à
éviter les copier/coller inutiles sans doute une formule qui associerait
VLOOKUP et la concatenation?
Merci d'avance pour votre aide.
Christophe