A Antho35 XLDnaute Occasionnel 14 Juin 2010 #1 Bonour, J'ai d'abord consulté le post suivant, mais je n'arrive pas à le mettre en application pour mon fichier ça ne marche pas le texte ce met en rouge quand je donne le non de mon fichier. Sub options() Dim Model As String Dim cells1, cells2 As String Dim cells1, cells2 As Range Dim i For Each cells1 In Worksheets('Lot 1 (624313-624314)').Range('A1:A'& Worksheets('Lot 1 (624313-624314)').Range('A65536').End(xlUp).Row) Model = cells1.valuee i = 2 For Each cells2 In Worksheets('Lot 1 (624313-624314)').Range('A1:A'& Worksheets('Lot 1 (624313-624314)').Range('A655364).End(xlUp).Ro w) If cells2.Value = Model Then cells1.Offset(0, i) = cells2.Offset(0, 1).Value i = i + 1 End If Next Next End Sub J'ai un tableau avec des recherche V, mais il peut y avoir plusieur montant pour le même mois et le même service pour le même type du transport. Vu le nombre de données n'est il pas possible de la reproduire pour tous, car il y a plusieurs type, et 12 mois. Si non y a il une autyre solution.
Bonour, J'ai d'abord consulté le post suivant, mais je n'arrive pas à le mettre en application pour mon fichier ça ne marche pas le texte ce met en rouge quand je donne le non de mon fichier. Sub options() Dim Model As String Dim cells1, cells2 As String Dim cells1, cells2 As Range Dim i For Each cells1 In Worksheets('Lot 1 (624313-624314)').Range('A1:A'& Worksheets('Lot 1 (624313-624314)').Range('A65536').End(xlUp).Row) Model = cells1.valuee i = 2 For Each cells2 In Worksheets('Lot 1 (624313-624314)').Range('A1:A'& Worksheets('Lot 1 (624313-624314)').Range('A655364).End(xlUp).Ro w) If cells2.Value = Model Then cells1.Offset(0, i) = cells2.Offset(0, 1).Value i = i + 1 End If Next Next End Sub J'ai un tableau avec des recherche V, mais il peut y avoir plusieur montant pour le même mois et le même service pour le même type du transport. Vu le nombre de données n'est il pas possible de la reproduire pour tous, car il y a plusieurs type, et 12 mois. Si non y a il une autyre solution.