VBA recopier n fois une valeur dans n colonnes qui se suivent

Bonjour à tous,

Tout nouveau sur ce site
Et en reprise de programmation VBA, délaissée depuis mes études (6 ans)....

Un vrai noob régalez-vous ^^

Mon souci:

Je bosse sur un tableau de ventilation de coût. Ventilation par mois
Je bosse à la ligne. La dernière non vide.

Je voudrais ventiler une somme (ex: 5000€) en la recopiant n fois à partir du 1er mois de ventilation (ex: mars = 3)
"n" étant le nombre de mois donc le nombre de colonne dans lequel recopier la valeur consécutivement (ex= 9 mois / qui est calculé dans une cellule)
=> coller 555.55€ (=5000/9) à partir de la colonne C

Le tout en commençant le collage dans la colonne du 1er mois de ventilation (cette valeur est calculée dans une cellule)

Voilà quelqu'un aurait-il une solution ??

Merci :-)

Pièce jointe 201098Pièce jointe 201098

Bonjour Tonio Saeba,

Une proposition :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Ventiller(ByVal Montant As Double, ByVal PermierMois As Long, ByVal NombreMois As Long, ByVal ligne As Long) Dim j& For j = PermierMois To PermierMois + NombreMois - 1 ActiveSheet.Cells(ligne, j).Formula = "=" & Montant & "/" & NombreMois Next j End Sub   Sub test() Call Ventiller(5000, 3, 9, 1) End Sub

---

La procédure de test va écrire sur la ligne dans les colonnes C à K la formule : =5000/9

Bonjour !

Pourquoi ne pas l'effectuer directement par formule dans les cellules sans en passer par le VBA ?

Sinon une démonstration VBA :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Demo() Application.ScreenUpdating = False With Feuil1.Cells(1).CurrentRegion For R& = 2 To .Rows.Count If .Cells(R, 9).Value Then SP = Split(.Cells(R, 4).Text, "/") If UBound(SP) = 2 And .Cells(R, 7).Value Then .Cells(R, 9 + SP(1)).Resize(, .Cells(R, 7).Value) = CDbl(.Cells(R, 9).Text) End If Next End With Application.ScreenUpdating = True End Sub

---

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Paris, Charlie, …

Bonjour Antony,

Ecoute tout d'abord un grand merci car le principe de ta procédure est exactement ce que je recherchais !
D'ailleurs je trouve ça très ingénieux ^^

J'ai changé la procédure test () de cette façon:

Code:

---

1 2 3

Sub test() Call Ventiller(Range("I" & Rows.Count).End(xlUp).Value, Range("E" & Rows.Count).End(xlUp).Value, Range("I" & Rows.Count).End(xlUp).Value, Range("A" & Rows.Count).End(xlUp).Rows) End Sub

---

Afin que le calcul se fasse sur la dernière ligne non vide du tableau, avec des valeurs déjà calculées en automatique et disponibles dans les dernières cellules non vides des colonnes E, G et I (PremierMois, NombreMois, Montant).

Dès lors, comment coller non pas de C à K, mais de façon variable c'est-à-dire:
En J si le mois de début est Janvier
En K si '' '' Février
En L si '' '' Mars
En M si '' '' Avril
Etc...
Et cela sur la dernière ligne non vide du tableau ?

Je suis désolé, je ne saisie pas encore où as-tu mis la commande "coller" dans ta procédure ...

Merci d'éditer ton post afin de respecter les règles du forum en balisant le code via l'icône dédiée # !

Ma démonstration devrait répondre à ton besoin ! J'ai utilisé la fonction Split car j'ai vu du texte à la place d'une date …

Bonjour Marc-L,

Je te remercie pour ta procédure
Malheureusement je ne parviens pas à la faire fonctionner :oops:

Comment dois-je déclarer tes variables ?


PS: Merci également pour ton indication sur la bonne utilisation du #

J'ai dû avoir un souci lors de la conversion de ton classeur sous Excel 2003 car après un plantage d'Excel,
plus de problème de date donc voici un nouveau code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Demo2() Application.ScreenUpdating = False With Feuil1.Cells(1).CurrentRegion For R& = 2 To .Rows.Count V = .Cells(R, 9).Text If IsNumeric(V) Then If V Then .Cells(R, 9 + Month(.Cells(R, 4).Value2)).Resize(, .Cells(R, 7).Value) = CDbl(V) Next End With Application.ScreenUpdating = True End Sub

---

Aucune besoin de déclaration de variables car typées à la volée si nécessaire (vérifie dans la fenêtre des Variables locales) …
Sauf si tu utilises Option Explicit, là c'est tel qu'elles apparaissent la première fois dans le code !
Pour plus d'information, lire l'aide VBA concernant les différents types de variables …

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Par formule en J2

Code:

---

=SI(MEDIANE(COLONNES($J$1:J$1);MOIS($D2);MOIS($F2))=COLONNES($J$1:J$1);$H2/(1+DATEDIF($D2;$F2;"m"));"")

---

Tu tires la formule vers la droite et vers le bas.

Il faudrait ajuster la formule pour avoir le mois de départ et le nombre de mois. La formule prend la date de début et la date de fin ainsi que le montant à dispatcher comme arguments

Merci à tous pour vos réponses, toutes les plus utiles les unes que les autres
(désolé j'ai beau cliqué sur le petit pouce vert mais pas prise en compte)

Pour finir j'ai donc utilisé la formule de MERCATOG
Simple et légère, elle permettra une maintenance plus claire pour la personne qui passera derrière moi sur le fichier.

Je me permet de garder les autres procédures sous le coude et qui me serviront à coup sûr !

Je vous souhaite à tous un très bon week end pour ce vendredi ensoleillé ^^

Antoine