Copier une ligne sans sa couleur de fond

Résolu
mod77 Messages postés 1284 Date d'inscription   Statut Membre Dernière intervention   -  
 Henri -
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!

3 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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 1284 Date d'inscription   Statut Membre Dernière intervention   53
 
Merci ! j'essaie demain .
Bonne nuit
0
Henri
 
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 1284 Date d'inscription   Statut Membre Dernière intervention   53
 
Le format comprend aussi les fonctions dans les cellules (type: =si(..) ) ?
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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 1284 Date d'inscription   Statut Membre Dernière intervention   53
 
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 1284 Date d'inscription   Statut Membre Dernière intervention   53
 
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 1284 Date d'inscription   Statut Membre Dernière intervention  
 
 
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 1284 Date d'inscription   Statut Membre Dernière intervention   53
 
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