Forum Bonjour
Je vous sollicite encore , voila mon souci
J’ai un tableau (exemple la ligne C2) je cherche un Code VBA qui empêche le changement du format de cette cellule ( la couleur des bordures, la police …etc) si je colle un texte dans cette cellule ( sans aller barre de titre) et ceci pour ne pas flingue le visuel du ma feuille. ?
GRAZIE
@ JM: je pense qu' on a pas besoin d'un fichier exemple n'est ce pas JM
Phillipe BONJOUR
Grazie pour la réponse rapide, mais mon souci est si copier un texte de Word et je veux le coller (directement sans passer par la bare de formule) dans une cellule de ma feuille sans changer les bordures et le remplissage de cette cellule
grazie
A+
On peut mettre par exemple dans le code de la feuille :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mem
If Target.Areas.Count = 1 Then
Application.EnableEvents = False
mem = Target.Formula
Application.Undo
Target = mem
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mem, sel As Range
If Target.Areas.Count = 1 Then
Application.EnableEvents = False
mem = Target.Formula
Set sel = Selection
Application.Undo
Target = mem
sel.Select
Application.EnableEvents = True
End If
End Sub
Bonjour Job,Docmarti
merci pour vos reponses, j'ai testé le code de Job ça n'a pas fonctionné j'ai une erreur
Erreur d’exécution 1004 La méthode de UNDO de l’objet Application a est échoué
a ce niveau
......
Application.Undo
....
A+
je cherche un Code VBA qui empêche le changement du format de cette cellule ( la couleur des bordures, la police …etc) si je colle un texte dans cette cellule ( sans aller barre de titre) et ceci pour ne pas flingue le visuel du ma feuille.
Re Docmarti
oui je ne veux pas modifier le visuel de la feuille Excel c a d ne pas changer le format de mon tableau (vert, blanc Rouge)
donc la reponse de job ,elle est proche a mon souci mais j'ai un bug
grazie
Re Docmarti
oui je ne veux pas modifier le visuel de la feuille Excel c a d ne pas changer le format de mon tableau (vert, blanc Rouge)
donc la reponse de job ,elle est proche a mon souci mais j'ai un bug
grazie
Re
merci pour la réponse mais n'a pas fonctionné correctement ?
a+
EDIT: le collage que j'ai souhaité est manuelle c a d je souhaite coller un texte Word vers mon tableau mais sans modifier le format de mon tableau excel