saisie auto

[poussy67]

Bonjour le forum

Est il possible de rendre cette vba manuelle à l’aide d’un bouton et non automatique des que on modifie la page ?

Public flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
If Target.Column <> 1 Then Exit Sub
For lig = 1 To Range("A65536").End(xlUp).Row
Cells(lig, 3).Value = "E"
Cells(lig, 7).Value = "999900"
Next lig
flag = False
End Sub

Cdt poussy

 

[bqtr]

Re : saisie auto

Bonjour poussy,

Comme cela peut-être :

Sub Macro2()
Dim lig As Long
For lig = 1 To Range("A65536").End(xlUp).Row
  Cells(lig, 3).Value = "E"
  Cells(lig, 7).Value = "999900"
Next lig
End Sub

Tu crées un bouton sur la feuille concernée et tu lui assignes la macro.

A+