VBA Pb de somme

onra -
Canard007 Messages postés 5954 Date d'inscription Statut Contributeur - 13 juin 2008 à 15:51

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 Messages postés 5954 Date d'inscription Statut Contributeur 216

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
  1. Canard007 Messages postés 5954 Date d'inscription Statut Contributeur 216 > 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
  2. onra > Canard007 Messages postés 5954 Date d'inscription Statut Contributeur
    
    Je 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
  3. Canard007 Messages postés 5954 Date d'inscription Statut Contributeur 216 > onra
    
    remplace
    Cells(12, i).Select
    
    Range(Cells(12,11),Cells(12,i)).select
    
    0
  4. Canard007 Messages postés 5954 Date d'inscription Statut Contributeur 216 > Canard007 Messages postés 5954 Date d'inscription Statut Contributeur
    
    Alors ?
    cela t'as t'il aidé?
    
    0

VBA Pb de somme

1 réponse

Discussions similaires

Newsletters