Discussion :

[capi81]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[capi81]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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