Copie de cellules sous conditions

Modeste

XLDnaute Barbatruc

• 8 Septembre 2013

• #2

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...)

VB:

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 😱

 

Dernière édition: 8 Septembre 2013

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 8 Septembre 2013

• #3

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.

@+

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 8 Septembre 2013

• #4

Re : Copie de cellules sous conditions

Re,

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 8 Septembre 2013

• #5

Re : Copie de cellules sous conditions

Bonjour Modeste,exene et le Forum,

Dans le même style, ma version:

A+

René

 

Pièces jointes

• DISPONIBLE (1).xls

  41 KB · Affichages: 35

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 8 Septembre 2013

• #6

Re : Copie de cellules sous conditions

Re,

Le code fonctionne comme le je le souhaite.

Bon dimanche 😉

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 8 Septembre 2013

• #7

Re : Copie de cellules sous conditions

Bonjour néné06,

Merci pour cette version

Bon dimanche

 

Vote positif 0 Vote négatif