Bonjour à tous,
J'ai fait ce code aujourd'hui qui marche très bien.
Cependant j'aimerai le faire évoluer sur un certain point:
Sur la feuille RedList j'ai 5 colonnes
Code Nom Année Pays Prix
Ma database possèdent une 15aine de colonnes. Ce code importe en fonction de la valeur de B2, les infos de 5 des 15 colonnes (j'ai pas besoin du reste sur cette feuille.)
Cependant, la colonne 4 de Database comporte différentes valeurs.
J'aimerai faire evoluer ce code pour importer les infos comme j'ai déjà dans mon code et à chaque fois que la valeur de la colonne 4 change sauter une ligne et écrire cette nouvelle valeur (comme sous-titre en gros)
Bien sur la Database sera automatiquement triée avant cette opération.
Merci pour votre future aide!
Cordialement
Alex!
Code:
Sub UpdateList()
Dim tg As Integer
Dim i As Integer
tg = 2
For i = 2 To [DB_Count]
tg = tg + 1
If UCase(Sheets("Database").Cells(i, 4)) = UCase(Sheets("RedList").Range("B2")) Then
If Len(Sheets("Database").Cells(tg, 1)) = 8 Then
Sheets("RedList").Cells(tg, 1) = Sheets("Database").Cells(i, 1)
ElseIf Len(Sheets("Database").Cells(tg, 1)) = 6 Then
Sheets("RedList").Cells(tg, 1) = Sheets("Database").Cells(i, 1)
End If
Sheets("RedList").Cells(tg, 2) = Sheets("Database").Cells(i, 5)
Sheets("RedList").Cells(tg, 3) = Sheets("Database").Cells(i, 6)
Sheets("RedList").Cells(tg, 4) = Sheets("Database").Cells(i, 3)
Sheets("RedList").Cells(tg, 5) = Sheets("Database").Cells(i, 11)
End If
Next i
End SubJ'ai fait ce code aujourd'hui qui marche très bien.
Cependant j'aimerai le faire évoluer sur un certain point:
Code:
If UCase(Sheets("Database").Cells(i, 4)) = UCase(Sheets("RedList").Range("B2")) ThenSur la feuille RedList j'ai 5 colonnes
Code Nom Année Pays Prix
Ma database possèdent une 15aine de colonnes. Ce code importe en fonction de la valeur de B2, les infos de 5 des 15 colonnes (j'ai pas besoin du reste sur cette feuille.)
Cependant, la colonne 4 de Database comporte différentes valeurs.
J'aimerai faire evoluer ce code pour importer les infos comme j'ai déjà dans mon code et à chaque fois que la valeur de la colonne 4 change sauter une ligne et écrire cette nouvelle valeur (comme sous-titre en gros)
Bien sur la Database sera automatiquement triée avant cette opération.
Merci pour votre future aide!
Cordialement
Alex!