P
Pierre
Guest
Bonjour à tous, bonjour le Forum
J'ai dans ma feuille(1) la liste des centres de coût et dans la feuille(2) la liste des matériels.
Dans le sript suivant je n'arrive pas à changer de feuille pour alimenter la procédure 'Centre de coup' puis la procédure 'Type de matériel'
Private Sub UserForm_Initialize()
' Centrede coût
Dim c As Range
Dim x As Byte ', j As Byte
Dim a As Integer
Sheets('CC').Select
ListBox1.Clear
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = '150;20;0'
x = 0
For Each c In Range('r1:r' & Range('a65536').End(xlUp).Row)
If c = '' Then
a = c.Row
ListBox1.AddItem Cells(a, 1)
ListBox1.List(x, 0) = Cells(a, 1).Text
ListBox1.List(x, 1) = Cells(a, 2).Text
x = x + 1
End If
Next c
'----------------------------------
' Type de matériel
Dim d As Range
Dim y As Byte ', j As Byte
Dim e As Integer
List2.Clear
'With Sheets('Types_Moyens')
With Sheets(5)
'Application.Goto Sheets('Types_Moyens')
List2.ColumnCount = 2
List2.ColumnWidths = '150;20'
For Each d In Sheets('Types_Moyens').Range('r1:r' & Range('a65536').End(xlUp).Row)
If d = '' Then
e = d.Row
List2.AddItem Cells(a, 1)
List2.List(y, 0) = Cells(e, 1).Text
List2.List(y, 1) = Cells(e, 2).Text
y = y + 1
End If
Next d
End With
End Sub
D'avance merci pour vos réponses.
Bonne journée à tous
Pierre
J'ai dans ma feuille(1) la liste des centres de coût et dans la feuille(2) la liste des matériels.
Dans le sript suivant je n'arrive pas à changer de feuille pour alimenter la procédure 'Centre de coup' puis la procédure 'Type de matériel'
Private Sub UserForm_Initialize()
' Centrede coût
Dim c As Range
Dim x As Byte ', j As Byte
Dim a As Integer
Sheets('CC').Select
ListBox1.Clear
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = '150;20;0'
x = 0
For Each c In Range('r1:r' & Range('a65536').End(xlUp).Row)
If c = '' Then
a = c.Row
ListBox1.AddItem Cells(a, 1)
ListBox1.List(x, 0) = Cells(a, 1).Text
ListBox1.List(x, 1) = Cells(a, 2).Text
x = x + 1
End If
Next c
'----------------------------------
' Type de matériel
Dim d As Range
Dim y As Byte ', j As Byte
Dim e As Integer
List2.Clear
'With Sheets('Types_Moyens')
With Sheets(5)
'Application.Goto Sheets('Types_Moyens')
List2.ColumnCount = 2
List2.ColumnWidths = '150;20'
For Each d In Sheets('Types_Moyens').Range('r1:r' & Range('a65536').End(xlUp).Row)
If d = '' Then
e = d.Row
List2.AddItem Cells(a, 1)
List2.List(y, 0) = Cells(e, 1).Text
List2.List(y, 1) = Cells(e, 2).Text
y = y + 1
End If
Next d
End With
End Sub
D'avance merci pour vos réponses.
Bonne journée à tous
Pierre