Macro : même formule toutes les 2 lignes

[blackstyle]

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]

Re

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

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]

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]

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]

Re

Alors une version que pour la colonne B

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]

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]

Re

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

 

[blackstyle]

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