Mac'ro

Ogun93 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
GermPeru Messages postés 172 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Bonjour,

J'aurais besoin d'aide sur un petit programme en fait j'aimerais que lorsque je copie/colle un ensemble de valeur quelconque sur ma fiche excel Celle-ci affiche sur 1 cellule par exemple un message type comme 'bonjour' .En fait je voudrais que copier un tableau de valeur dans mon excel détermine l'affichage automatique d'un message sur un cellule ou deux message sur 2 cellules différentes .

Merci d'avance de toute aide

1 réponse

Réponse 1 / 1
GermPeru Messages postés 172 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Suis pas un expert mais j´ai une piste de recherche si cela peut aider: 

' fonction de type bolean pour vérifier, le probleme est qu´elle vérifie si tu copie et non si tu colle... ca doit exister mais connais pas (encore)
Private Function DoPaste() As Boolean
DoPaste = False
    If Application.CutCopyMode = xlCopy Then DoPaste = True
End Function

'et ensuite au changement de cellule, si ta cellule active est A1 par exemple et que tu as copié avant le msg s´affiche
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim stMsg As String
stMsg = "Copie réussi, mais pas collage"
    If ActiveCell = Range("A1") And DoPaste = True Then MsgBox stMsg
End Sub

Le tout a coller dans la feuille ou tu veux que cela s´execute.

Bon courage
0