Discussion :

[Kestion100]

Bonjour,
----C'est une commande, je ne peux déroger à la forme!!----

Je dois remplir une colonne d'un tableau avec des nombres d'un autre tableau dans un autre onglet.
Je n'avais aucun problème tant qu'il s'agissait de faire les somme à chaque tour de boucle mais en fait, la commande est de faire apparaître l'opération.

Je dois donc remplir les cellules d'une colonne d'un tableau:

B26
B27
B28
.
.
.

en y sommant les valeurs d'un tableau d'un autre onglet mais en faisant apparaître l'opération: 26 + 42 + .....

Récupérer ces valeurs ne me pose pas de problème, le code est déjà en place mais je pense devoir passer par

Code :

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

Formula

pour respecter la commande mais un

Code :

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

Formula

imbriqué:
Ca ferait:

Code :

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

cells(i,j).select

Code :

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

Selection.Formula = Valeur1

Au premier tour de la boucle.

Pas de problème ici.

Le problème vient au deuxième tour de la boucle:

Code :

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

Selection.formula = "=" & cells(i,j).value & "+" & Valeur2

plante:

Code :

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

Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet"

Est-ce que quelqu'un voit une solution à mon problème?


Merci beaucoup d'avance à tout aide!!!!!!

[Kestion100]

Je viens de me rendre compte que je code:

Code :

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

Selection.Formula =  Valeur1

Ce qui fonctionne mais:

Code :

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

Selection.Formula = "=" & Valeur1

ne fonctionne pas, même plantage

[joe.levrai]

Bonjour,

tu souhaites faire apparaître le calcul des sommes cumulées ? Dans ce cas il ne faut pas utiliser Formula.

un exemple de sommes cumulées apparentes réalisées sur une même feuille : les sommes cumulées apparaissent deux colonnes plus loin

Code :

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

1
2
3
4
5
6
7
Sub toto()
Dim Cell As Range, Chaine As String
    For Each Cell In Selection.Cells
        If Chaine = "" Then Chaine = Cell.Value Else Chaine = Chaine & "+" & Cell.Value
        Cell.Offset(0, 2).Value = Chaine
    Next Cell
End Sub

[Kestion100]

Si je ne me suis pas planté, l'opération apparaît bien dans la cellule mais il faudrait que ce soit la somme qui apparaisse et la formule dans la barre de formule, je me suis mal exprimé.

[Kestion100]

Code :

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

2 501,54

dans la cellule mais:

Code :

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

=2422+79,54

dans la barre de formule

[Kestion100]

Trouvé:

Code :

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

1
2
3
 Valeur = Sheets("X").Cells(i, 2).Value                       
 Valeur = Valeur & "+" & ValJCAR
 Selection.FormulaLocal = "=" & Valeur

[Kestion100]

En revanche, au troisième tour, il ne fait plus trois termes dans l'opération mais la première somme + le troisième terme.

[halaster08]

Bonjour,

Si j'ai bien compris:

Code :

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

1
2
3
4
5
6
Sub aa()
Cells(1, 3).Formula = "=" & Cells(1, 1).Value
For i = 2 To 6
Cells(i, 3).Formula = Cells(i - 1, 3).Formula & "+" & Cells(i, 1).Value
Next i
End Sub

[Kestion100]

PERFECT MERCI!!!!!