Discussion :

[thorgall9]

Bonjour,

Qui pourrait m’aider et m’ôter une énorme épine du pied ?

Je dois récupérer des informations de la feuil1 sous certaines conditions et les recopier vers la feuil2.

Conditions pour recopier les données de la feuil1 :
1) La valeur de la cellule de la colonne A doit être « ACTIF »
2) La valeur de la cellule de la colonne B doit être « PAYE »
3) la cellule de la colonne H doit être vide
4) la date d’aujourd’hui doit être >= à la valeur de la cellule (date) de la "colonne G" moins 2 mois".

Après cela, Les données (colonne A, B,C,D,E,F,G) restantes doivent être recopiées vers la feuil2 et
La colonne I recoit le résultat de la "colonne G" moins 2 mois
La colonne H de la feuil2 est remplie avec la date d’aujourd’hui pour les valeurs copiées
La colonne H de la feuil1 est remplie avec la date d’aujourd’hui uniquement pour les données copiées vers la feuil2 (exclusion via la condition 3 si on relance le code)

merci pour toute l'aide possible

[lebarj]

pour les conditions, un if classique ! Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
dim l_debut, l_fin as integer
 
l_debut = 1 'à adapter
l_fin = range("A1").end(xlDown).row
 
for i = l_debut to l_fin
 
if range("a" & l_debut).offset(i-l_debut,0) = "ACTIF" and range("b" & l_debut).offset(i-l_debut,0) = "payé" and range("h" & l_debut).offset(i-l_debut,0) = "" and now() > = range("g" & l_debut).offset(i-l_debut,0) - 60 then
          sheets("feuil2").range("A1:G1").offset(i-l_debut,0) = sheets("feuil1").range("A1:G1").offset(i-l_debut,0) 
          sheets("feuil2").range("h1").offset(i-l_debut,0) = 
          sheets("feuil1").range("h1").offset(i-l_debut,0) =
 
end if
 
next i

J'ai tappé ça sans compiler, il y a certainement des fautes de frappes, potentiellement un .value à ajouter après les range et le format de la date à ajuster mais tu as l'esprit ici. De même, a voir si dans l'offset c'est un i-l_debut ou i-l_debut +/- 1.
Enfin la condition sur la date est à la louche (2 mois = 60 jours) et j'ai un doute sur l'utilisation de today.

[thorgall9]

Merci, je vais regarder cela :-)

[Philippe Tulliez]

Bonjour,
Si tu souhaites exporter les lignes d'une liste de données suivant critères, je te conseille l'utilisation de la méthode AdvancedFilter (Filtre avancé d'excel).
Après avoir défini, la zone des données, la zone des critères et la zone d'exportation, le code VBA se résume à une seule ligne.

A lire Les filtres avancés ou élaborés dans Excel

[thorgall9]

Philippe, Lebarj,

Merci pour vos conseils.
Le code est en fait la base pour quelque chose de plus complexe que je vais commencer à attaquer ;-).
J'avais pensé au filtre élaboré, mais ce dernier ne pourra pas répondre à toutes mes attentes

J'ai adapté ceci pour que les enregistrements copiés se placent l'un en dessous de l'autre dans la nouvelle feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Range("A2:G2").Offset(i - l_debut, 0).Copy Destination:=Sheets(aujour).Range("A" & Sheets(aujour).Range("A" & Rows.Count).End(xlUp).Row + 1)

"aujour" est une variable...

MERCI !!!!