macro excel

Y compris Writer et toute autre question en lien avec les suites bureautiques Open Source
Répondre
r
rantig
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 19 mars 2013
Version d'Excel : 2012FR

Message par rantig » 28 mai 2015, 13:44

Bonjour

Je reviens vers vous pour une macro du type:
empêcher l'écriture dans la plage A15:G36 tant que la cellule C44:D45 est vide
avec message, "insérer le N° de dossier dans la cellule C44"

Merci
Hern521.xlsm
(17.73 Kio) Téléchargé 27 fois
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 29 mai 2015, 10:21

Bonjour,

Tu peux tester le code suivant :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A15:G36")) Is Nothing Then Exit Sub
If IsEmpty(Range("C44")) Then
   Application.EnableEvents = False
   MsgBox "Merci de tout d'abord saisir le N° de Dossier en C44", 48, ""
   Target.Value = ""
   Application.EnableEvents = True
End If
End Sub
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
r
rantig
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 19 mars 2013
Version d'Excel : 2012FR

Message par rantig » 29 mai 2015, 11:05

Salut james007

C'est super!
Un grand Merci
Un très bonne journée et très bon week-end
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 29 mai 2015, 11:11

Re,

De rien ...

Merci pour tes remerciements ... :wink:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
r
rantig
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 19 mars 2013
Version d'Excel : 2012FR

Message par rantig » 29 mai 2015, 11:29

Re

C'est normal et quoi de plus naturel. je pose un problème et tu y réponds sympathiquement, sans être outrancier ou désobligeant
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 29 mai 2015, 11:39

Re,

Accessoirement ... j'essaye de remercier tous les personnes qui disent Merci ...

pour la simple et bonne raison ... que ce n'est pas (... et de loin...) la majorité ... :wink:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message