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

Staple1600

XLDnaute Barbatruc

• 13 Janvier 2018

• #2

Bonsoir le fil, le forum

Une possible macro

VB:

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.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 13 Janvier 2018

• #3

Bonsoir,

@Staple1600 😉

Une autre façon de faire :

VB:

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

 

Vote positif 0 Vote négatif

Riki no Kage

XLDnaute Nouveau

• 13 Janvier 2018

• #4

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 !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Janvier 2018

• #5

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

Cliquez pour agrandir...

😉

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

VB:

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

 

Dernière édition: 13 Janvier 2018

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 13 Janvier 2018

• #6

Re,

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

Avec mon exemple :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Janvier 2018

• #7

Re

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

 

Vote positif 0 Vote négatif

Riki no Kage

XLDnaute Nouveau

• 14 Janvier 2018

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Janvier 2018

• #9

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Janvier 2018

• #10

Bonjour,

Une autre manière de procéder :

VB:

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

 

Vote positif 0 Vote négatif

Riki no Kage

XLDnaute Nouveau

• 14 Janvier 2018

• #11

Staple1600 à dit:

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.

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif