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.
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.