XL 2016 VBA calendrier d'absencesai

[jozerebel]

Bonjour à tous,

J'ai une base de données que je souhaite parcourir pour renseigner un calendrier en ligne (dans une autre feuille).

J'ai bidouillé un code vba mais je veux boucler dans une boucle et là je sèche...

Je mets le fichier en PJ.

Merci pour votre aide éclairée!!!

 

[M12]

Bonjour,
Un test

 

[fanfan38]

Bonjour
Salut M12
Ma solution...
A+ François

 

[jozerebel]

Merci à tous les deux !!! Je fais quelques trous dans mon mur et je regarde vos deux codes ! 🙂

 

[jozerebel]

Re FanFan 38,

je ne comprends pas les deux lignes suivantes? Peux-tu m'éclairer stp ? D'ailleurs j'ai une anomalie à l'exécution du code sur cette première ligne (dépassement de capacité). Pourquoi +3?

col = (Sheets("bdd").Range("D" & i).Value - Sheets("cal").Range("C1").Value) + 3
colfin = (Sheets("bdd").Range("F" & i).Value - Sheets("cal").Range("C1").Value) + 3

Merci pour ta réponse !

 

[jozerebel]

C'est bon j'ai compris !!!

J'avais des formules en colonne 1 de bdd qui étaient étirées très en bas ! Du coup pour calculer derligbdd j'ai conditionné sur la colonne B et pas la col A et maintenant ça marche !!!!

Merci à tous !!!!!