Formule Excel
Bonjour,
Travaillant actuellement en Angleterre mon superviseur m'a donné un travail à faire sur excel.
Explication:
mon travail consiste a creer une macro.
par exemple j'ai un prix total que je doit diviser par le nombre de mois
par exemple 20 mois prix total 100 000 pounds
le resultat sera 5000 pounds
donc dans la cellule premier mois je saisi 5000
idem pour la cellule 2 eme mois ainsi de suite
je voulais savoir si il existe une formule capable d'ajouter des cellules par exemple si je saisi 20 dans la cellule nombre de mois celui-ci me met automatiquement 20 cellules a cote representant les 20 mois ( 1, 2 , 3 , 4 )
De plus, si la cellule nombre de mois est C8 et que le prix total est F6 j'ai applique cette formule =$F$6/$C$8
voila un petit schema pour mieux comprendre
Mois ---> 20 prix total -----> 100 000
mois 1----> 5000
mois 2----> 5000
mois 3---->5000
............
merci pour votre aide et desole pour les accents ils n'existent pas en angleterre
Bonjour et bienvenue,
Le premier mois doit commencer en quelle cellule ? C9, A9, ????
Le premier 5000 (exemple) doit commencer en F9, ...
Merci de préciser
Dan
nb Months
20
prix total
100 000
1 5000
2 5000
3 5000
4 5000
5 5000
6 5000
7 5000
8 5000
9 5000
10 5000
..................
le premier mois c'est a dire la ou il y a la valeur 5000 commence en F7 le nombre de mois est en C8 le prix total est en F6
merci d'avance pour ta reponse
Re,
essaie ce code à placer dans un module en VBA et lui associer un bouton
Sub remplir()
'Macro Dan pour fifter le 10/08/09
Dim mth As Byte, i As Byte
Dim tot As Long
Dim prelig As Integer
Range("F7:F" & Range("F65536").End(xlUp).Row).ClearContents
mth = Range("C8")
tot = Range("F6")
prelig = 7
For i = 1 To mth
Range("F" & prelig) = tot / mth
prelig = prelig + 1
Next
End SubAmicalement
Dan
---> voir post en dessous
ok j'ai applique ta macro mais lorsque je change le nombre de mois ou le prix total cela n'a aucun impact sur les donnees c'est a dire que ta macro ne prend pas automatiquement le changement des donnees mois et prix . Si tu applique cette formule a l'ensemble du tableau =$F$6/$C$8 celle ci prendra en compte le changement F6 et C8 c'est a dire mois et prix
re,
Fais ceci :
- Clique droite sur l'onglet concerné (ici je vois Sheet2)
- choisis "visualiser le code"
- mets le code ci-dessous
Option Explicit
Dim ok As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
'Macro Dan pour fifter le 10/08/09
'http://forum.excel-pratique.com/viewtopic.php?t=12762
Dim mth As Byte, i As Byte, prelig As Byte
If ok = True Then Exit Sub
If Not Intersect(Target, Union(Range("C8"), Range("F6"))) Is Nothing Then
ok = True
Range("E7:F65536").ClearContents
mth = Range("C8")
prelig = 7
For i = 1 To mth
Range("E" & prelig) = i
Range("F" & prelig) = Range("F6") / mth
prelig = prelig + 1
Next
End If
ok = False
End SubQuestion : peux-tu avoir plus de 250 mois ?
Amicalement
Dan
Bonjour,
non je ne peux pas avoir plus de 250 mois. Juste une question lorsque je veux creer un bouton macro je clique sur le smiley et je ne peux selectionner aucune Macro alors que j'ai bien rentrer ta formule dans VBA
Merci d'avance
sinon sa fait longtemps que tu tiens le forum?
re,
Avec ce code tu n'as pas besoin de bouton. cela se fait automatiquement à chaque changement de valeur en C8 et / ou F6.
si tu as besoin d'un bouton, prends le premier code que je t'ai donné.
Amicalement
Dan
PS : Pour ce qui est du forum, je suis modérateur depuis début 2008, je pense. L'administrateur étant Sébastien.
ok nikel sa fonctionne chapeau
merci beaucoup pour ton aide
je recommanderai ton forum à plusieurs de mes amis qui eux aussi travail sur excel.
et encore merci !!!!
amicalement
Fifter
Bonjour,
Si la réponse t'a satisfait, merci de remplir la petite formalité (à gauche en bas de page)
en étant connecté.
Cordialement,