Copie de cellules sous conditions

[exene]

Bonjour,

Malgré des tentatives je n'arrive pas à écrire une macro simple pour copier des cellules sous conditions.Dans le fichier joint un planning de personnels (sans formules), en vert les personnes disponibles, en rouge les personnes indisponibles. Un commandButton invite à saisir une date.A la validation, j'aimerais qu'en feuille2 dans la colonne A n'apparaissent que les personnes disponibles à la date choisie.

Merci de votre aide

 

[Modeste]

Re : Copie de cellules sous conditions

Salut Pascal 🙂

Le code suivant pourrait être "condensé" (mais j'ai continué avec la même syntaxe que ce que tu avais commencé).
Il faudrait aussi effacer les données avant la recopie en Feuil2 (fait dans la nouvelle version) et ajouter des contrôles (est-ce bien une date qui a été saisie? Existe-t-elle dans la Feuil1, etc...)

Sub saisie_journée()
  Journée = Application.InputBox("Choisissez une journée", Type:=1)
With Sheets("Feuil2")
    .Range("B1") = Journée
    .Range("A:A").ClearContents
    col = Application.Match(Journée, Sheets("Feuil1").Range("1:1"), 0) - 1
    For Each c In Sheets("Feuil1").Range("A2").Resize(Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row - 1)
        If c.Offset(0, col) = "<" Then .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = c
    Next c
End With
End Sub

Edit: désolé, je n'avais pas lu assez attentivement la première fois. Code modifié ... en espérant que ce soit mieux 😱

 

[exene]

Re : Copie de cellules sous conditions

Bonjour Modeste,

Effectivement, il faudrait vérifier que la date existe bien dans le planning. Le code fonctionne bien mais il me copie les personnes indisponibles. cette liste de personnes disponibles servira ultérieurement à alimenter une ComboBox.

@+

 

[Modeste]

Re : Copie de cellules sous conditions

Re,

J'ai modifié, en te relisant plus attentivement, le code de mon premier message ... sorry!

 

[néné06]

Re : Copie de cellules sous conditions

Bonjour Modeste,exene et le Forum,

Dans le même style, ma version:

A+

René

 

[exene]

Re : Copie de cellules sous conditions

Re,

Le code fonctionne comme le je le souhaite.

Bon dimanche 😉

 

[exene]

Re : Copie de cellules sous conditions

Bonjour néné06,

Merci pour cette version

Bon dimanche