Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion tonelli1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

tonelli1

Guest
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
 
Dernière modification par un modérateur:
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+
 
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)
 
Dernière modification par un modérateur:
Re : créer une plage qui soit la somme de deux autres plages,possible?

Bonjour tonelli1, CHALET53
Code:
[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...
 
Dernière édition:
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
 
Re : créer une plage qui soit la somme de deux autres plages,possible?

merci pour vos réponses


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
Code:
[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]
 
Dernière modification par un modérateur:
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 :
Code:
[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
 
Re : créer une plage qui soit la somme de deux autres plages,possible?

Re...
Essayez ceci :
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
846
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…