voici ma procedure :  
 
Private Sub OptionButton1_Click()
Dim cpt As Byte
Dim tmp As Long
cpt = 3
tmp = 0
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)
End With
cpt = 3
If TextBox1.Value = "" Then
    MsgBox "Veuillez saisir le dénominateur"
End If
    Do
        With Worksheets("enr_incidents" )
        Range("T" & cpt).Select
        tmp = Range("T" & cpt).Value * 1000000 / TextBox1.Value
        Range("Y" & cpt).Value = tmp
        End With
        With Worksheets("data_graph" )
        Range("A" & cpt).Value = tmp
        End With
        cpt = cpt + 1
        With Worksheets("enr_incidents" )
        Range("T" & cpt).Select
        End With
    Loop Until IsEmpty(ActiveCell)
 
End Sub
 
mon probleme c que mes valeurs sont bien recopié dans la colonne Y de ma feuille enr_incidents mais rien n'est copié dans ma colonne A de ma feuille data_graph
pourquoi et comment y remedier ??

Salut gillooz,
Voici un petit coup de main sur ta macro.
Elle devrait rouler ainsi, mais l'ayant corrigée à main levée... (Tu seras indulgent )

Essayes de placer tes bouts de code entre les balises [c pp] et [/c pp] (sans les espaces, ce sera un peu plus visible.
Ensuite, en VBA tu n'as pas besoin de selectioner les cellules pour agir dessus. Et pour tes with et end with, n'oublies pas de le appeller avec le "."
@+

YES CIMER tu m'as bien aidé
merci bcp !!!
 
 
et vive le forum www.hardware.fr, sans vous je finirai mon taf en 3 fois plus de tps et encore ^^^

Attend de recevoir la facture avant de dire merci

jpaye www.hardware.fr en newz np je lis ca tte la journée ^^

lol faut bien s'occuper
Pour payement un petit résolu sur le titre de ton post ce sera déjà ça de pris
 
@+

comment fait on pour mettre ca en resolu ?

sur ton premier post, clique sur l'icone qui ressemble à une feuille avec dessus une gomme au bout d'un crayon.
tu place dans ton titrez un résolu
@+