Rapport de message :*
 

Re: convertir Cotes

Titre du sujet : Re: convertir Cotes
par Mytå le 11/03/2012 15:57:38

Salut le Forum

Samuel, si tu utilises une de mes versions pour récupérer les "Cotes".

Dans la macro «Sub CopierCotes()» du Module Transfert

Modifie la partie suivante :
            If Not Cel Is Nothing Then
              Cel.Offset(, 16) = Split(Sheets("ReqCotes").Cells(Cell.Row, Col), "/")(0)
              Cel.Offset(, 17) = Split(Sheets("ReqCotes").Cells(Cell.Row, Col + 1), "/")(0)
              Cel.Offset(, 18) = Split(Sheets("ReqCotes").Cells(Cell.Row, Col + 2), "/")(0)
            End If
Mytå