bonjour Jacques
j'ai trouvé en bouquinant VB5 une solution simple, mais qui fonctionne
If ActiveCell = "7/14" Then
With ActiveCell
.Offset(0, 0) = "CM "
.Offset(1, 1) = "07:00"
End With
ElseIf ActiveCell = "8/15" Then
With ActiveCell
.Offset(0, 0) = "CM "
.Offset(1, 1) = "07:00"
End With
Else
MsgBox "La formule ne peut être placée que sur un poste 7/14 ou 8/15. "
End If
Toutefois je te remercie de t'être penché sur mon problème, je suis vraiment novice en VBA ,et que d'essai avant de trouver une soluce convenable, mais je persévére. Pour mon planning il ne me reste plus qu'a
transférer mes lignes de postes qui sont actuellement en quinzaine "Lundi Dimanche" sur des feuilles mensuelles, là je pédale encore.Il faut que je trouve rapidement une soluce car je suis en retraite fin Décembre et j'aimerais laisser mon planning à mon successeur, si tu as des idées simples de transfert de données , je prends.
@+ Phil