Discussion :

[JuniorVBAPro]

Bonjour j'ai créé un programme permettant de générer un tableau avec un nombre de colonnes variables.
Tout se passe bien mis à part que je dois dans une cellule du tableau générer intégrer une addtion de plusieurs cellules qui sont sur la même ligne et de colonnes côte à côte.

Le nombre de colonnes est déterminé par l'utilisateur grâce à un formulaire. Ainsi le nombre de celles à additionner est égal au nombre de colonnes (donc variable et indéfini à l'avance)

Voici mon code actuel pour générer cette addition (qui ne marche pas bien sûr) , cela dépasse mes compétences pouvez- vous m'aider svp ?
ici le nombre de colonnes est égal à "ActiveCell(1, 2).Value"
la cellules o'u implanter l'addition est : " ActiveCell(4, 8) "
la la première cellule de la plage à selectionner pour l'addition est connue : "ActiveCell(8, 8)"

[clementmarcotte]

Bonjour,

Pour utiliser une fonction d'Excel dans une cellule à partir de VBA, tu dois utiliser Formula ou Formulalocal.

[JuniorVBAPro]

Merci du conseil clément pourrais-tu me donner un exemple de ta solution avec le code que j'ai fourni stp ?

Mais je pense qu'ici le problème est que je ne sais pas comment utiliser une fonction somme ou alors mettre en forme une addition avec ActiveCell et un ombre de colonnes variables pour pouvoir générer le calcul que je souhaite faire.

[riaolle]

Bonjour,
Il y a plusieurs problèmes dans ton code.
1. ActiveCell n'est pas Cells !
ActiveCell désigne la cellule active.
La syntaxe suivante :

Code :

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

Cells(i, j)

désigne la cellule de la ligne i et de la colonne j.
Lorsque tu écris ActiveCell(8,8), en fait tu veux dire Cells(8,8)?
Tu peux aussi utiliser Range pour désigner une plage de cellules. Par exemple :

Code :

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

1
2
Range("H8:H10")     'désigne la plage H8:H10
Range("H8:H" & Range("B2").Value)      'désigne les cellules en colonne H de la ligne 8 à la ligne n° le nbe écrit en B2.

2. Pour utiliser une fonction de feuille de calcul, 2 cas de figures. Tu veux écrire 1 fois le résultat et il ne doit pas forcément s'adapter à des changements. Tu peux utiliser Application.laFonction :

Code :

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

Cells(4,8).Value = Application.Sum(Range("H8:H" & Range("B2").Value))

Si tu veux écrire la formule comme si tu l'écrivais dans Excel (donc elle s'adaptera à d'éventuels changements), tu dois utiliser Formula en écrivant les fonction en ANGLAIS :

Code :

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

Cells(4,8).Formula = "=SUM(H8:H" & Range("B2").Value & ")"

[JuniorVBAPro]

Bonjour riaolle,

Merci de ta réponse je vais la tester dès maintenant et je reviens vers toi.
Quand je dis ActiveCell(8,8) je désigne donc la cellule sur la 8ème ligne et dans la 8ème colonne avec la cellule ActiveCell(1,1) (qui est la cellule active) comme référence.

Par exemple si ActiveCell = A1 alors ActiveCell(8,8) = H8
ou si ActiveCell = F15 alors ActiveCell(8,8) = M22

et 0 moins de me tromper Cell(8,8) = H8 tout le temps et peu importe quelle est la cellule active, non ?

Et comme j'utilise la référence ActiveCell dans tout mon programme, je n'utilise jamais le format "A1" pour désigner une cellule.

[riaolle]

Ok, néanmoins la syntaxe ActiveCell(i,j) n'est tout de même pas correcte
Dans ton cas de figure, il faut utiliser Offset :

Code :

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

ActiveCell.Offset(8,8)

Indique qu'on se déplace de 8 colonnes et 8 lignes à partir de la la cellule active. Attention : on se déplace de 8 colonnes et 8 lignes, donc :

Code :

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

Range("A1").Offset(8,8) <=> Range("I9")

Est-ce que tu vois comment adapter à ton code ?
Essaie, puis montre-nous ce que tu as fait.