[RESOLU] Modification de macro

[riton00]

Bonjour à tous

j'ai récupéré une macro qui permet de mettre OK si la cellule B3 est vide serait-il possible de modifier cette macro de façon qu'elle soit aussi fonctionnelle sur la cellule B8, B14, et sur la plage D3.D14
Merci

Slts

Private Sub Worksheet_Activate()
If Range("B3").Value = "" Then Range("B3").Value = "OK"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Range("B3").Value = "" Then Range("B3").Value = "OK"
End If
End Sub

 

[Dranreb]

Bonjour.

Essayez comme ça :

Option Explicit

Private Sub Worksheet_Activate()
Worksheet_Change [B8,B14,D3:D14]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Set Target = Intersect([B8,B14,D3:D14].SpecialCells(xlCellTypeBlanks), Target)
If Err Then Exit Sub
Application.EnableEvents = False
Target.Value = "OK"
Application.EnableEvents = True
End Sub

 

[Jacky67]

Bonjour,
Essaye comme ceci

Private Sub Worksheet_Activate()
Dim c As Range
For Each c In [b3,b8,b14,d3:d14]
If c.Value = "" Then c.Value = "OK"
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, [b3,b8,b14,d3:d14]) Is Nothing Then
If Target.Value = "" Then Target.Value = "OK"
End If
Application.EnableEvents = True
End Sub

 

[riton00]

Bonjour Dranreb, jacky67

Merci à vous deux pour cette modif vba, en tout les cas les deux sont fonctionnelles donc je verrais à l'usage laquelle des deux est la mieux adaptée dans mon fichier
merci beaucoup pour votre dévouement
Henri