XL 2013 Ajouter un nombre d'une colonne à une autre

[Riki no Kage]

Bonjour,

J'aimerais savoir s'il est possible (et surtout comment faire) pour ajouter un bouton dont la vocation serait d'ajouter le contenu de toutes les cellules d'une colonne au contenu d'une autre colonne.

Par exemple, je possède les données de ce tableau et j'aimerais ajouter le contenu des cellules de B dans A :

A | B
1 | 2
8 | 3
7 | 6

De telle manière que le tableau devienne :

A | B
3 | 0
11 | 0
13 | 0

Bien à vous (et bonne soirée), Riki.

 

[Staple1600]

Bonsoir le fil, le forum

Une possible macro

Sub a()
Dim t, tt, i&, j&
t = [A1].CurrentRegion.Value
ReDim tt(1 To UBound(t))
For i = LBound(t) To UBound(t)
tt(i) = t(i, 1) + t(i, 2)
Next
Range("A1").Resize(UBound(tt)) = Application.Transpose(tt)
Range("B1").Resize(UBound(tt)) = 0
End Sub

Testée sur ton exemple.

 

[Calvus]

Bonsoir,

@Staple1600

Une autre façon de faire :

Option Explicit

Sub Calcul()
Dim i As Integer
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Cells(i, 1) = Cells(i, 1) + Cells(i, 2)
Next
[B:B] = ""
End Sub

Bonne soirée

 

[Riki no Kage]

Avec mon exemple, ça marche parfaitement, mais quand je souhaite l'adapter pour qu'il fonctionne avec mon tableau fini, l'erreur "L'indice n'appartient pas à la sélection" apparaît.

Mon tableau utilise les colonnes C et E depuis la ligne 6, j'aurais du le préciser avant, merci beaucoup quand même !

 

[Staple1600]

Re


Oui comme tu le dis, tu aurais du le préciser avant
Donc pour ma part, j'en reste là puisque:

Avec mon exemple, ça marche parfaitement

NB: Quoique, histoire d'embellir mon karma et avant d'enfiler mon pyjama en pilou
Un dernier code

Sub b()
Dim t, tt, i&, j&
t = [C6:E8].Value
ReDim tt(1 To UBound(t))
For i = LBound(t) To UBound(t)
tt(i) = t(i, 1) + t(i, 3)
Next
Range("C6").Resize(UBound(tt)) = Application.Transpose(tt)
Range("E6").Resize(UBound(tt)) = 0
End Sub

 

[Calvus]

Re,

Mais pourquoi ne pas poster le bon fichier du 1er coup !!!!?????!!!!!!!

Avec mon exemple :

Sub Calcul()
Dim i As Integer
For i = 6 To Range("C" & Rows.Count).End(xlUp).Row
Cells(i, 3) = Cells(i, 3) + Cells(i, 5)
Next
[E:E] = ""
End Sub

 

[Staple1600]

Re

@Calvus
Toi aussi tu veux embellir ton karma ?
(voir le message précédent où je t'ai grillé d'un chouia )

 

[Riki no Kage]

Enfaite j'avais déjà réglé le problème avant vous
Mais merci quand même !

 

[Staple1600]

Re

@Riki no Kage
Dans ce cas, pourquoi ne pas avoir publié ton code?
Histoire de rester dans l'esprit de partage des connaissances du forum.

 

[mapomme]

Bonjour,

Une autre manière de procéder :

Sub Test()
  With Range("e6:e" & Cells(Rows.Count, "e").End(xlUp).Row)
  .Copy
  .Offset(, -2).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
  .Value = 0
  End With
End Sub

 

[Riki no Kage]

Re

@Riki no Kage
Dans ce cas, pourquoi ne pas avoir publié ton code?
Histoire de rester dans l'esprit de partage des connaissances du forum.

Parce que vous avez été plus rapide que moi, j'ai utilisé le code de Calvus et simplement modifié les valeurs des cells, j'allais le posté, mais reposté l'exact code que celui de Calvus me semblais pas très utile.