B
Bouba
Guest
Bensoir à tous
je n'ai tjrs pas trouvé de solution à mon probleme je n'ai pas arreter de lire rien a faire je ne comprend tjrs pas breff
j'ai trouvé se code sur le net mais je n'arrive pas à trouvé le bout qlqun peux m'aider à me donner le fil pour poursuivre mon travail
Merci
le code est le suivant et vous avez la demo joint
Dim Tab1() As String
Dim Tab2() As String
Dim Tab3(1 To 100) As String
Dim Tabb1() As String
Dim L As Integer
Dim journal As Range
Private Sub UserForm_Initialize()
Dim PlageA As Range
Dim PlageB As Range
Dim PlageC As Range
Dim PlageD As Range
Dim PlageE As Range
Dim PlageF As Range
Dim PlageG As Range
Dim Cell As Range
Dim i As Integer
Set WK = ThisWorkbook
With WK
Set WSStock = Sheets("Journal")
End With
If WSStock.AutoFilterMode Then WSStaff.AutoFilterMode = False
Set PlageA = WSStock.Range("A2:" _
& WSStock.Range("A65536").End(xlUp).Address)
ReDim Tab1(1 To PlageA.Count + 1, 1 To 2)
i = 0
For Each Cell In PlageA
i = i + 1
With Cell
Tab1(i, 1) = .Text
Tab1(i, 2) = .Offset(0, 1).Text
End With
Next
je n'ai tjrs pas trouvé de solution à mon probleme je n'ai pas arreter de lire rien a faire je ne comprend tjrs pas breff
j'ai trouvé se code sur le net mais je n'arrive pas à trouvé le bout qlqun peux m'aider à me donner le fil pour poursuivre mon travail
Merci
le code est le suivant et vous avez la demo joint
Dim Tab1() As String
Dim Tab2() As String
Dim Tab3(1 To 100) As String
Dim Tabb1() As String
Dim L As Integer
Dim journal As Range
Private Sub UserForm_Initialize()
Dim PlageA As Range
Dim PlageB As Range
Dim PlageC As Range
Dim PlageD As Range
Dim PlageE As Range
Dim PlageF As Range
Dim PlageG As Range
Dim Cell As Range
Dim i As Integer
Set WK = ThisWorkbook
With WK
Set WSStock = Sheets("Journal")
End With
If WSStock.AutoFilterMode Then WSStaff.AutoFilterMode = False
Set PlageA = WSStock.Range("A2:" _
& WSStock.Range("A65536").End(xlUp).Address)
ReDim Tab1(1 To PlageA.Count + 1, 1 To 2)
i = 0
For Each Cell In PlageA
i = i + 1
With Cell
Tab1(i, 1) = .Text
Tab1(i, 2) = .Offset(0, 1).Text
End With
Next