Donnée d'une cellule Excel vers Frame d'un Userform
Bonjour à tous,
C'est la troisième fois que je post sur le forum (toujours le même projet!) , et vous m'avez déjà apporté un sacré coup de main!!!
Il me reste cependant deux trois problèmes...
1) "Comment récupérer la valeur d'une cellule Excel et cocher l'optionbutton correspondant d'une Frame d'un USERFORM "
(Frame composée de 4 optionButtons)
2) Je souhaite faire défiler à l'aide d'un SpinButton les fiches local d'un immeuble.
Les caractéristiques des locaux sont réparties sur les colonnes A,B,C,D . Un local par ligne.
Cellules colonne A --> à reporter dans textbox de l'Userform,
Cellules colonne B --> à reporter dans Frame composée de 4 optionButton,
Cellules colonne C --> à reporter dans Combobox
Cellules colonne D --> à reporter dans Combobox
pour le 1) j'ai vraiment besoin d'aide!!!
pour le 2) c'est juste la démarche qui m'interesse, c'est plus de la curiosité personnelle que quelque chose d'impératif pour mon projet!
Merci d'avance
ET BONNE SOIRÉE A TOUS
Bonsoir
Une réponse rapide pour le 1 car tu ne fournis pas de support
Cas le + simple
Tes OpB (OptionButton) sont numérotés de 1à 4
Tes cellules correspondantes sont A B C D
Private Sub CommandButton1_Click()
Dim I As Byte
Dim Ligne As Long
Ligne = 1
For I = 1 To 4
If Sheets("Feuil1").Cells(Ligne, I) <> "" Then Me.Controls("OptionButton" & I) = True
Next I
End SubJe n'ai pas réussi !
Sinon j'ai écrit ça:
' UserForm3.type_construction = Cells(ligne, 12)
If Sheets("1 - Récupération DE").Cells(Ligne, 12) = "1" Then UserForm3.Controls("OptionButton4") = True
ElseIf Sheets("1 - Récupération DE").Cells(Ligne, 12) = "2" Then UserForm3.Controls("OptionButton3") = True
ElseIf Sheets("1 - Récupération DE").Cells(Ligne, 12) = "30 min" Then UserForm3.Controls("OptionButton5") = True
ElseIf Sheets("1 - Récupération DE").Cells(Ligne, 12) = "<30 min" Then UserForm3.Controls("OptionButton6") = True
End If
Mais ça ne marche pas!
Si vous avez une idée?
Bonsoir
Bien sur que j'ai une idée
Elle est bonne hein (l'idée)
C'est bon Merci!!!
j'ai utilisé une formule du style:
"
If Cells(ligne, 15) = "2h" Then
UserForm3.OptionButton3.Value = True
ElseIf Cells(ligne, 15) = "1h" Then
UserForm3.OptionButton4.Value = True
ElseIf Cells(ligne, 15) = "30min" Then
UserForm3.OptionButton5.Value = True
ElseIf Cells(ligne, 15) = "<30min" Then
UserForm3.OptionButton6.Value = True
End If "
Désolée pour la réponse tardive! l'idée d'un fichier joint était bonne cela dit
C'est bon Merci!!!
j'ai utilisé une formule du style:
"
If Cells(ligne, 15) = "2h" Then
UserForm3.OptionButton3.Value = True
ElseIf Cells(ligne, 15) = "1h" Then
UserForm3.OptionButton4.Value = True
ElseIf Cells(ligne, 15) = "30min" Then
UserForm3.OptionButton5.Value = True
ElseIf Cells(ligne, 15) = "<30min" Then
UserForm3.OptionButton6.Value = True
End If "
Désolée pour la réponse tardive! l'idée d'un fichier joint était bonne cela dit