Dim Numligne As Integer
Me.TextBox_fournisseur.Value = onglet.Cells(Numligne, 2)
Bonjour
je présume que c'est l'userform Modif que tu ne peux afficher?
Quelle valeur a Numligne?VB:Dim Numligne As Integer Me.TextBox_fournisseur.Value = onglet.Cells(Numligne, 2)
A+ François
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns(3)) Is Nothing And Range("A" & Target.Row).Value <> Empty Then
Modif.showx (Target.Row)
End If
End Sub
Public numligne As Long
Public Function showx(x As Long)
numligne = x
Me.Show 0
End Function
Private Sub CommandButton2_Click()
Unload Modif
End Sub
Private Sub UserForm_Activate()
Set onglet = Worksheets("Feuil1")
TextBox_fournisseur.Value = onglet.Cells(numligne, 2)
TextBox_nbon.Value = onglet.Cells(numligne, 3)
TextBox_ndevis.Value = onglet.Cells(numligne, 5)
TextBox_date.Value = Format(onglet.Cells(numligne, 4), "DD/MM/YYYY")'!!!! ALLO!!!!!
ComboBox1.Value = onglet.Cells(numligne, 6)
TextBox_montant.Value = onglet.Cells(numligne, 8)
TextBox_bonl1.Value = onglet.Cells(numligne, 9)
TextBox_bonl2.Value = onglet.Cells(numligne, 10)
TextBox_bonl3.Value = onglet.Cells(numligne, 11)
TextBox_com.Value = onglet.Cells(numligne, 12)
End Sub
Bonjour,
Plusieurs choses
1 - Dim Modif As UserForm est inutile
2 - Déclarer NumLigne en Public dans Module1
3 - onglet.Format(Cells.....) : format n'est pas membre de 'Onglet' c'est Format(onglet.Cells(.....
Cordialement
Merci beaucoup et le tuto est une excellente idée!Re,
Il faut déclarer la variable onglet en tête de module du userform ainsi cette variable (privée au module) sera valide de n'importe quel endroit de votre module de userform
Private onglet As Worksheet
Private Sub UserForm_Initialize()
Set onglet = Worksheets("Feuil1")
TextBox_fournisseur.Value = onglet.Cells(Numligne, 2)
TextBox_nbon.Value = onglet.Cells(Numligne, 3)
TextBox_ndevis.Value = onglet.Cells(Numligne, 5)
TextBox_date.Value = Format(onglet.Cells(Numligne, 4), Date)
ComboBox1.Value = onglet.Cells(Numligne, 6)
TextBox_montant.Value = onglet.Cells(Numligne, 8)
TextBox_bonl1.Value = onglet.Cells(Numligne, 9)
TextBox_bonl2.Value = onglet.Cells(Numligne, 10)
TextBox_bonl3.Value = onglet.Cells(Numligne, 11)
TextBox_com.Value = onglet.Cells(Numligne, 12)
End Sub
A votre place, j'irai suivre un tutoriel sur les variables et leur portée.
Cordialement