Discussion :

[BtjpsspgrW]

Bonjour,
En récupérant les 2 adresses extrêmes, je souhaiterais utiliser la fonction SOMME (dans excel, ça correspond à SOMME(I5:I50))
J'ai besoin de récupérer les adresses car, il y a des cellules vides.

Mais ça ne fonctionne pas. Dans l'exemple ci-dessous, il m'indique
=SOMME(a:b)

Code :

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

1
2
3
4
5
6
7
8
Sub macro()
Range("A:A").Find("706").Select
ActiveCell.Offset(1,2).Select
a = Selection.Address
Selection.End(xlDown).Select
b = Selection.Effectuer la fonction SOMME en ayant récupérer les 2 adresses extrêmes
ActiveCell.FormulaR1C1 = "=SUM(a:b)"
End Sub

Vous en remerciant par avance.

Cordialement.

[Daniel.C]

Bonjour,

Il faut sortir les variables des guillemets :

Code :

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

ActiveCell.FormulaR1C1 = "=SUM(" & a & ":" & b &")"

[Thautheme]

Bonsoir le fil, bonsoir le forum,

La même chose sans les Select qui ne font que ralentir l'exécution du code et avec une gestion d'erreur (si 706 n'existe pas en colonne A) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub macro()
Dim D As Range 'déclare la variable D (Début)
Dim F As Range 'déclare la variable F (Début)
 
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set D = Range("A:A").Find("706").Offset(1, 2) 'définit la cellule du début D (génère une erreur si "706" n'existe pas)
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'efface l'erreur
    MsgBox "706 n'existe pas dans la colonne A !" 'message
    Exit Sub 'sort de la procédure
End If 'fin de la condition
Set F = D.End(xlDown) 'définit la cellule de fin F
F.Offset(1, 0).Formula = "=SUM(" & D.Address(0, 0) & ":" & F.Address(0, 0) & ")" 'place la formule en dessous de la cellule de fin F
End Sub

[Daniel.C]

Bonjour,

Pour être tout à fait précis, il ne faut pas oublier de rétablir :

Code :

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

On Error GoTo 0

[keygen08]

Bonjour
votre code ne renverra jamais somme(i5:i50)

Code :

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

1
2
3
4
5
6
7
8
Sub macro()
Range("A:A").Find("706").Select 'donc A5
ActiveCell.Offset(1, 2).Select 'donc C6
a = Selection.Address 'donc $C$6
Selection.End(xlDown).Select 'donc C50
b = Selection.Address 'donc $C$50
ActiveCell.FormulaR1C1 = "=SUM(a:b)" 'donc au mieux somme(c6:c50)
End Sub

La ligne 7 est à remplacé par

Code :

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

Activecell.FormulaLocal = "=SOMME(" & a & ":" & b & ")"

qui au passage supprime la valeur se trouvant en C50.
Quid de I5:I50

Thautheme : le resultat se trouve decaler d'une ligne lors de la prochaine execution du code

[Thautheme]

Bonjour le fil, bonjour le forum,

Thautheme : le resultat se trouve decaler d'une ligne lors de la prochaine execution du code

Oui en effet Keygen, mais je pensais que c'est ce que voulais Bfawesvshf... J'ai même été surpris de l'absence de références circulaires...

[BtjpsspgrW]

Bonjour,
En récupérant les 2 adresses extrêmes, je souhaiterais utiliser la fonction SOMME (dans excel, ça correspond à SOMME(I4:I20))
J'ai besoin de récupérer les adresses car, il y a des cellules vides

Code :

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

1
2
3
4
5
6
7
8
Sub somme()
Range("I4").Select
a = Selection.Address
Range("I20").Select
b = Selection.Address
ActiveCell.Offset(1,0).Select
ActiveCell.FormulaR1C1 = "=SUM(" & a & ":" & b & ")"
End Sub

Mais ça ne fonctionne pas.
Débogage sur la dernière ligne, erreur d'exécution 1004

Vous en remerciant par avance.

Cordialement.

[Marc-L]

Bonjour, bonjour !

Pourquoi avec FormulaR1C1 alors qu'il n'y a rien de R1C1 dans la formule ?‼ (OK avec Formula …)
Et pourquoi ne pas avoir essayé la formule du post #5 ?‼

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[keygen08]

Bonjour
La ligne 7 est à replacé par

Code :

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

Activecell.FormulaLocal = "=SOMME(" & a & ":" & b & ")"

mais je me repete.