somme de colonnes

somme de colonnes - VB/VBA/VBS - Programmation

Marsh Posté le 03-05-2006 à 10:52:52    

j'aimerais sommer 2 colonnes en 1 dans une feuille excel lorsque je clik sur une optionbutton que j'ai mis dans un userform
 
Private Sub OptionButton1_Click()
Dim cpt As Byte
Dim tmp1 As Byte
Dim tmp2 As Byte
 
cpt = 3
With Worksheets("enr_incidents" )
    Range("P3" ).Select
    Do Until Selection.End(xlDown).Select
        Range("enr_incidents!T" & cpt).Value = Range("enr_incidents!P" & cpt).Value + Range("enr_incidents!Q" & cpt).Value
        cpt = cpt + 1
    Loop
End With
 
End Sub
 
 
aucune copie n'est effectuée avec ce code la :///////////
je voudrais copier la colonne P et Q dans T avec une fin d'arret de copie qd la prochaine cellule lu dans enr_incidents!P est vide  
 
help plz

Reply

Marsh Posté le 03-05-2006 à 10:52:52   

Reply

Sujets relatifs:

Leave a Replay

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