1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Sub Test_vide()
If Not IsEmpty(Range("E11")) Then
Range("E11") = ""
Else: IsEmpty (Range("E11"))
Range("E11") = "CD"
End If
End Sub
---------------
Sub Test_valeur_zero()
If Range("F11") = 0 Then
Range("F11") = 1
Else: Range("F11") = 1
Range("F11") = 0
End If
End Sub
---------------
Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'condition : si l'intersection de la cible et de la plage A12:A30 n'est pas vide
'autrement dit, si le double clic se fait dans la plage A12:A30
If Not Application.Intersect(Target, Range("E11")) Is Nothing Then
Call Test_vide 'appelle la macro Créer_choix
Cancel = True 'évite le mode édition lié au double clic
ElseIf Not Application.Intersect(Target, Range("F11")) Is Nothing Then
'obligé de mettre else if not then, au lieu de elsenot car plantage, le dernier else n'est pas obligatoire
Call Test_valeur_zero 'appelle la macro Créer_choix
Cancel = True 'évite le mode édition lié au double clic
End If 'fin de la condition
End Sub
'1) ajouter un call de la fonction fenetre pour pouvoir l'activer
'avec le doubleclic comme par exempla sur la cellule CD
'2)peut etre choisir inputbox pour la fonction fenetre ou objet graphique cf:page2 du livre
'3)comment choisir l'emplacent (cet emplacement devra etre
'interactif car la fenetre devra s'afficher a cote de la cellule
'et la taille de la fenetre?
'4)la fonction fenetre (appelée par le double clic sur la cellule)affichera
'5 icone ou bouton qui chacun appeleront une fonction specifique (cette
'fonction sera du meme type que la fonction test vide ou test valeur)
'ces bouton seront:fix,se,"rien"(si appel de la fonction test_vide),re,hs,etc...
'6)autre idées: ou alors la macro fenetre au ruban ou autres (1ere ligne du tableau par exemple
'cela sous-entend qu'il faut "bloquer" la 1ere ligne de tubleau comme sur le pda cf:page 30 du livre |