Sélection multiples de cellules avec des variables

Version imprimable

30/08/2008, 13h00
John81

Sélection multiples de cellules avec des variables
Bonjour,

Pour effectuer une sélection multiple, on peut utiliser la macro suivante:
Code:

1 2 3 4 5 Sub Selection Range("E378,F382,E388").Select End Sub
Je cherche maintenant à savoir comment faire pour intégrer des variables dans ma macro. La macro suivante ne marche pas:
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Selection Dim a As Long, b As Long, c As Long a = 378 b = 382 c = 388 Range("E" & a, "F" & b, "E" & c).Select End Sub
Qqn peut-il me venir en aide? Merci d'avance. John81

Salut John81 et le forum

Code:

1
2
3
4
5
6
7
8
 
Sub Selection
Dim a As Long, b As Long, c As Long
a = 378
b = 382
c = 388
Range("E" & a & ", F" & b & ", E" & c).Select
End Sub

A+

30/08/2008, 13h55
John81

Merci bcp pour ton aide Gorfael! Bonne journée John81

Rebonjour,

La macro suivante fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
Sub Sommes()
 
a = Range("A2").End(xlDown).Row         ' n° ligne 1
b = a - 1
Set c = Range(Cells(3, 2), Cells(b, 2))
 
Range("D" & a).Select
ActiveCell.Formula = "=SUM(" & c.AddressLocal & " )"
 
End Sub

Celle-ci ne fonctionne pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub TESTSOMME()

a = Range("A2").End(xlDown).Row         ' n° ligne 1
d = Range("A" & a).End(xlDown).Row      ' n° ligne 2
g = Range("A" & d).End(xlDown).Row      ' n° ligne 3
j = Range("A" & g).End(xlDown).Row      ' n° ligne 4
m = Range("A" & j).End(xlDown).Row      ' n° ligne 5
p = Range("A" & m).End(xlDown).Row      ' n° ligne 6
s = Range("A" & p).End(xlDown).Row      ' n° ligne 7
v = Range("A" & s).End(xlDown).Row      ' n° ligne 8
y = Range("A" & v).End(xlDown).Row      ' n° ligne 9
bb = Range("A" & y).End(xlDown).Row     ' n° ligne 10

Set total = Range("B" & a & ", B" & d & ", B" & g & ", B" & j & ", B" & m & ", B" & p & ", B" & s & ", B" & v & ", B" & y)

Range("B" & bb).Select
ActiveCell.Formula = "=SUM(" & total.AddressLocal & " )"

End Sub

C'est au niveau de la ligne rouge que se situe le problème. Qqn peut-il m'éclairer? Merci John81

30/08/2008, 16h44
JackOuYA
bonjour,

rajoute un
Code:

1 2 msgbox total.AddressLocal
avant la ligne en rouge .. pour voir ...

Salut à tous
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub TESTSOMME() a = Range("A2").End(xlDown).Row ' n° ligne 1 d = Range("A" & a+2).End(xlDown).Row ' n° ligne 2 g = Range("A" & d+2).End(xlDown).Row ' n° ligne 3 j = Range("A" & g+2).End(xlDown).Row ' n° ligne 4 m = Range("A" & j+2).End(xlDown).Row ' n° ligne 5 p = Range("A" & m+2).End(xlDown).Row ' n° ligne 6 s = Range("A" & p+2).End(xlDown).Row ' n° ligne 7 v = Range("A" & s+2).End(xlDown).Row ' n° ligne 8 y = Range("A" & v+2).End(xlDown).Row ' n° ligne 9 bb = Range("A" & y+2).End(xlDown).Row ' n° ligne 10 Total = Range("B" & a & ", B" & d & ", B" & g & ", B" & j & ", B" & m & ", B" & p & ", B" & s & ", B" & v & ", B" & y) Range("B" & bb).Formulalocal = "=Somme(" & total.Address & " )" End Sub
En gos, tu fait la somme des cellules avant une ligne vide ?
Si c'est ça, il faut donc que tu passes à la ligne+2

Code:

a = Range("A2").End(xlDown).Row => a=5

Code:

d = Range("A" & a).End(xlDown).Row

revient à écire

Code:

d = Range("A5").End(xlDown).Row => d=6

Code:

g = Range("A" & d+2).End(xlDown).Row

=> g=valeur qui devrait être attribuée à d
Donc, il faut sauter la ligne vide => ça explique le "+2", mais... si tu as une seule ligne entre 2 lignes vides, ça bloque

Le calcul de bb me semble étrange : c'est la dernière ligne, donc, pas de somme des valeurs entre y et bb ?

Tu fais les sommes sur B => pourquoi ne pas tester sur B ? ou faire une formule qui n'inscrit en B que la somme des baleur entre les lignes vides ?
A+

30/08/2008, 19h35
John81

Merci pour vos réponses à tous les deux.

Si je remplace la ligne rouge par l'une ou l'autre des deux lignes ci-dessous, ça marche:

1) Range("B" & bb).FormulaLocal = "=SOMME(" & total.AddressLocal & " )"
2) Range("B" & bb).Formula = "=SUM(" & total.Address & " )"

En fait cette macro a pour but de faire le total de tous les sous-totaux d'un tableau (qui eux-mêmes sont déjà des formules de sommes).

J'utilise la colonne A pour déterminer les numéros de lignes des sous-totaux pour la raison suivante:

J'ai masqué la ligne A et à chaque sous-totaux, j'y ai inscrit un numéro. Je recherche donc chaque ligne de la colonne A qui ne sont pas vides.

Peut-être avez-vous une meilleure idée! Il faut savoir que les sous-totaux n'additionnent pas toujours le même nombre de lignes (fichier variable).

Merci de votre aide et de vos idées. John81
30/08/2008, 19h45
JackOuYA

peu-être sans macro avec seulement une formule somme.si ... ;)
31/08/2008, 00h32
Gorfael

Salut John81 et le forum
Ta colonne B contient-elle d'autre formules que les sous-totaux ?
les sous-totaux sont-ils en "=SOMME()", "=SUM()" ou "=SOUS.TOTAL()" ?
A+

Salut Gorfael,

Ma colonne B ne contient pas d'autres formules. Mes sous-totaux sont en "=SOMME()".

La macro suivantes me permet d'additionner uniquement les cellules contenant des formules dans la colonne B:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub SommesFormules() a = Range("A65536").End(xlUp).Row b = a - 1 Range("B3", "B" & b).Select Set CellulesFormule = Selection.SpecialCells _ (xlFormulas, xlNumbers) Range("B" & a).Select Range("B" & a).Formula = "=SUM(" & CellulesFormule.Address & " ) " En Sub
Bonne soirée et @+ John81

Salut John81 et le forum
En supprimant les Select/Selection (complêtement inutiles), ça donne
Code:

1 2 3 4 5 6 7 8 9 10 Sub SommesFormules() Dim a as long Dim CellulesFormule as range a=[A65536].End(xlUp).Row Set CellulesFormule = Range("B3", "B" & a-1).SpecialCells _ (xlFormulas, xlNumbers) Range("B" & a).Formula = "=SUM(" & CellulesFormule.Address & " ) " En Sub
Pas sûr que j'aurais pensé à specialcells pour ce coup. Comme quoi...
A+