Copier une ligne sans sa couleur de fond
Résolu
mod77
Messages postés
1320
Date d'inscription
Statut
Membre
Dernière intervention
-
Henri -
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:
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!
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
-
Bonjour,
Peut-être simplement :.... Sheets("feuil2").Range("B" & i & ":M" & i).Value = _ Sheets("feuil1").Range("B" & i & ":M" & i).Value ....
-
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).
-
Le format comprend aussi les fonctions dans les cellules (type: =si(..) ) ?
