XL 2013 Aide sur problème fonction SI

ToF62

XLDnaute Nouveau
bonjour à tous,

j'aimerai avoir plus d'information sur la fonction SI.
je vous explique mon soucis dans une colonne, j'ai des date, par contre pas sur toute les lignes sur une feuil2.
je souhaite récupérer toutes les dates ainsi que certaine information sur la même ligne, jusque la pas de soucis

VB:
'une partie du code
If Sheets(Feuil2).Cells(i, 29).Value <> "" Then
    Sheets("Feuil1").Cells(DelI, 21).Value = Sheets(Feuil2).Cells(i, 31).Value
    Sheets("Feuil1").Cells(DelI, 1).Value = Sheets(Feuil2).Cells(i, 3).Value
    Sheets("Feuil1").Cells(DelI, 3).Value = Sheets(Feuil2).Cells(i, 7).Value
    Sheets("Feuil1").Cells(DelI, 24).Value = Sheets(Feuil2).Cells(i, 29).Value
    DelI = DelI + 1
End If

Ou cela ce complique, j'aimerai sélectionner et copié, les dates comprises entre deux dates pré défini.

Pour ma petite tête le code serait : ?

Code:
If date_dans_colonne < date_début And date_dans_colonne > date_de_fin Then

Ducoup il faut intégrer cette fonction SI dans

Code:
If Sheets(resultat2).Cells(i, 29).Value <> "" And ####CODE ICI### Then


et ca ne fonctionne pas.

Merci d'avance pour votre aide

PS: Je sais vous allez me demande de joindre un fichier, ce qui est logique (fichier en cour de création car je ne peut mettre le fichier source)

ToF62
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Tof,
En attendant le fichier test :) , vous pouvez essayer d'ajouter les conditions dans la fonction IF :
VB:
Sub test()
If date_dans_colonne < date_début And date_dans_colonne > date_de_fin And _
    Sheets(Feuil2).Cells(i, 29).Value <> "" Then
        Sheets("Feuil1").Cells(DelI, 21).Value = Sheets(Feuil2).Cells(i, 31).Value
        Sheets("Feuil1").Cells(DelI, 1).Value = Sheets(Feuil2).Cells(i, 3).Value
        Sheets("Feuil1").Cells(DelI, 3).Value = Sheets(Feuil2).Cells(i, 7).Value
        Sheets("Feuil1").Cells(DelI, 24).Value = Sheets(Feuil2).Cells(i, 29).Value
        DelI = DelI + 1
End If
End Sub
La copie se fera si Date>dateDébut ET Date<dateFin ET Cells(i, 29)<> ""
 

ToF62

XLDnaute Nouveau
Bonjour Sylvanu et merci,

j'avais testé cette méthode, qui ne fonctionne pas.

Voici mon fichier ci-joint.

Principe de fonctionnement :
- Si dans "Reporting" cellule AI1, je met un numéro de semaine exemple "3" les dates se mettent à sa droite

- Quand on clique sur "Actualiser" sa récupéré et copie les informations de la feuille "3" les informations desirer, ainsi que les informations de la feuille "4" dans l'autre tableau.

Tout cela fonctionne comme je le désire, sauf que je n'arrive à filtrer selon les date de la semaines dans le "Reporting" dans le tableau semaine 3 par rapport à la semaine 3, idem dans le tableau semaine 4

J espère avoir réussi à m'expliquer.

Si y a des erreurs, ou amélioration n’hésite pas, je débute.

Merci d'avance

ToF62
 

Pièces jointes

  • ToF62.xlsm
    64.6 KB · Affichages: 2
Haut Bas