Remplir cellule selon des dates de début date et de fin date en VBA

[undo74]

Bonjour,

Lorsque je clique sur un bouton, ça remplit automatiquement la zone ou se trouve les 12 colonnes de Janv à Déc situé à droite de la feuille Excel.


l'exemple dans le fichier :
- si la valeurs de la colonne 10 est < 0 je mets zéro sur toute la ligne de Janv a Déc (le code fonctionne )

  If Cells(i, 10).Value <= 0 Then
             Cells(i, col).Value = 0

- si la valeur de la colonne 10 est > 12 je copie la valeur de la colonne 7 puis je la colle sur toute la ligne de janv a Déc (le code fonctionne )

ElseIf Cells(i, 10).Value > 12 Then
            Cells(i, col).Value = Cells(i, 7).Value

- Maintenant si la valeur de la colonne 10 est comprise entre 1 et 12
je copie la valeur de la colonne 7 puis je la colle seulement en fonction de la date début colonne 4 et je m'arrête la date de fin colonne 5 (la fonction ne marche pas)

ElseIf Cells(i, 10).Value >= 1 And Cells(i, 10).Value <= 12 Then
            Cells(i, col).Value = Cells(i, 7).Value

Je bloque sur la dernière condition j'ai mis en rouge les bonnes informations dans le fichier en PJ.
Pouvez-vous svp résoudre me problème .
merci par avance,
cdt,

 

[Caillou]

Re : Remplir cellule selon des dates de début date et de fin date en VBA

Bonjour,

Il faut rajouter la condition dans le code :

      If Cells(i, 10).Value <= 0 Then
          Cells(i, col).Value = 0
      ElseIf Cells(i, 10).Value > 12 Then
          Cells(i, col).Value = Cells(i, 7).Value
      ElseIf Cells(i, 10).Value >= 1 And Cells(i, 10).Value <= 12 Then
          
          If Cells(1, col) >= Cells(i, 4) And Cells(1, col) <= Cells(i, 5) Then
              Cells(i, col).Value = Cells(i, 7).Value
          End If
      
      Else
          Cells(i, col).Value = ""
     
      End If

Par contre dans le tableau, il y a des erreurs de formules en L9C7 et L10C7

Caillou

 

[Bebere]

Re : Remplir cellule selon des dates de début date et de fin date en VBA

bonjour Undo
bienvenue
si bien compris çà devrait être bon

 

[undo]

Re : Remplir cellule selon des dates de début date et de fin date en VBA

Bonjour,

Avant tout merci infiniment pour votre aide
Réponse a Bebere,

C'est presque bon mais j'ai pas le bon résultat sur la ligne 6:
j’attends 0,98 de Janv à oct 2015
car nous avons 14 mois en tout
4 mois en 2014 et 10 mois en 2015.

sinon pour le reste c'est parfait

Réponse a vous deux effective il y a une spécification au niveau de la donnée sur la ligne 7 car diffdate (D1; D2;"m") donne une erreur si la première date D1 est supérieur la D2 donc j'ai modifié la formule

=SI(H2<=D2;DATEDIF(D2;E2;"m");DATEDIF(D2;H2;"m"))

@Caillou,
ton code fonction très bien j'ai les bonnes info sur la ligne 6

merci pour vos remarques et votre support.

 

[sandralos]

Bonjour, je suis à la recherche d'une formule qui me permettrait de mettre le choix dans ma liste pointage (voir photo du formulaire) dans le tableau (voir photo) en fonction des dates choisi dans le formulaire.

EX: Dans le formulaire je sélectionne pointage "500" du 01/01/24 au 05/01/24

je doit voir 500 dans les colonnes noté de 1 à 5 du tableau