Rapport de message :*
 

Re: Aide sur code

Titre du sujet : Re: Aide sur code
par Eric le 02/07/2009 23:33:07

Bonsoir à tous
Bonsoir Kelly

Avec un peu de retard, voici en plus clair, ce que je t'ai dit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1).Value = "" Then Exit Sub

ma_feuille = ActiveSheet.Name
macol = Target.Column
maligne = Target.Row
valeur_cellule = Target.Value

if (maligne+1) mod 5 = 0 then materiel

End Sub
si tu n'avais pas trouvé

Pour la réponse à ma question, c'est très clair

Eric