VBA Pb de somme

Fermé

onra - 12 juin 2008 à 13:06
Canard007 Messages postés 5929 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009 - 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

A voir également:

VBA Pb de somme
Formule somme excel colonne - Guide
Somme si couleur - Guide
Vba dépassement de capacité ✓ - Forum Excel
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

1 réponse

Réponse 1 / 1

Canard007 Messages postés 5929 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009 215
12 juin 2008 à 13:08

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.

onra
12 juin 2008 à 13:18

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

Canard007 Messages postés 5929 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009 215 > onra
12 juin 2008 à 13:21

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"

onra > Canard007 Messages postés 5929 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009
12 juin 2008 à 13:24

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

Canard007 Messages postés 5929 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009 215 > onra
12 juin 2008 à 13:36

remplace
Cells(12, i).Select

Range(Cells(12,11),Cells(12,i)).select

Canard007 Messages postés 5929 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009 215 > Canard007 Messages postés 5929 Date d'inscription mercredi 26 mai 2004 Statut Contributeur Dernière intervention 18 septembre 2009
13 juin 2008 à 15:51

Alors ?
cela t'as t'il aidé?

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

RECHERCHEV additionne les plusieurs lignes du meme nom

Excel, Formule =SOMME ne fonctionne pas

somme.si.ens critere entre deux dates