Copier une ligne sans sa couleur de fond

Résolu/Fermé
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 - 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:

3 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 janvier 2023 1 761
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
....

1
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 52
9 juin 2017 à 01:42
Merci ! j'essaie demain .
Bonne nuit
0
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).
 
1
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 52
9 juin 2017 à 01:41
Le format comprend aussi les fonctions dans les cellules (type: =si(..) ) ?
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 janvier 2023 1 761
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
0
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 52
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?
0
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 52
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 ?
0
Henri > mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021
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).
 
0
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 52
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.
0