voila ma fonction :
 
Private Sub OptionButton1_Click()
Dim cpt As Byte
cpt = 3
With Worksheets("enr_incidents" )
Range("P3" ).Select
    Do
        Range("T" & cpt).Value = Range("P" & cpt).Value + Range("Q" & cpt).Value
        cpt = cpt + 1
        Range("P" & cpt).Select
    Loop Until IsEmpty(ActiveCell)
 
cpt = 3
 
Range("T3" ).Select
 
Do
    Range("data_graph!A" & cpt).Value = Range("enr_incidents!T" & cpt).Value * 1000000 / TextBox1.Value
    cpt = cpt + 1
    Range("enr_incidents!T" & cpt).Select      < --
Loop Until IsEmpty(ActiveCell)
End With
End Sub
 
je ne sais pas pourquoi, mais des fois elle veut bien marcher et des fois non, le debugueur me dit que la ligne avec la fleche a echoué, savez vous pourquoi ?
merci

Bonjour GillooZ
Bonjour à tous
 
Est ce que "enr_incidents!T" & cpt" existe à ce moment là ? ou n'est elle pas cachée ?
C'est peut être une piste, difficile de dire sans avoir ton fichier.
 
Cordialement

donc en fait si la cellule est vide au moment du Range, ca pourrait venir de la ?

sinon yaurai moyen de t'envoyer directement le fichier eric455 ?

et meme des fois g des erreurs als que la cellule n'est pas vide
des fois g la premiere colonne ki est générée mais pas l'autre ....
RAHHHHHHHHHHHHH

Quand ça plante et que tu passes en debogage sur la ligne en question, quelle est la valeur de cpt ? Cette valeur est-elle normale ?

la valeur est bien remise a 3 apres la question, mais je viens de remarker aussi ke sur ma feuille data_graph, en T3 j'ai un 0 ki apparait de tps en tps, comment est ce possible ?

je pense avoir résolu le pb en utilisant des With Worksheets pour les 2 feuilles au sein meme de la boucle je n'ai pr l'instant pas eu de pb
merci encore a vous