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
Hors ligne instagram - Guide
Aller à la ligne excel - 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 775
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 775
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

Dessiner avec son clavier et avec des lettres

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

Connaissez-vous un simulateur de coiffure gratuit ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters