Rapport de message :*
 

Re: Aide sur code

Titre du sujet : Re: Aide sur code
par Eric le 15/05/2009 21:58:52

Bonsoir à tous
Bonsoir Kelly

Je n'étais pas très content de ma réponse d'hier, je te propose donc un petit fichier. Attention il faut recopier le :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mavaleur = ActiveCell.Value
End Sub
ainsi que :
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

materiel

End Sub
pour toutes les feuilles

Eric