Discussion :

[j0joo]

Bonjour,

J'ai une erreur d'exécuton 13 incompatibilité de type lorsque j'exécute cette macro.

J'ai des valeurs allant de B2 à B20. Le nombre de valeurs peut être variable, pour le coup j'en ai 19.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub calcule()
 
Dim i As Integer
i = 19
 
Dim derniereligne As Integer
derniereligne = i + 1 'Dernière ligne de valeur dans mon tableau
 
Range("B" & derniereligne + 1).Formula = _
"=SUM(B2:B" + derniereligne + ")"
 
End sub

L'erreur arrive au moment de faire la somme.

Merci.

[Kimy_Ire]

Bonjour j0joo,

Comme ceci :

Code :

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

1
2
Range("B" & derniereligne + 1).Formula = _
"=SUM(B2:B" & derniereligne & ")"

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

EDIT : au passage pour avoir la dernière ligne non-vide :

Code :

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

Dern_lign = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row

Le "1" te permet de choisir la colonne. 2, ça donnera la colonne B.

[j0joo]

Super merci ca fonctionne bien.

Pourtant j'ai une macro ou cela fonctionne avec les "+"

Bonne journée.

[Kimy_Ire]

Pas pour la concaténation de chaines de caractères !

[j0joo]

D'accord, merci !