Operation sur feuille xls en VB

Operation sur feuille xls en VB - VB/VBA/VBS - Programmation

Marsh Posté le 31-01-2005 à 20:42:46    

Salut,
 
1) En fait, je voudrais savoir calculer la somme de toute les valeurs    
   d'une colonne excel dans mon prog vb
2) et aussi, savoir afficher dans différents "textBox" certaines valeurs  
   d'une ligne entiere.
 
Merci d'avance.
 
Steevi

Reply

Marsh Posté le 31-01-2005 à 20:42:46   

Reply

Marsh Posté le 01-02-2005 à 18:27:28    

Salut,
 
1) En supposant que le nombre de valeurs dans ta colonne (disons la A) peut varier :
Sub Calculsomme()
  DerLigne = Range("A1" ).End(xlDown).Row
  somme = 0
  For Each Cell In Range("A1:A" & DerLigne)
    somme = somme + IIf(IsNumeric(Cell.Value), Cell.Value,0)
  Next
  MsgBox somme
End Sub
 
2) C'est un peu trop imprécis pour donner un avis tranché... Ce que je peux dire c'est qu'avec la commande "MsgBox" t'arrives à afficher à peu près tout ce que tu veux.
Par exemple, pour afficher la valeur de la i-eme colonne de la 2e ligne : MsgBox Cells(2, i).Value
 
le Fnake

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed