VBA Pb de somme

onra -

Bonjour,
J'essaye de faire une somme sur toute une ligne dont je ne connais pas la fin.
Par exemple: je prend la ligne 12
Colonne 1: j'ai ma somme
Colonne 2,4 ,6, 8 ....: J'ai mes valeurs a additionner

J'ai donc dommencer par faire un code pour sélectionner l'ensemble de mes cellules jusqu'a trouver un vide. Mais mon code ne selectionnne que la dernière cellules.
Deplus, je ne sais pas trop comment faire pour insérer ma somme dans le code.

Bref, un petit coup de main serait le bien venu

merci

Configuration: Windows 2000
Internet Explorer 6.0

Afficher la suite

1 réponse

Réponse 1 / 1
Canard007 Contributeur
Salut,

nous montrer le code cala nous permettrai de t'aider, ceendant je t'invite plutot à reposter ta demande avec le code dans la section dev qui est plus adequat.

0
1. onra
  
  oui,
  c est un oubli
  
  Sub selctrionner()
  Dim i As Integer
  Dim Cell As Range
  
  i = 11
  While (Not (Cells(12, i) = ""))
  Cells(12, i).Select
  i = i + 2
  Wend
  
  End Sub
  
  Par contre je n'ai pas trouver la section dont tu parle
  
  0
2. Canard007 Contributeur
  
  @onra http://www.commentcamarche.net/forum/forum 3 programmation
  
  sinon pour ton code je ne suis pas sure mais je pense que ton select ne selectionne que une cellule à la fois...donc normal qu'a la fin il soit sur la derniere uniquement.
  Tu devrait faire à la sortie de ta boucle un selecte sur le range de "i"
  
  0
3. onra
  
  @Canard007Je crois avoir fait ce que tu m a dit:
  
  Sub selctrionner()
  Dim i As Integer
  Dim Cell As Range
  
  i = 11
  While (Not (Cells(12, i) = ""))
  
  i = i + 2
  Wend
  Cells(12, i).Select
  End Sub
  
  Mais dans ce cas là ca sélectionne la première cellule vide
  
  0
4. Canard007 Contributeur
  
  @onraremplace
  Cells(12, i).Select
  
  Range(Cells(12,11),Cells(12,i)).select
  
  0
5. Canard007 Contributeur
  
  @Canard007Alors ?
  cela t'as t'il aidé?
  
  0

VBA Pb de somme

1 réponse

Discussions similaires

Newsletters