Discussion :

[Tonio Saeba]

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 :-)

Exemple_Ventilation.xlsxExemple_Ventilation.xlsx

[antonysansh]

Bonjour Tonio Saeba,

Une proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour !

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

Sinon une démonstration VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Paris, Charlie, …

[Tonio Saeba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Marc-L]

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 …

[Tonio Saeba]

Bonjour Marc-L,

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

Comment dois-je déclarer tes variables ?


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

[Marc-L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …