créer une plage qui soit la somme de deux autres plages,possible?

[tonelli1]

bonjour

avec deux plages
1 1 (nom de plage=a)
2 2 (nom de plage=b)
comment creer une plage de nom c qui soit la somme des deux?
3 3

j'essaie a+b mais ça marche pas
c'est une sorte de somme vectorielle qu'il faut faire genre c=sommevect(a;b) mais je ne trouve pas la fonction

merci

 

[CHALET53]

Re : créer une plage qui soit la somme de deux autres plages,possible?

Bonjour,

Trouvé dans l'aide EXCEL: peut-être un début de solution

Référence du développeur Excel
Application.Union, méthode
Cette méthode renvoie l'union d'au moins deux plages.
Syntaxe



Visual Basic pour Applications
Worksheets("Sheet1").Activate
Set bigRange = Application.Union(Range("Range1"), Range("Range2"))

a+

 

[tonelli1]

Re : créer une plage qui soit la somme de deux autres plages,possible?

merci pour ta réactivité
je pense
union(a,b)=(1,2)
intersect(a,b)=(rien)

ça semble bien des fonctions qui cré une nouvelle plage
il me faudrait la fonction sommevect(a,b)=(1+2,1+2)
on peut peut etre le faire avec une boucle
for i =1 to fin
c(i)=a(i)+b(i)
next i

mais je dois convertir ma plage a en macro variable tableau a(1),a(2),...,a(n)

 

[ROGER2327]

Re : créer une plage qui soit la somme de deux autres plages,possible?

Bonjour tonelli1, CHALET53

[COLOR="DarkSlateGray"][B]Sub Toto()
   Range("B2:C4").Copy Destination:=Range("H2")
   Range("E2:F4").Copy
   Range("H2").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
      :=False, Transpose:=False
   Application.CutCopyMode = False
End Sub[/B][/COLOR]

Ce code copie la plage "B2:C4" (avec ses attributs de format) en "H2:I4" et y ajoute les valeurs de la plage "E2:F4".​

ROGER2327
#2806


Note : Cette réponse date d'avant la modification du message précédent. J'avoue que je ne comprends pas grand chose à la modification apportée...

 

[JHA]

Re : créer une plage qui soit la somme de deux autres plages,possible?

Bonjour à tous,

pas tout compris mais en exemple:

plage "A" = A1:A10
plage "B" = B1:B10

Dans une autre cellule "C1":
=SOMME(A+B) ou =SOMME(A;B) matricielle à valider par Ctrl+Maj+Entrée

JHA

 

[tonelli1]

Re : créer une plage qui soit la somme de deux autres plages,possible?

merci pour vos réponses

Bonjour tonelli1, CHALET53

[COLOR="DarkSlateGray"][B]Sub Toto()
   Range("B2:C4").Copy Destination:=Range("H2")
   Range("E2:F4").Copy
   Range("H2").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
      :=False, Transpose:=False
   Application.CutCopyMode = False
End Sub[/B][/COLOR]

Ce code copie la plage "B2:C4" (avec ses attributs de format) en "H2:I4" et y ajoute les valeurs de la plage "E2:F4".​

ROGER2327
#2806


Note : Cette réponse date d'avant la modification du message précédent. J'avoue que je ne comprends pas grand chose à la modification apportée...

c'est exactement ça
1 1
2 2
donne
3 3

mais peux t on le faire avec le nom des plage?
"B2:C4" ->nom a
"E2:F4" ->nom b
"H2:I4" -> nom c

genre

[COLOR="DarkSlateGray"][B]Sub Toto()
   [B]a[/B].Copy Destination:=[B]c[/B]
  [B] b[/B].Copy
   [B]c[/B].PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
      :=False, Transpose:=False
   Application.CutCopyMode = False
End Sub[/B][/COLOR]

 

[ROGER2327]

Re : créer une plage qui soit la somme de deux autres plages,possible?

Re...

(...)
mais peux t on le faire avec le nom des plage?
"B2:C4" ->nom a
"E2:F4" ->nom b
"H2:I4" -> nom c
(...)

Oui !
Et ça s'écrit :

[COLOR="DarkSlateGray"][B]Sub Toto()
   Range("A").Copy Destination:=Range("D")
   Range("B").Copy
   Range("D").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
      :=False, Transpose:=False
   Application.CutCopyMode = False
End Sub[/B][/COLOR]

J'ai nommé les plages A, B et D, car C n'est pas un nom autorisé pour une plage nommée.​

ROGER2327
#2808

 

[tonelli1]

Re : créer une plage qui soit la somme de deux autres plages,possible?

Merci beaucoup

 

[ROGER2327]

Re : créer une plage qui soit la somme de deux autres plages,possible?

Re...

Essayez ceci :

Sub Toto()
   ActiveWorkbook.Names.Add Name:="D", RefersToR1C1:="=Feuil1!R3C9:R8C10"
   Sheets("Feuil1").Range("A").Copy Destination:=Sheets("Feuil1").Range("D")
   Sheets("Feuil1").Range("B").Copy
   Sheets("Feuil1").Activate
   Sheets("Feuil1").Range("D").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
      :=False, Transpose:=False
   Application.CutCopyMode = False
End Sub

(Adapter le nom des feuilles en fonction des noms réels des feuilles de votre classeur.)​

ROGER2327
#2809