Macro excel decripté

Résolu/Fermé

regis62460 Messages postés 34 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 3 septembre 2008 - 4 juil. 2008 à 09:30
ribery_7_91 Messages postés 233 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 4 septembre 2010 - 4 juil. 2008 à 09:57

Bonjour,

Est ce que quelqu'un pourrais me decripter une macro svp car je ne comprend rien et je dois reprendre le fichier si oui donner moi votre adresse email je vous enverais le fichier merci a tous

A voir également:

Macro excel decripté
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

5 réponses

Réponse 1 / 5

ribery_7_91 Messages postés 233 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 4 septembre 2010 16
4 juil. 2008 à 09:36

je te laisse mon mail en MP

Réponse 2 / 5

regis62460 Messages postés 34 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 3 septembre 2008
4 juil. 2008 à 09:53

quelqu'un pourrais m'aider car je n'arrive pas a le contacter

Réponse 3 / 5

ribery_7_91 Messages postés 233 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 4 septembre 2010 16
4 juil. 2008 à 09:54

laisses ta macro ici

Réponse 4 / 5

regis62460 Messages postés 34 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 3 septembre 2008
4 juil. 2008 à 09:55

Sub Transfert()
'
' Macro enregistrée le 09/11/01 par Inconnu
'

'---fichier source---
f1 = "TRS-350-650T JUIN05"
feuille = "MOIS"
'nomligne = Workbooks(f1).Worksheets(feuille).Cells(1, 3).Value
dat = Workbooks(f1).Worksheets(feuille).Cells(2, 4).Value
nommachine = Workbooks(f1).Worksheets(feuille).Cells(4, 4).Value

'---fichier destination---
f2 = "Analyse pertes TRS 2005.xls"
noligne = Workbooks(f2).Worksheets("D").Cells(1, 12).Value
anciennoligne = noligne

'---boucle colonnes---
col = 4 'colonnes des pertes TRS

While col < 120 'parcourir 120 colonnes de données

For lig = 42 To 60 'lignes des pertes TRS
If Workbooks(f1).Worksheets(feuille).Cells(lig, col).Value <> 0 Then _
Workbooks(f2).Worksheets("D").Cells(noligne, 1).Value = dat: _
Workbooks(f2).Worksheets("D").Cells(noligne, 2).Value = nomligne: _
Workbooks(f2).Worksheets("D").Cells(noligne, 3).Value = nommachine: _
Workbooks(f2).Worksheets("D").Cells(noligne, 4).Value = _
Workbooks(f1).Worksheets(feuille).Cells(5, col).Value: _
Workbooks(f2).Worksheets("D").Cells(noligne, 5).Value = _
Workbooks(f1).Worksheets(feuille).Cells(lig, 3).Value: _
Workbooks(f2).Worksheets("D").Cells(noligne, 6).Value = _
Workbooks(f1).Worksheets(feuille).Cells(lig, col).Value: _
noligne = noligne + 1
Next lig

boucle:
col = col + 1
If Workbooks(f1).Worksheets(feuille).Cells(7, col).Value = 0 And col < 120 Then GoTo boucle

nouvnommachine = Workbooks(f1).Worksheets(feuille).Cells(4, col).Value
If nouvnommachine <> "" Then nommachine = nouvnommachine
Wend

' Workbooks(f2).Worksheets("D").Cells(2, 4).Value = _
' Workbooks(f1).Worksheets(feuille).Cells(5, 4).Value

Workbooks(f2).Worksheets("D").Cells(1, 12).Value = noligne

Windows(f2).Activate
Sheets("D").Select
Range(Cells(anciennoligne - 1, 7), Cells(anciennoligne - 1, 9)).Select
Selection.Copy
Range(Cells(anciennoligne, 7), Cells(noligne - 1, 9)).Select
ActiveSheet.Paste

End Sub

Voila

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

ribery_7_91 Messages postés 233 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 4 septembre 2010 16
4 juil. 2008 à 09:57

essaye l'execution en pas a pas sa va t'aider

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters