Discussion :

[John81]

Bonjour,

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

Code :

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

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 :

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

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

[Gorfael]

Salut John81 et le forum

Code :

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

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+

[John81]

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

[John81]

Rebonjour,

La macro suivante fonctionne:

Code :

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

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 :

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

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

[JackOuYA]

bonjour,


rajoute un

Code :

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

1
2
 
msgbox total.AddressLocal

avant la ligne en rouge .. pour voir ...

[Gorfael]

Salut à tous

Code :

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

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 :

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

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

Code :

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

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

revient à écire

Code :

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

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

Code :

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

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+