Copier une ligne sans sa couleur de fond

Résolu/Fermé

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - Modifié le 9 juin 2017 à 01:10
Henri - 11 juin 2017 à 23:47

Bonjour,

Je souhaite savoir comment coller une ligne sans la couleur de fond et sans les codes des cellules, vers une autre feuille svp.

J'ai mis en boucle ceci:


    For i = 6 To 7      
            'Copie la ligne  de "B" à "M"
          Sheets("feuil1").Range("B" & i & ":M" & i).Copy
          Sheets("feuil2").Range("B" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next

Savoir dire NON est un devoir et une force! N'ayez pas peur! L'union fait la force!

Passez en résolu si ça l'est!

A voir également:

Copier une ligne sans sa couleur de fond
Copier une vidéo youtube - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Aller à la ligne excel - Guide
Excel cellule couleur si condition texte - Guide

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
9 juin 2017 à 01:20

Bonjour,

Peut-être simplement :

....
Sheets("feuil2").Range("B" & i & ":M" & i).Value = _
Sheets("feuil1").Range("B" & i & ":M" & i).Value
....

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
9 juin 2017 à 01:42

Merci ! j'essaie demain .
Bonne nuit

Réponse 2 / 3

Henri
9 juin 2017 à 01:46

Inutile d'utiliser une boucle For .. Next, donc pas besoin de variable i !

xlPasteAll copie tout (y compris le format des cellules) ; utilise plutôt
xlPasteValues qui copie seulement les valeurs.


Option Explicit

Sub Essai()
  ' Copie les lignes de la plage "B6:M7"
  Worksheets("Feuil1").Range("B6:M7").Copy
  Worksheets("Feuil2").Range("B6").PasteSpecial xlPasteValues
  Application.CutCopyMode = False
End Sub

La dernière instruction évite le cadre de tirets clignotants
(qui est autour de la plage source des données à copier).

Réponse 3 / 3

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
9 juin 2017 à 01:41

Le format comprend aussi les fonctions dans les cellules (type: =si(..) ) ?

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
9 juin 2017 à 08:13

Re,

Pour copier les constantes et les formules :

Sheets("feuil2").Range("B6:M7").Formula = _
Sheets("feuil1").Range("B6:M7").Formula

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
10 juin 2017 à 23:35

Bonsoir,
J'ai réussi à copier correctement mais lorsqu'il y a une modification sur la feuil1
(info effacée) la feuil2 ne les fait pas disparaître.
Comment cela se fait-il svp? quelle est la solution svp?

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
Modifié le 11 juin 2017 à 00:22

ah! il fallait que j'efface avant la copie.
J'ai trouvé ça :

Sheets("Feuil2").Range("B" & i & ":M" & i).ClearContents

et ça marche!

mais comment effacer le cadre autour de la zone copiée ou effacée svp ?

Henri > mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024
11 juin 2017 à 00:32

Avec Application.CutCopyMode = False (lis plus haut mon message
du 9 juin 2017 à 01:46 ; tu verras aussi que tu peux éviter d'utiliser
une boucle For i ... Next i).

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 53
11 juin 2017 à 20:32

bonsoir Henri,
J'ai bien lu ton message, et je l'ai appliqué. Le problème c'est que une fois la copie effectuée à la destination le cadre de départ disparait bien mais pas dans la page d'arrivée.

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Connaissez-vous un simulateur de coiffure en ligne gratuit ?

"Couleur de page" pour une seule page

Code source couleur de fond