Copier certaines plages de cellules dans la même feuille

[Domdom49]

Bonjour à tous,

Dans le fichier joint, j'ai 2 tableaux dans lesquels figurent des noms, ainsi que leurs jours de travail symbolisés par des "1", leur jour de repos symbolisé par des "X" et les gens qui travaillent de nuit symbolisés par un "N".

Je souhaiterai qu'en cliquant sur le bouton, toutes les personnes ayant des "N" des tableaux 1 et 2, soient importer dans le 3ème tableau nuit, conformément à l'exemple contenu dans le fichier, où tout est expliqué.

Pouvez-vous m'aider à nouveau svp ?

Merci beaucoup.
Domdom49

 

[Gardien de phare]

Re : Copier certaines plages de cellules dans la même feuille

Bonjour,

A tester et adapter selon l'organisation du classeur réel...

 

[Domdom49]

Re : Copier certaines plages de cellules dans la même feuille

Bonjour Gardien de phare,

Ca fonctionne parfaitement !

Merci beaucoup pour ton aide.

Domdom49

 

[Domdom49]

Re : Copier certaines plages de cellules dans la même feuille

Re Gardien de phare,

J'aurais cependant une question.
Lles noms peuvent avoir un fond de cellule de couleur.
Dans ce cas, comment faire pour reproduire la mise en forme lors du copier/coller ?

Merci pour ton aide.
Domdom49

 

[camarchepas]

Re : Copier certaines plages de cellules dans la même feuille

Bonsoir ,

J'espére que notre gardien de Phare ne m'en voudra pas :
Voici une petite modif permettant de copier également les attributs des cellules :

Sub nuit()
Application.ScreenUpdating = False
Dim ind1 As Integer, ind2 As Integer, Compte As Integer
ind2 = 5
With ActiveSheet
    For ind1 = 5 To 23
    Compte = Application.CountIf(Range("C" & ind1 & ":H" & ind1), "N")
    If Compte > 0 Then
        Range("B" & ind1 & ":H" & ind1).Copy Destination:=Range("R" & ind2 & ":X" & ind2)
        ind2 = ind2 + 1
    End If
     Compte = Application.CountIf(Range("K" & ind1 & ":P" & ind1), "N")
    If Compte > 0 Then
        Range("J" & ind1 & ":P" & ind1).Copy Destination:=Range("R" & ind2 & ":X" & ind2)
        ind2 = ind2 + 1
    End If
    Next
Application.ScreenUpdating = True
End With
    
    
End Sub

 

[Domdom49]

Re : Copier certaines plages de cellules dans la même feuille

Bonsoir Camarchepas,

Et bien si, ça marche !!
Merci à vous 2 de vous êtes penchés sur mon problème.

Domdom49

 

[Gardien de phare]

Re : Copier certaines plages de cellules dans la même feuille

Bonjour le forum, marchepas

Pas de soucis, du coup il faut effectivement passer par copier-coller que j'essaye toujours d'éviter !