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
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