Détection du survol d'une cellule

[marmotte18]

Bonjour,

Analysons le contenu de la cellule active.

Si elle est vide => rien de particulier

Si elle n'est pas vide et qu'on remplace son contenu par un autre non vide => rien de particulier

Si elle n'est pas vide et que l'on fasse une action pour la vider (par ex : la touche suppr du clavier), le système devra nous poser la question "Voulez-vous vraiment effacer cette donnée ?" avec un bouton de type "oui" et "non".

Si on clique sur "oui" => rien de particulier
Si on clique sur "non" => régénérer la donnée qui vient d'être effacée

Ce type de processus est-il possible ?

Merci par avance de vos avis éclairés

 

[Guest]

Re : Détection du survol d'une cellule

bonjour Marmotte,

Si tu as envie de te lancer dans la programmation des Apis Windows, avec tous les risques que cela comporte de planter la machine en cas de bug, c'est possible.

Je te souhaite bon courage.

A+

 

[marmotte18]

Re : Détection du survol d'une cellule

Bonjour Hasco,

Si je comprends bien tu me déconseilles vivement d'aller dans cette voie ! Pour mon information personnelle, que signifie Apis Windows ?

Excel est-il capable de détecter le passage du curseur de la souris sur une cellule particulière ?

 

[BOISGONTIER]

Re : Détection du survol d'une cellule

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A1:C10], Target) Is Nothing Then
    If Target.Count = 1 Then
      If Target.Value = Empty Then
        If MsgBox("Etes vous sûr? ", vbYesNo) <> vbYes Then
          Application.EnableEvents = False
          Application.Undo
          Application.EnableEvents = True
        End If
      End If
    Else
         Application.EnableEvents = False
         Application.Undo
         Application.EnableEvents = True
    End If
  End If
End Sub

JB
Formation Excel VBA JB

 

[pierrejean]

Re : Détection du survol d'une cellule

bonjour marmotte
Salut Hasco 🙂

A tester (en supposant que j'aie bien compris)

Edit: J'avai oublié le message d'alerte

 

[Guest]

Re : Détection du survol d'une cellule

Re,

Je te conseille plutôt de continuer ton apprentissage d'excel dans ces limites et de penser ton projet avec celles-ci. De commencer quelque chose puis éventuellement si tu bute, revenir poser une question plus 'précise'. Il y a peut-être des solutions.

API Windows (Application Programming Interface] est un ensemble de fonctions 'systeme' permettant en autre de gérer l'interface windows. Fenêtre, sous-fenêtres, curseurs leurs évènements, messages, propriétés et bien d'autre choses.....

A+

 

[marmotte18]

Re : Détection du survol d'une cellule

Bonsoir BOISGONTIER,

Comme d'habitude, tu es génial ! Cela marche très bien pour une cellule !

Toutefois, si l'on sélectionne un paquet de cellules et qu'on les vide d'un seul coup, la question n'est pas posée et l'effacement des données s'effectuent.

 

[marmotte18]

Re : Détection du survol d'une cellule

Bonsoir pierrejean,

Tu mérites le même compliment que celui que j'ai fait à BOISGONTIER ! Tu es donc génial ! Cela marche très bien pour une cellule.

Toutefois, si l'on sélectionne un paquet de cellules et qu'on les vide d'un seul coup, la question n'est pas posée et la procédure plante.

 

[marmotte18]

Re : Détection du survol d'une cellule

Bonsoir Hasco,

Merci pour tes précisions, je ne vais pas mourrir bête ce soir !

 

[BOISGONTIER]

Re : Détection du survol d'une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A1:C10], Target) Is Nothing Then
    If Application.CountA(Target) = 0 Then
      If MsgBox("Etes vous sûr? ", vbYesNo) <> vbYes Then
          Application.EnableEvents = False
          Application.Undo
          Application.EnableEvents = True
      End If
    End If
  End If
End Sub

JB

 

[marmotte18]

Re : Détection du survol d'une cellule

BOISGONTIER,

Ta dernière réponse me paraît parfaite !

• Le copier-coller d'un cellule vide sur une cellule pleine est pris en compte
• Le couper-coller ... idem
• la tentative d'effacer plusieurs cellules à la fois fonctionnent bien aussi
• Le tirage vers le bas d'une cellule vide sur une cellule pleine, c'est ok
• on peut continuer à faire des copier-coller normalement
• idem pour les couper-coller
• idem pour le tirage vers le bas d'une cellule pleine vers une autre cellule pleine

Rien à dire, sinon que BRAVO !!!