Rapport de message :*
 

Re: convertir Cotes

Titre du sujet : Re: convertir Cotes
par Samuel59 le 11/03/2012 16:13:21

Citation :
Mytå a écrit : 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å

Bonjour Myta ,
Oui biensur j'utilise ta version
et  la modif fonctionne impecable et moin compliqué qu'avec des formules !!
par contre Myta est ce possible de faire ça en partant biensur de tes modules

sub Essai

call private sub commandbutton2_click ()

End sub

Merci Beaucoup Myta
Samuel