Attribution de dates dans un calendrier semestriel

Re : Attribution de dates dans un calendrier semestriel

Bonjour Michel_ja,

Dans la cellule L5 copies la formule suivante :

=SI(ESTNA($K5);"";SI(ANNEE($K5)=L$1;$J5;""))

puis tu l'incrémentes dans tout le tableau.

Cordialement

Bernard

Re : Attribution de dates dans un calendrier semestriel

Bonjour,

vois si cela te convient.

A+

Re : Attribution de dates dans un calendrier semestriel

Bonjour Michel_ja, CBernardT et Hasco 🙂,
A mettre en L5 et à tirer Attention, tu as de drôles de trimestres qui commencent au 1er juin au lieu du 1er juillet...
Bon après-midi 😎

Re : Attribution de dates dans un calendrier semestriel

Merci les gars pour vos réponses.
Par contre il me faudrait cette formule dans une macro car ces dates sont le résultat d'une rechercheV sur la colonne D, mais il y aura aussi E, F, etc. Je voudrais aller vers une boucle qui serait du type.... de la colonne L à AM et de la ligne 5 à 21....appliquer votre formule ...
Et petite précision, dans le code, il faudra préciser si la valeur des cellules de L5 à AM26 sont = "" appliquer la formule pour ne pas remplacer les valeurs déjà existantes

Re : Attribution de dates dans un calendrier semestriel

Comme le code d'une macro pour appliquer les formule que vous me proposez m'apparait bien compliqué, je pense que je vais tenter autrement : je laisse la formule dans les colonnes et je fait une boucle qui copy / past special les cellules dont la valeur est différente de "" et pour les autres un copy / past special les formules !!!

Re : Attribution de dates dans un calendrier semestriel

re-bonjour,
j'ai tant bien que mal écrit ce code. Je vous passe les variables. Je bloque car j'aimerai que lors de la boucle du i (nouvelle colonne), la RechercheV ne se fasse plus sur VLOOKUP(RC[-6] mais sur VLOOKUP(RC[-5]. Je crois qu'on n'a pas le droit des mettre des compteurs dans les codes de RechercheV. Quelqu'un aurait une idée ? Merci d'avance

Cells(j, i).Select
ModelChange = ActiveCell.Offset(-3, 0).Value
ActiveCell.Value = Segment & " " & Nameplate & " " & Programm & " " & ModelChange
Transfert = ActiveCell.Value

Cells(j, 10).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Tableau!R9C8:R200C15,5,FALSE)" 'Changer tableau
Cells(j, 11).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],Tableau!R9C8:R200C15,6,FALSE)" 'Changer tableau
ActiveCell.Select
Selection.NumberFormat = "yyyy/m"

Dim M As Long
For M = 13 To 40

Cells(j, M).Select
If ActiveCell.Value <> "" Then
ActiveCell.Copy
ActiveCell.PasteSpecial (xlPasteValues)
ElseIf ActiveCell.Value = "" Then
ActiveCell.Copy
ActiveCell.PasteSpecial (xlPasteFormulas)
End If
Next M

Next j

Next i

End Sub