Macro : même formule toutes les 2 lignes

blackstyle · 15 Mars 2020

Bonjour,
Tout d'abord, merci à tous ceux qui prendront le temps de lire ma question.
Je cherche à automatiser par une macro un fichier qui vient d'une source externe, la forme du fichier sera toujours la même.
J'aimerais idéalement me placer tout le temps en cellule B3 et copier le texte de la cellule juste au dessus (ici A),
PUIS descendre de 2 lignes et appliquer la même formule (ici B)
PUIS descendre de 2 lignes et appliquer la même formule (ici C)
ENFIN tout arrêter quand la macro rencontre "Total:"

J'espère avoir été clair, et merci d'avance de l'aide que vous pourrez m'apporter sur ce sujet.
Cdlt
Jimmy

blackstyle · 15 Mars 2020

Staple1600 à dit:
Re

•>blackstyle
Alors testes ceci
Sur un classeur vierge, lance cette 1ere macro

VB:

Sub Créer_Exemple() Dim t, tt t = Array("A", Empty, "B", Empty, "C", Empty) tt = Array(100, Empty, 200, Empty, 300) [A2] = "ZB1" Range("A2:A3").AutoFill Destination:=Range("A2:A7"), Type:=xlFillDefault [B2:B7] = Application.Transpose(t) [C3:C7] = Application.Transpose(tt) [A8:C8] = Array("TOTAL", Empty, "=SUM(C2:C7)") [A1:C1] = Array("Référence", "Lettre", "montant") [A1:C8].Borders.Weight = 2 End Sub

NB: Elle ne sert qu'à créer l'exemple pour le test
Puis lance la macro que j'ai posté dans le message#2
Que-penses tu du résultat obtenu?

hey pas mal du tout
merci
j’approfondis pour savoir si ça colle avec mon fichier
résultat de ta macro :

Staple1600 · 15 Mars 2020

Re

Donc c'est bien ce qu'il fait faire ?
Remplir une cellule vide avec la valeur de celle juste au dessus dans les colonnes A et B ?

blackstyle · 15 Mars 2020

Staple1600 à dit:
Re

Donc c'est bien ce qu'il fait faire ?
Remplir une cellule vide avec la valeur de celle juste au dessus dans les colonnes A et B ?

La colonne B me suffit, mais s'il y a également la colonne A, j'achète aussi quand même

Staple1600 · 15 Mars 2020

Re

Alors une version que pour la colonne B

VB:

Sub test_sommaireB()
With Range("B1:B" & Cells(Rows.Count, 1).End(3).Row - 1)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

blackstyle · 15 Mars 2020

Merci à vous 2 pour vos réponses,
juste une petite remarque : mon point de départ sera un export de fichier, je n'ai pas de fichier à construire à la base. Mon fichier d'export ressemblera au print ci-dessous, ce sera un fichier "vivant", où les lignes se rajouteront au fil des exports, d'où mon besoin de VBA.

Staple1600 · 15 Mars 2020

Re

??
Ce n'est pas du VBA que j'ai posté dans mes messages ?

blackstyle · 15 Mars 2020

Staple1600 à dit:
Re

??
Ce n'est pas du VBA que j'ai posté dans mes messages ?

Si, si pas de souci . J'ai dit ça juste pour préciser ma recherche
Encore merci
Je check si ça colle avec mon fichier d'export

Macro : même formule toutes les 2 lignes

blackstyle

XLDnaute Nouveau

blackstyle

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

blackstyle

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

blackstyle

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

blackstyle

XLDnaute Nouveau

Discussions similaires