Discussion :

[bencelui]

Bonjour à tous,

Je cherche un moyen d'avoir un message d'alerte (message_box) dés que l'on copie une donnée sur une case déjà occupée

Que ce soit un texte tapé, un copié-collé ou un étirement ....

Vous auriez ça dans vos tiroirs ?

Milles mercis

Ps: le message_box je l'ai déjà

[bencelui]

Enfin, tout seul... À partir d'un code qui m'avait été proposé sur un forum...J'en remercie son auteur dont j'ai oublié le nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1) <> "" Then
    Reponse = MsgBox("Voulez-vous supprimer ?", vbYesNo)
    If Reponse = vbNo Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
 
        Else
 
      If Target.Cells(1, 1) = "" Then
    Reponse = MsgBox("Voulez-vous supprimer ?", vbYesNo)
    If Reponse = vbNo Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
   End If
    End If
End If
End If
 
End Sub

[bencelui]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1) <> "" Or Target.Cells(1, 1) = "" Then
    Reponse = MsgBox("Voulez-vous modifier ?", vbYesNo + vbDefaultButton2 + vbInformation)
    If Reponse = vbNo Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
 
 
End If
End If
 
End Sub

[78chris]

Bonjour

Je pense reconnaitre mon code...

Attention à l'origine il était pour une suppression et pouvait fonctionner en cas de suppression par frappe du contenu d'une ou plusieurs cellules.

Si on utilise une copie rien ne prouve que l'ensemble des cellules que l'on copie soit vide : comme de façon générale il ne vient pas à l'idée de copier une plage dont la 1ère cellule est vide, j'ai zappé ce cas mais il existe et dans ce cas cela fonctionne mais si on copie une page dont la 1ère cellule est non vide cela ne marche pas. Il faudrait tester toutes les cellules de Target dans une boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Cells(1, 1) <> "" Or Target.Cells(1, 1) = ""

n'a pas de sens car un des deux est forcément vrai donc test inutile.

Il faudrait donc différencier le cas ou target n'a qu'une cellule et dans ce cas "" est une suppression (éventuellement de rien...)
Pour n cellules ce peut être une suppression (si toutes les cellules de target sont=""), une saisie ou une copie et dans ces cas il faudrait stocker les valeurs de target et son address, annuler l'opération, vérifier cellule par cellule s'il y avait quelque chose et si rien dans toutes, donc plage vierge, remettre les valeurs telles que saisies ou copiées par l'utilisateur.

C'est un peu usine à gaz... sachant qu'on peut copier une ou colonnes ou lignes complètes...