Macro

[zozo]

Bonjour,
Je souhaite créer une macro qui :

1-Ouvre le classeur X, qui contient de 1 à N lignes sur la feuille X.

2-Exécuter (sur le nombre de lignes qui existe sur la feuille X du classeur X) la commande suivante que j'ai testé qui donne un bon résultat :

=CONCATENER(B2;C2;D2;" ";STXT(F2;1;NBCAR(F2));REPT("*";50-NBCAR(F2));G2;REPT("*";64);REPT("0";15-NBCAR(I2));SUBSTITUE(I2;","*1;"PAIE ";MAJUSCULE(TEXTE(AUJOURDHUI();"mmm "));ANNEE(AUJOURDHUI());REPT("*";135))

3-Ecrire le résultat obtenu sur la feuille Y du classeur Y.

Je vous suis reconnaissant pour toute intervention de votre part.

Pour infos, chez-mois j'utilise excel 2003 et au boulot 2007

 

[Compte Supprimé 979]

Bonjour, quel titre évocateur
Je ne savais pas qu'on utilisait encore CONCATENER()

 

[job75]

Bonsoir zozo, Bruno,

=CONCATENER(... ce n'est pas une commande mais une formule à entrer dans des cellules.

Question à 100 sous : quelles cellules ???

A+

 

[zozo]

Bonsoir zozo, Bruno,

=CONCATENER(... ce n'est pas une commande mais une formule à entrer dans des cellules.

Question à 100 sous : quelles cellules ???

A+

Merci Bruno pour la réponse,
Merci pour Formule, sur les cellule B, C, D, F, G et I de la feuille X.
Je l'ai exécuté manuellement, et j'ai obtenu le résultat souhaité.
Ce qui me manque, c'est la macro avec une boucle de 1 à N lignes, pour le faire automatique, et non manuel.

 

[job75]

Re,

Merci Bruno pour la réponse,
Merci pour Formule, sur les cellule B, C, D, F, G et I de la feuille X.

Moi c'est job75, et la formule ne doit certainement pas être entrée dans les colonnes B C D F G I !!!

Car cela provoquerait des références circulaires.

Je vous abandonne, bonne nuit.

 

[zozo]

Je m'excuse, je me suis mal exprimé, le résultat de la formule sera sur la cellule A de la feuille Y.

 

[Dranreb]

Bonsoir

… suivante que j'ai testé qui donne un bon résultat :

Tout de même STXT(F2;1;NBCAR(F2)) c'est F2 tout simplement.
SUBSTITUE(I2;","*1 me paraît suspect car donne un résultat très variable selon le nombre de décimales <> 0 en fin. J'aurais mieux admis TEXTE(I2*100;REPT("0";15)) par exemple.
L'avant dernier terme peut se simplifier en MAJUSCULE(TEXTE(AUJOURDHUI();"mmm aaaa"))
Cette formule peut elle bien être écrite en colonne A du fichier X avant d'en importer les valeurs dans le fichier Y ?

 

[zozo]

Bonsoir Dranreb,
Mon souci est la macro qui exécute cette formule sur le nombre de lignes du classeur X et le résultat serai le classeur Y.

 

[Dranreb]

Mais peut on bien d'abord mettre la formule sur le classeur X ? Parce que sinon il faut transformer toutes les adresses simples de cellules en références externes !

 

[Dranreb]

Notez que ça peut peut être se faire par une instruction

ActiveSheet.[A2].Resize(Workbooks("ClasseurX").Worksheets("Feuilx").UsedRange.Rows.Count - 1).FormulaR1C1 = Replace( _
"=CONCATENATE(RC[1],RC[2],RC[3],"" "",MID(RC[5],1,LEN(RC[5])),REPT(""*"",50-LEN(RC[5])),RC[6],REPT(""*"",64),REPT(""0"",15-LEN(RC[8])),SUBSTITUTE(RC[8],"","",)*1,""PAIE "",UPPER(TEXT(TODAY(),""mmm aaaa"")),REPT(""*"",135))", _
   "RC[", "[ClasseurX]FeuilX!RC[")

 

[zozo]

Notez que ça peut peut être se faire par une instruction

ActiveSheet.[A2].Resize(Workbooks("ClasseurX").Worksheets("Feuilx").UsedRange.Rows.Count - 1).FormulaR1C1 = Replace( _
"=CONCATENATE(RC[1],RC[2],RC[3],"" "",MID(RC[5],1,LEN(RC[5])),REPT(""*"",50-LEN(RC[5])),RC[6],REPT(""*"",64),REPT(""0"",15-LEN(RC[8])),SUBSTITUTE(RC[8],"","",)*1,""PAIE "",UPPER(TEXT(TODAY(),""mmm aaaa"")),REPT(""*"",135))", _
   "RC[", "[ClasseurX]FeuilX!RC[")

 

[zozo]

Et pour écrire le résultat sur le classeur Y ?

 

[Dranreb]

La macro étant supposée dans le classeur Y:

Sub test()
Dim RngSrc As Range
With Workbooks.Open(ThisWorkbook.Path & "\ClasseurX.xlsx")
   Set RngSrc = .Worksheets(1).UsedRange
   End With
Set RngSrc = RngSrc.Rows(2).Resize(RngSrc.Rows.Count - 1)
ThisWorkbook.Activate
ActiveSheet.[A2].FormulaR1C1 = "=" & RngSrc(1, 1).Address(True, True, xlR1C1, True)
ActiveSheet.[A2].Resize(RngSrc.Rows.Count).FormulaR1C1 = Replace( _
"=CONCATENATE(RC[1],RC[2],RC[3],"" "",MID(RC[5],1,LEN(RC[5])),REPT(""*"",50-LEN(RC[5])),RC[6],REPT(""*"",64),REPT(""0"",15-LEN(RC[8])),SUBSTITUTE(RC[8],"","",)*1,""PAIE "",UPPER(TEXT(TODAY(),""mmm aaaa"")),REPT(""*"",135))", _
   "RC[", Mid$([A2].FormulaR1C1, 2, Len([A2].FormulaR1C1) - 5) & "RC[")
End Sub

 

[job75]

Bonjour zozo, Nernard,

J'ai placé cette macro dans le classeur X.xls :

Sub RemplirColonneA()
'le fichier Y.xls doit être ouvert
On Error Resume Next
With ThisWorkbook.Sheets("X")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Range("A2", .Range("I" & .Rows.Count).End(xlUp)(2)).Columns(1)
        .Formula = "=CONCATENATE(B2,C2,D2,"" "",F2,REPT(""*"",50-LEN(F2)),G2,REPT(""*"",64),REPT(""0"",15-LEN(I2)),SUBSTITUTE(I2,"","",)*1,""PAIE "",UPPER(TEXT(TODAY(),""mmm "")),YEAR(TODAY()),REPT(""*"",135))"
        .SpecialCells(xlCellTypeFormulas, 16) = ""
    End With
    .UsedRange.EntireColumn.Copy Workbooks("Y.xls").Sheets("Y").[A1] 'pour copier les formats
    Workbooks("Y.xls").Sheets("Y").UsedRange = Workbooks("Y.xls").Sheets("Y").UsedRange.Value 'supprime les formules
End With
End Sub

Ouvrez les 2 classeurs et lancez-la.

Bonne journée.

 

[zozo]

Bonjour zozo, Nernard,

J'ai placé cette macro dans le classeur X.xls :

Sub RemplirColonneA()
'le fichier Y.xls doit être ouvert
On Error Resume Next
With ThisWorkbook.Sheets("X")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Range("A2", .Range("I" & .Rows.Count).End(xlUp)(2)).Columns(1)
        .Formula = "=CONCATENATE(B2,C2,D2,"" "",F2,REPT(""*"",50-LEN(F2)),G2,REPT(""*"",64),REPT(""0"",15-LEN(I2)),SUBSTITUTE(I2,"","",)*1,""PAIE "",UPPER(TEXT(TODAY(),""mmm "")),YEAR(TODAY()),REPT(""*"",135))"
        .SpecialCells(xlCellTypeFormulas, 16) = ""
    End With
    .UsedRange.EntireColumn.Copy Workbooks("Y.xls").Sheets("Y").[A1] 'pour copier les formats
    Workbooks("Y.xls").Sheets("Y").UsedRange = Workbooks("Y.xls").Sheets("Y").UsedRange.Value 'supprime les formules
End With
End Sub

Ouvrez les 2 classeurs et lancez-la.

Bonne journée.

Bonjour,
Merci pour l'effort, ça marche bien, reste qlqs retouches à faire.

Encore Merci et bonne journée.