Re : Copie colle non désiré d'une formule suite a l'exécution d'une macro
Re-bonjour,
j'ai trouvé une solution mais ce n'est pas très élégant, si vous en avez d'autre(s) je suis preneur.
dans ma solution je fais un copie-colle dans une cellule non utilisée (La A2) puis je supprime le contenu et ensuite je retourne me placer dans la cellule située sous celle sur laquelle j'avais double cliké.
Si on appuie sur "entrée" il ne se passe rien la copie a bien été vidée
Ca marche mais je pense qu'on doit pouvoir faire mieux
Private Sub worksheet_beforedoubleclick(ByVal target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Not Application.Intersect(target, Range("I6:IS2500")) Is Nothing Then
ligne = target.Row
colonne = target.Column
Aide_saisie_tp.TextBox1.Value = Date
Sheets("Paramètres").Visible = True
Sheets("Paramètres").Select
Aide_saisie_tp.Show
Sheets("Paramètres").Select
ActiveSheet.Visible = xlVeryHidden
Sheets("Menu").Select
Sheets("Trame pédagogique").Select
Range("IT3").Select
Selection.Copy
Sheets("Trame pédagogique").Select
Cells(ligne, colonne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(2, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.ClearContents
Cells(ligne + 1, colonne).Select
End If
Application.ScreenUpdating = True
End Sub