Coller valeur checkbox dans une cellule d'une plage

Bonjour le forum

Je souhaite coller la valeur de la checkbox dans la 1ère cellule vide la plage F36:F45.
En effet, j'ai au moins 9 checkbox et je souhaite que lorsque je click sur une checkbox et après avoir renseigné "OUI" dans la cellule de la colonne F correspondante, que le nom de sa caption s'affiche sur la cellule vide de la plage F36:F45 de la CREDITER.
J'ai du mal à déterminer la cellule vide de la plage indiquée.
Ci-dessous ce que j'ai essayé de traduire en ma façon:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Cellvide = .Cells(36, 6).Row ' la cellule vide devra être la 1ère valeur cellule vide de la plage F36:F45 ' dans ces conditions comment définir la cellvide? If Cellvide > 1 Then Cellvide = Cellvide + 1 Private Sub worksheet_Change(ByVal target As Range) If CheckBox1 = True And Range("F3").Value = "OUI" Then Sheets("CREDITER").Select lignvide = CheckBox1.Caption End If ' la cellule de destination est la première cellule vide de la plage F36:F45 de la feuil2 End Sub

---

Merci de m'aider

Bonjour à tous

Comme déjà expliqué plus haut, je souhaite alimenter la plage F36:F45 de la feuille CREDITER par le nom de caption de mes checkbox (situé sur la feuille FORMULAIRE) suivant certaines conditions:
A partir de la feuille FORMULAIRE, j'ai des checkbox (rangé dans la plage B3:B9) qui désignent le type d'engagement detenu par le client.
J'ai également sur la même feuille une plage F3:F9 qui comporte des listes déroulantes (OUI et NON).
Sur la feuille CREDITER, je dois faire ressortir le type d'engagement que le client souhaite rembourser par anticipation d'ou la double condition :
sélection de la checkbox correspondant au type de prêt et choix de la valeur "OUI" dans la liste déroulante correspondante.
Afin que vous sachez que je travaille aussi de mon côté pour trouver la solution à mon problème, je vous partage mon code ci-dessous.
Un débocage s'affiche toujours mais je n'arrive pas à solutionner le problème:

Code:

---

cellvide = Sheets("FORMULAIRE").Range("F" & i).End(xlDown).Row

---

ci-dessous le code intégral que j'ai bidouillé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub worksheet_Change(ByVal target As Range) Dim i& Dim cellvide As Range For i = 36 To 45 cellvide = Sheets("FORMULAIRE").Range("F" & i).End(xlDown).Row If cellvide > 1 Then cellvide = cellvide + 1 If CheckBox1 = True And Range("F3").Value = "OUI" Then Sheets("CREDITER").Select cellvide = CheckBox1.Caption End If Next End Sub

---