bonjour suite a des soucis de fonctionnement de cette macro evenementiel comment puis je faire sorte de l'adapter à un bouton de mon usf qui me sert a renseignée mes bases de donnée autrement comment pourais je avoir le meme resultat sans macro evenementiel
merci a tous
Code:
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
'si le changement a lieu ailleurs que dans la colonne E (à partir de E5), sort de la procédure
If Application.Intersect(Target, Range("E5:E65536")) Is Nothing Then Exit Sub
If Selection.Cells.Count > 1 Then Exit Sub 'si il plus d'une d'une seule cellule sélectionnée, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est éffacée, sort de la procédure
Sheets("FORMATION2").Range(Target.Address).Value = "" 'efface la cellule correspondante de l'onglet "FORMATION2"
End Sub
merci a tous