Macro événementielle quand vide

[C@thy]

Bonjour le forum,

j'essaie de faire une macro événementielle qui met Bureau quand la cellule devient vide... mais ...a marche pô!!!

Pouvez-vous me dire keskivapa SVP???

Merci

C@thy [file name=PlanningSemaine.zip size=7593]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningSemaine.zip[/file]

 

[C@thy]

j'ai corrigé comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range('C6:G9,C11:G14'), Target) Is Nothing Then
   If Target.Value = '' Then Target.Value = 'Bureau'
End If
End Sub

(Worksheet_Change), mais j'ai une erreur...

merci pour votre aide.

C@thy

 

[C@thy]

Bonjour José, ça va bien depuis la crêperie???

j'ai essayé ta soluce, mais ça ne met pas Bureau lorsque j'efface une cellule contenant congés par exemple. Elle reste vide

ce que je souhaite faire :

il faudrait que lorsqu'en fin de semaine, un agent supprime le texte contenu dans une cellule, celle-ci ne se retrouve pas vide mais avec la mention 'Bureau'. De même, lorsque l'agent efface le mot 'Bureau' parce qu'il a une réunion Z, il faudrait que lorsque la réunion Z sera effacée, le mot 'Bureau' s'y substitue

 

[C@thy]

Hi hi, mon avatar, c'est tout moi!!! (dessiné par Vériland)...le tien n'est pas mieux en l'occurence!!!

[file name=PlanningSemaine2.zip size=7522]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningSemaine2.zip[/file]

 

[C@thy]

C'est OK!!! Merci José
P.S. tu as essayé de glisser la poignée de recopie pour recopier un contenu de cellule?? Moi j'ai un message d'erreur :sick: :angry: :silly: :evil: mais il le fait quand même... et toi???

 

[C@thy]

NIALGÉ!!! Ca fonctionne au quart de poil (et de tour!) et dans tous les cas!!! [imghttp://vlohr.free.fr/Forum_VeriTi/smileys/F8.gif[/img]
Merci. :kiss: B) Tiens, j'te fais un bisou!

C@thy

 

[C@thy]

:kiss:

 

[C@thy]

B)

 

[C@thy]

Une dernière question, josé,

si on efface le contenu de plusieurs cellules à la fois ça ne fonctionne pas, les cellule restent vides, alors j'ai essayé de supprimer If Target.Count = 1 Then et le End if qui va avec, mais ça ne fonctionne pas non plus... Peut-on faire quelquechose???

Merci à toi.

Biz

C@thy

 

[Ti_]

Moi j'aurais fait ça comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, Cel As Range
Set Plage = Range('C6:G9,C11:G14')
If Not Intersect(Plage, Target) Is Nothing Then
For Each Cel In Intersect(Plage, Target)
If Cel = '' Then Cel = 'Bureau'
Next Cel
End If
End Sub

Bon, c'est pas optimisé, j'aurais dû mettre une variable qui indique que le changement se fait depuis la macro, mais ça ne ralentit guère le traitement.

 

[C@thy]

Coucou Ti!!!

j'ai tjrs un problème avec la virgule, je ne sais pas pourquoi,
mais avec ça : Set Plage = Range('Activites') ça marche au poil.
J'ai pas tout compris avec ta variable qui indique que le changement se fait depuis la macro :S :unsure: :S

C@thy