Re : Option button et frame avec textbox
Merci ca marche
comment puis je l'appliqué pour l'heure?
de plus en colonne AF BC etc... j'ai la meme chose qui se repete ai je fait le bon code en appliquant ce que tu m'a filé?
Private Sub UserForm_Initialize() ' Ouverture du formulaire et initialisation - PMB RAT
F02_PMB.ComboBox1.Value = ActiveCell.Offset(0, 0) ' RECUPERATION DE L INFORMATION DANS LA CELLULE : ELLE MEME
'INITIALISATION DE LA DATE - DATE DU JOUR SI CELLULE VIDE
F02_PMB.date1.Value = ActiveCell.Offset(0, 1)
'RECEPTION
If ActiveSheet.Cells(ActiveCell.Row, 9) = "" Then
date1.Value = Format(Now, "dd/mm/yyyy")
Else: date1.Value = Format(ActiveSheet.Cells(ActiveCell.Row, 9), "dd/mm/yyyy")
End If
F02_PMB.heure1 = ActiveCell.Offset(0, 2)
'RELAIS
If ActiveSheet.Cells(ActiveCell.Row, 32) = "" Then
date1.Value = Format(Now, "dd/mm/yyyy")
Else: date1.Value = Format(ActiveSheet.Cells(ActiveCell.Row, 32), "dd/mm/yyyy")
End If
F02_PMB.heure1 = ActiveCell.Offset(0, 2)
'DEPART
If ActiveSheet.Cells(ActiveCell.Row, 55) = "" Then
date1.Value = Format(Now, "dd/mm/yyyy")
Else: date1.Value = Format(ActiveSheet.Cells(ActiveCell.Row, 55), "dd/mm/yyyy")
End If
F02_PMB.heure1 = ActiveCell.Offset(0, 2)
'DEBRANCHEMENT
If ActiveSheet.Cells(ActiveCell.Row, 78) = "" Then
date1.Value = Format(Now, "dd/mm/yyyy")
Else: date1.Value = Format(ActiveSheet.Cells(ActiveCell.Row, 78), "dd/mm/yyyy")
End If
'INITIALISATION DE L HEURE - HEURE DU JOUR SI CELLULE VIDE
F02_PMB.heure1 = ActiveCell.Offset(0, 2) ' RECUPERATION DE L INFORMATION DANS LA CELLULE : ELLE MEME
End Sub