Bonjour à toutes et à tous en cet après-midi bien grisâtre...
Après des recherches infructueuses sur le forum et dans les tutos, je viens chercher un petit coup de main.
Sur ma feuille d'accueil, un bouton lance la premiere macro qui importe un fichier dans une feuille type "Table_nomfichier" dans le nom varie selon le fichier.
Le 2e bouton permet de lancer un UserForm. Sur ma feuille "Table_nomfichier", un tableau liste les infos par voiture et chaque voiture est numérotée.
En gros, il y a plusieurs colonnes, dont une nommée "voiture" et dans laquelle il y a 1, 2, 3...
Le userform doit permettre de créer une feuille par voiture et d'y coller les infos(de la feuille "Table_" qui lui correspondent.
Le problème : Lorsque je clique sur le bouton qui lance le userform, un boîtier de contrôle s'ouvre avec un bouton "valider" et un bouton "annuler.
Quand je clique sur "Valider", rien ne se passe !
Voici le code mon UserForm (pas encore terminé) :
Je ne sais pas où ça coince mais je me dis que mon Sheets("Table_*") est une des raisons du disfonctionnement de mon code.
Mais comme le nom de ma feuille "Table_gnagna" varie en fonction du nom du fichier importé, j'ai tenté avec une *.
Merci d'avance pour votre aide précieuse !
Après des recherches infructueuses sur le forum et dans les tutos, je viens chercher un petit coup de main.
Sur ma feuille d'accueil, un bouton lance la premiere macro qui importe un fichier dans une feuille type "Table_nomfichier" dans le nom varie selon le fichier.
Le 2e bouton permet de lancer un UserForm. Sur ma feuille "Table_nomfichier", un tableau liste les infos par voiture et chaque voiture est numérotée.
En gros, il y a plusieurs colonnes, dont une nommée "voiture" et dans laquelle il y a 1, 2, 3...
Le userform doit permettre de créer une feuille par voiture et d'y coller les infos(de la feuille "Table_" qui lui correspondent.
Le problème : Lorsque je clique sur le bouton qui lance le userform, un boîtier de contrôle s'ouvre avec un bouton "valider" et un bouton "annuler.
Quand je clique sur "Valider", rien ne se passe !
Voici le code mon UserForm (pas encore terminé) :
Code:
Option Explicit
Private Sub annuler_Click()
Unload Me
End
End Sub
***************************
' Bouton Valider : crée de nouvelles feuilles portant le numéro de la voiture dont elles affichent les données
Private Sub valider_Click()
Dim feuille As Worksheet
Dim nomfeuille As String
Dim namefeuille As String
Dim j As Integer
For j = 1 To (ComboBox1.ListCount)
Set feuille = ActiveWorkbook.Sheets.Add(after:=Sheets(Sheets.Count))
With feuille
.Name = j
.Columns("A:A").ColumnWidth = 11
.Columns("B:B").ColumnWidth = 11
.Columns("C:C").ColumnWidth = 47
.Columns("D:D").ColumnWidth = 40
.Columns("E:E").ColumnWidth = 22
.Columns("F:F").ColumnWidth = 22
.Columns("G:G").ColumnWidth = 22
.Cells(1, 1) = "tata"
.Cells(1, 2) = "tete"
.Cells(1, 3) = "titi"
.Rows(1).Style = "60*% - Accent2"
End With
Call Table_to_sheets(j)
Next j
End Sub
***************************
Private Sub Calcul_Initialize()
' remplissage de la combobox avec les numéros de voiture
Dim ComboBox1 As ComboBox
Dim j As Integer
With ComboBox1
.Clear
For j = 2 To Sheets("Table_*").Range("B65536").End(xlUp).Row
If .ListCount > 0 Then .Value = Range("B" & j) 'combobox alimentée par les données de la colonne B
.Value = Sheets("Table_*").Range("B" & j)
If .ListIndex = -1 Then ComboBox1.AddItem Range("B" & j) 'pour supprimer les doublons
Next j
End With
End Sub
***************************
Function Table_to_sheets(ByVal j As Integer) As String
Dim ligne As Long
Dim colonne As String
Dim nombreligne As Long
Dim numeroligne As Long
Dim nomfeuille As String
colonne = "B"
numeroligne = 1
With Sheets("Table_*")
nombreligne = .Cells(65536, colonne).End(xlUp).Row
For ligne = 2 To nombreligne
If .Cells(ligne, colonne).valu = j Then
.Cells(ligne, colonne).EntireRow.Copy
numeroligne = numeroligne + 1
Cells(numeroligne, 1).Select
ActiveSheet.Paste
End If
Next ligne
End With
End Function
Je ne sais pas où ça coince mais je me dis que mon Sheets("Table_*") est une des raisons du disfonctionnement de mon code.
Mais comme le nom de ma feuille "Table_gnagna" varie en fonction du nom du fichier importé, j'ai tenté avec une *.
Merci d'avance pour votre aide précieuse !