copie feuille

[manuBX]

Bonjour à tous
je viens demander de l aide pour réaliser une macro
A partir d un bouton
-il s agit de copier la feuille active ex S 2 et de la nommer S 3 et ainsi de suite
-sur cette nouvelle feuille supprimer ce que contiennent les cellules de D5 à D26 idem pour les colonnes E F G H sauf si la cellule contient la couleur jaune de base (la laisser avec la couleur sur la nouvelle feuille)
Merci d avance

 

[Papou-net]

Re : copie feuille

Bonsoir manuBX,

Vois si ce fichier te convient.

Bonne soirée.

Cordialement.

 

[manuBX]

Re : copie feuille

Merci Papou-net

c est tout a fait ce qu il me faut
encore une fois MERCI
avec les xldnautes c est tous les jours Noel
CORDIALEMENT

 

[manuBX]

Re : copie feuille

RE Bonjour
si je desire ajouté une couleur comme le 5 bleu idem au jaune 6
quel modification effectuée
Merci d avance

 

[Papou-net]

Re : copie feuille

RE Bonjour
si je desire ajouté une couleur comme le 5 bleu idem au jaune 6
quel modification effectuée
Merci d avance

Essaies de modifier ton code comme celà :

Sub NouvelleFeuille()
Application.ScreenUpdating = False
NumFeuille = Mid(Sheets(Sheets.Count).Name, 3)
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "S " & NumFeuille + 1
With ActiveSheet
  For Each Cel In .Range("D5:H26")
    [COLOR="RoyalBlue"][B]If Cel.Interior.ColorIndex <> 5 Or Cel.Interior.ColorIndex <> 6 Then[/B][/COLOR]
      .Range(Cel.Address) = ""
      .Range(Cel.Address).Interior.ColorIndex = xlAutomatic
    End If
  Next
End With
Application.ScreenUpdating = True
End Sub

Note : tes couleurs bleues utilisées correspondent à 33 et 41.

Bon dimanche.

Cordialement.

 

[manuBX]

Re : copie feuille

Re Bonsoir
je viens de tester avec la modification "If Cel.Interior.ColorIndex <> 5 Or Cel.Interior.ColorIndex <> 6 Then"
mais ça ne fonctionne pas
il copie la feuille en supprimant tout le contenu des cellules de d5 àH26 ( oui il y a d autres bleu mais ce qui m interesse sont le BLEU 5 et le Jaune 6
est que cà ne viendrais pas des <>

CORDIALEMENT
A+

 

[Papou-net]

Re : copie feuille

Re Bonsoir
je viens de tester avec la modification "If Cel.Interior.ColorIndex <> 5 Or Cel.Interior.ColorIndex <> 6 Then"
mais ça ne fonctionne pas
il copie la feuille en supprimant tout le contenu des cellules de d5 àH26 ( oui il y a d autres bleu mais ce qui m interesse sont le BLEU 5 et le Jaune 6
est que cà ne viendrais pas des <>

CORDIALEMENT
A+

Alors en modifiant ainsi le code ça fonctionne (j'ai testé) :

For Each Cel In .Range("D5:H26")
    [COLOR="RoyalBlue"]If Not Cel.Interior.ColorIndex = 5 And Not Cel.Interior.ColorIndex = 6 Then[/COLOR]
      .Range(Cel.Address) = ""
      .Range(Cel.Address).Interior.ColorIndex = xlAutomatic
    End If
  Next

Bonne soirée.

Cordialement.