boucle sur couleur

[Novice avance !?]

bonsoir,

j'ai un problème pour traduire ma pensée en code vba

soit une sélection ("A4:A38") en Interior.ColorIndex 3


je lance la macro avec un USF dans lequel j'indique une date dans une textbox et cette date se place dans la 1ère cellule dont la couleur est 3 donc là A4 et la cellule est indexé de la couleur 36
je viens donc de créer mon entrée n° 1

en cliquant sur un bouton suivant j'aimerais entrer une 2ème date qui se logerais à nouveau dans la 1ère cellule indexé couleur 3 donc la ce serai en A5

et ainsi de suite !?

merci par avance

 

[wilfried_42]

Re : boucle sur couleur

bonjour noviceavance !!!!

ce qu'i faut c'est chercher la prochaine coleur index 3
for i = 4 to 38
if range("A" & cstr(i)).interior.colorindex = 3 then exit for
next i

if i > 38 then
msgbox "plus de ligne disponible"
else
mise à jour de la ligne i
end if

 

[Novice avance !?]

Re : boucle sur couleur

🙂 merci d'avoir débloquer mon problème
j'ai pu adapter à ma convenance

bon week-end🙂