Date en Fonction du N° semaine

[maval]

Bonjour,

Voila j'ai un problème que je n'arrive pas a résoudre. J'ai sur la même ligne "3" la date en "C2" et les N° de semaine de "K3:AP3". J'aimerais que la date prenne en compte le dernier N° de la semaine de la ligne"3" soit en formule ou en passant par macro.
La formule de la date que j'ai mis en C2 est en fonction du N° de la semaine qui se trouve en "K3:AP3":

=(INDEX($K$13:$AP$13;1;NBVAL($K$13:$AP$13))-1)*7+DATE(ANNEE(AUJOURDHUI());1;1)+2

Le problème est que les cellules "K3:AP3" ont des formules

Je joint mon exemple qui seras certainement plus parlant.

Bien Cordialement

Max

 

[maval]

Re : Date en Fonction du N° semaine

Re,

je viens d'effacer la ligne 3 et les cellules "K5:AP50" et sa ne fonctionne plus?

@+

 

[Compte Supprimé 979]

Re : Date en Fonction du N° semaine

Re,

Désolé, je n'ai pas fait gaffe sur qu'elle colonne ton tableau commençait

Donc, il faut :
1) ne pas supprimer ta colonne K
2) mettre en J3 un texte quelconque ">" par exemple
3) remplacer le code du bouton valider par celui-ci

Private Sub CdB_Valider_Click()  Dim NCol As Integer ' Prochaine colonne vide
  If Not IsDate(Me.TB_Date) Then
    MsgBox "Merci de saisir une date au format [jj/mm/aaaa]", vbCritical, "ATTENTION ..."
    Exit Sub
  End If
  
  With Sheets("Feuil1")
    NCol = .Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).Column
    ' Inscrire la date saisie
    .Cells(3, NCol).Value = CDate(Me.TB_Date)
    ' Vérifier si nous sommes > à la première colonne de jeu K
    If NCol > 11 Then
      ' Auquel cas on recopie des formules
      Range(Cells(2, NCol - 1), Cells(2, NCol)).FillRight
      Range(Cells(4, NCol - 1), Cells(4, NCol)).FillRight
    End If
  End With
  ' Fermer l'USF
  Unload Me
End Sub

Voilà 😉

 

[maval]

Re : Date en Fonction du N° semaine

Re,

Oui la c'est Nickel je peut effacer sans aucun problème. Juste une petit modif de dernière minute je voudrais avoir la ligne 3 qui est caché en ligne 1 ou doigt-on modifier SVP?
@+

 

[Compte Supprimé 979]

Re : Date en Fonction du N° semaine

Re,

1) Couper / coller la ligne 3 en ligne 1

2) suppression de la ligne 3 (vide)

3) modification du code : Cells(Ligne, Colonne)

Private Sub CdB_Valider_Click()  Dim NCol As Integer ' Prochaine colonne vide If Not IsDate(Me.TB_Date) Then
    MsgBox "Merci de saisir une date au format [jj/mm/aaaa]", vbCritical, "ATTENTION ..."
    Exit Sub
  End If
  
  With Sheets("Feuil1")
    NCol = .Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Column
    ' Inscrire la date saisie
   .Cells(1, NCol).Value = CDate(Me.TB_Date)
    ' Vérifier si nous sommes > à la première colonne de jeu K
   If NCol > 11 Then
      ' Auquel cas on recopie des formules
     Range(Cells(2, NCol - 1), Cells(2, NCol)).FillRight
      Range(Cells(3, NCol - 1), Cells(3, NCol)).FillRight
    End If
  End With
  ' Fermer l'USF
 Unload Me
End Sub

A+

 

[maval]

Re : Date en Fonction du N° semaine

Re,

Je te remercie et te souhaite une bonne soirée

Max