Empêcher la copie des bordures
#1
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-05-2008 22h02
Bonsoir à tous,

Que faut -il changer dans ce code pour tout copier sauf les bordures ?


If flag Then Exit Sub
flag = True

If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
For Each Cell In Sheets("Poid").Range("C7:C300")
If Target.Value = Cell.Value Then

x = Target.Borders.LineStyle
y = Target.Borders.Value

Cell.Copy Destination:=Target

Target.Borders.LineStyle = x
Target.Borders.Value = y
End If
Next Cell
End If
End If
flag = False

Merci pour vos solutions
Hors Ligne
Rapport   Haut 

Re: Empêcher la copie des bordures
#2
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 28-05-2008 22h13
Bonjour à tous,
Re ascal44,

Pourrais-tu utiliser les balises (code dans ton cas) pour déposer ?

Cela serait plus simple pour tous.

A+


Cordialement
Hors Ligne
Rapport   Haut 

Re: Empêcher la copie des bordures
#3
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 28-05-2008 22h38
Bonsoir ascal44, JCGL, le Forum,

A vrai dire, je n'ai pas tout compris dans ce code... cela dit, je pense que tu devrais pouvoir tirer partie de la méthode PasteSpecial comme suit :
Cell.Copy
    Target
.PasteSpecial Paste:=xlPasteAllExceptBorders


Tout à fait d'accord avec JCGL, je te remercie de bien vouloir utiliser les balises de Code pour insérer ton code VBA dans tes messages (balises accessibles via le bouton Image redimensionnée de l'éditeur).

Par ailleurs, je te remercie aussi de consulter et mettre en pratique ce qui est indiqué ICI pour nous permettre de te répondre au mieux.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Empêcher la copie des bordures
#4
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 29-05-2008 21h46
Bonsoir et encore merci le problème de bordure est résolu.
Je vais vous soumettre un autre problème dans un autre sujet.
A bientôt
Hors Ligne
Rapport   Haut 

Re: Empêcher la copie des bordures
#5
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 29-05-2008 22h27
Bonsoir ascal44, le Forum,

Citation :

ascal44 a écrit:
Bonsoir et encore merci le problème de bordure est résolu.

Le problème est résolu comment ascal44 ? Ca pourrait peut-être aider d'autres visiteurs de ce fil, non ?

Par ailleurs, si le sujet est clos, tu es prié de bien vouloir le solder comme te l'a déjà fait remarqué JCGL dans ton fil précédent.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Empêcher la copie des bordures
#6
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 29-05-2008 22h34
Il est résolu avec la solution de myDearFriend!
Merci
Hors Ligne
Rapport   Haut 

Re: Empêcher la copie des bordures
#7
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 29-05-2008 22h36
J'ai oublié de le mettre en résolu (oups)
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes