Addtion VBA, une colonne sur 2 avec variable

[jpmasclet]

Re Bonjour,
Un autre probleme à mon actif, une addition ....

Sur mon tableau en cours, ma derniere ligne de commande est :

Range("B7:C7").Select
Selection.AutoFill Destination:=Range("B7:" & colonne & "7")
, Type:=xlFillCopy

A la suite je voudrais faire un total , mais bon souci est qu'il ne faut que je prenne en compte qu'un colonne sur 2, avec un début (B,D,F,H, etc... jusqu'a la derniere colonne -1) et juste à coté encore la meme chose mais avec C,E,G,I et cette fois jusqu'a la derniere colonne.

Voyez vous une solution à mon probleme car pour moi c'est pas évident du tout ??

 

[Compte Supprimé 979]

Re : Addtion VBA, une colonne sur 2 avec variable

Salut Jpmasclet,

Si j'ai bien tout compris, tu peux essayer :

Range("B7,D7,F7,H7,J7,L7").FillRight
Range("C7,E7,G7,I7,K7,M7").FillRight

Je ne sais pas comment tu détermines ta vairable : Colonne

A+

 

[pierrejean]

Re : Addtion VBA, une colonne sur 2 avec variable

bonjour a tous

A tester:

......
Dim colonne As String
Dim n As Integer
For n = 2 To num(colonne) - 1 Step 2
  somme = somme & lettre(n) & 7 & "+"
  somme1 = somme1 & lettre(n + 1) & 7 & "+"
Next n
somme = Left(somme, Len(somme) - 1)
somme1 = Left(somme1, Len(somme1) - 1)
Cells(7, num(colonne) + 1).FormulaLocal = "=" & somme
Cells(7, num(colonne) + 2).FormulaLocal = "=" & somme1
.......
 
Function lettre(col As Integer)
 lettre = Replace(Cells(1, col).Address(0, 0), "1", "")
End Function
Function num(col As String)
 num = Range(col & 1).Column
End Function