Aide alimentation tableau à partir d'un formulaire

dhany a écrit :

Bonjour,

comme ceci :

If .Offset(, 11).Value <> 0 Then .Offset(, 12).Value = .Offset(, 18).Value / .Offset(, 11).Value
If .Offset(, 13).Value <> 0 Then .Offset(, 14).Value = .Offset(, 19).Value / .Offset(, 13).Value
If .Offset(, 15).Value <> 0 Then .Offset(, 16).Value = .Offset(, 9).Value / .Offset(, 15).Value

dhany

Oh super merci beaucoup !

Re,

Pourquoi ne pas avoir mis les formules dans le tableau ?

Et tu n'as pas besoin formater la colonne NN !?

Cdlt.

Jean-Eric a écrit :

Re,

Pourquoi ne pas avoir mis les formules dans le tableau ?

Et tu n'as pas besoin formater la colonne NN !?

Cdlt.

Parceque j'avais peur que les formules ne s'applique pas à chaque fois qu'une ligné était créée...

Formater la colonne N ? C'est-à-dire ?...

Bonjour,

Je me répète :

Bonjour,

Pour commencer un tableau (listobject) est dynamique. Il est inutile (déconseillé) de le dimensionner par défaut.

Lors de l'ajout de lignes, les formules, les mises en forme sont reconduites (y.c. les MFCs si existantes).

Tu mets tes formules, tu formates les cellules et Excel s'occupe du reste.

Veux-tu que je revoie le classeur en conséquence ?

Cdlt.

Jean-Eric a écrit :

Bonjour,

Je me répète :

Bonjour,

Pour commencer un tableau (listobject) est dynamique. Il est inutile (déconseillé) de le dimensionner par défaut.

Lors de l'ajout de lignes, les formules, les mises en forme sont reconduites (y.c. les MFCs si existantes).

Tu mets tes formules, tu formates les cellules et Excel s'occupe du reste.

Veux-tu que je revoie le classeur en conséquence ?

Cdlt.

Ah oui je veux bien merci

Bonjour,

Ton fichier en retour.

Tu as des valeurs hors tableau ??

A te relire.

Cdlt.

Jean-Eric a écrit :

Bonjour,

Ton fichier en retour.

Tu as des valeurs hors tableau ??

A te relire.

Cdlt.

Tracker pour forum v2 (1).xlsm

Bonjour,

Merci beaucoup

Oui c'est la seule façon que j'ai trouvée pour prendre en compte des taux de change afin que tout soit en €... il faudrait que je vous montre le vrai fichier afin que vous compreniez je pense...?

Aussi j'ai une toute autre question, je cherche à ajouter une feuille à la fin du classeur avec le nom de l'initiative mais je n'arrive pas à la mettre à la fin car ce code ne fonctionne pas :

With Sheets.Add After:=Worksheets(Worksheets.Count())

.Name = Listedéroulanteinitiatives.Value

End With

Sauriez-vous me dire pourquoi ?

Merci pour votre aide

Bonjour,

Pour le principe :

Dim ws As Worksheet
    Set ws = ActiveWorkbook.Worksheets("Progress report")
    ws.Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Listedéroulanteinitiatives.Value

Jean-Eric a écrit :

Bonjour,

Pour le principe :

Dim ws As Worksheet
    Set ws = ActiveWorkbook.Worksheets("Progress report")
    ws.Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Listedéroulanteinitiatives.Value

Super merci !

Jean-Eric a écrit :

Bonjour,

Pour le principe :

Dim ws As Worksheet
    Set ws = ActiveWorkbook.Worksheets("Progress report")
    ws.Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Listedéroulanteinitiatives.Value

Ah mince un onglet "Progress report" est créé or je souhaite créer un onglet avec le nom de l'initiative que je rentre dans mon formulaire, et ce en dernier c'est à dire que je veux que l'onglet soit à la fin

Merci !

Jean-Eric a écrit :

Bonjour,

Pour le principe :

Dim ws As Worksheet
    Set ws = ActiveWorkbook.Worksheets("Progress report")
    ws.Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Listedéroulanteinitiatives.Value

C'est bon finalement j'ai réussi

Maintenant j'ai une autre question, je souhaiterais qu'à chaque ligne de formulaire rajoutée dans le tableau, un nouvel onglet avec un graphique type histogramme soit créé pour la ligne rajoutée. Je souhaiterais faire une sorte de boucle car pour l'instant dans mon code (voir ci-dessous) j'ai sélectionné le range("I6,O6") :

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)

ActiveSheet.Name = Listedéroulanteinitiatives.Value

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Sheets("Progress report").Range("I6,O6"), PlotBy:=xlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:=Listedéroulanteinitiatives.Value

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "savings actual vs target"

End With

ActiveChart.HasLegend = True