Je voudrais créer une macro pour copier les colonne A,C,G de la feuille1 du
classeur nommé "PControl" vers la feuillle2 d'un nouveau classeur nommée
"COMMANDE" à l'aide d'un bouton nommé "MISE A JOUR" qui se trouverzai sur la
feuille1 du nouveau classeur "COMMANDE"
je n'en sais fichtre rien, joaquim, mais qu'est devenu le bouton dans tout ça? jps
"DOS SANTOS JOAQUIM" a écrit dans le message de news:
Salut jps,
En passant quelques nuit blanche sur la macro j'ai réussi à pondre un truc mais le probléme est que la macro rame.
J'ai des résultat entre 30 et 50 seconde suivant le fichier de mise à jour.
Comment simplifier la macro ou l'accelerer?
la macro/
Sub gestion() ' ' gestion Macro ' Macro enregistrée le 21/07/2005 par DOS SANTOS Joaquim ' ' Touche de raccourci du clavier: Ctrl+m ' Application.Goto Reference:="gestion"
'Déclaration des variables globales Dim app2Excel As Excel.Application 'Application Excel Dim Pcontrol As Excel.Workbook 'Classeur Excel Dim PcontrolSheet As Excel.Worksheet 'Feuille Excel Dim Plagecodecommand As Range Dim PlagecodePcontrol As Range Dim PlageventePcontrol As Range Dim Plageventecommand As Range
'Ouverture de l'application Set app2Excel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set Pcontrol = app2Excel.Workbooks.Open("C:Documents and SettingsZimour.TOSMONOTEBureaumargePControl.xls") 'PcontrolShhet correspond à la première feuille du fichier Pcontrol.xls Set PcontrolSheet = Pcontrol.Worksheets(1) Set Sheet = ActiveWorkbook.ActiveSheet
'Plagecode définit les plages contentant les codes des marchandises dans les
2 feuilles de calcul Set Plagecodecommand = ActiveSheet.Range("C11:C443") Set Plageventecommand = ActiveSheet.Range("I11:I443") Set PlagecodePcontrol = PcontrolSheet.Range("A10:A327") Set PlageventePcontrol = PcontrolSheet.Range("G10:G327")
'Déclaration des variables locales
Dim ii As Integer Dim jj As Integer Dim Vente As Single Dim codePcourant As Integer Dim codeCcourant As Integer Dim indicecodePcontrol As Integer Dim longueur As Integer
For ii = 1 To 432 codeCcourant = Plagecodecommand(ii) For jj = 1 To 317 codePcourant = PlagecodePcontrol(jj) If codeCcourant = codePcourant Then Plageventecommand(ii) > > PlageventePcontrol(jj)
Next jj Next ii Pcontrol.Close End Sub
Salutation
qu'est-ce qu'elle a donc cette macro, joaquim? eu nao fallo portugues mais tu peux toujours la mettre sur le forum si tu as
des problèmes ; nous avions parlé de l'enregistreur de macros : ça n'a pas
marché? jps
"DOS SANTOS JOAQUIM" a écrit
dans le message de news:
Salut jps,
Merci infiniment pour ton aide
Pour le mouton tout est ok mais pour la macro la c'est autre chose...
Encore merci à toi
Salut,
As tu une idée sur qui pourrait me renseigner ?
A+
je n'en sais fichtre rien, joaquim, mais qu'est devenu le bouton dans tout
ça?
jps
"DOS SANTOS JOAQUIM" <DOSSANTOSJOAQUIM@discussions.microsoft.com> a écrit
dans le message de
news:3E527473-5258-4FA7-813A-8E9D16A2180A@microsoft.com...
Salut jps,
En passant quelques nuit blanche sur la macro j'ai réussi à pondre un truc
mais le probléme est que la macro rame.
J'ai des résultat entre 30 et 50 seconde suivant le fichier de mise à
jour.
Comment simplifier la macro ou l'accelerer?
la macro/
Sub gestion()
'
' gestion Macro
' Macro enregistrée le 21/07/2005 par DOS SANTOS Joaquim
'
' Touche de raccourci du clavier: Ctrl+m
'
Application.Goto Reference:="gestion"
'Déclaration des variables globales
Dim app2Excel As Excel.Application 'Application Excel
Dim Pcontrol As Excel.Workbook 'Classeur Excel
Dim PcontrolSheet As Excel.Worksheet 'Feuille Excel
Dim Plagecodecommand As Range
Dim PlagecodePcontrol As Range
Dim PlageventePcontrol As Range
Dim Plageventecommand As Range
'Ouverture de l'application
Set app2Excel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set Pcontrol = app2Excel.Workbooks.Open("C:Documents and
SettingsZimour.TOSMONOTEBureaumargePControl.xls")
'PcontrolShhet correspond à la première feuille du fichier Pcontrol.xls
Set PcontrolSheet = Pcontrol.Worksheets(1)
Set Sheet = ActiveWorkbook.ActiveSheet
'Plagecode définit les plages contentant les codes des marchandises dans
les
2 feuilles de calcul
Set Plagecodecommand = ActiveSheet.Range("C11:C443")
Set Plageventecommand = ActiveSheet.Range("I11:I443")
Set PlagecodePcontrol = PcontrolSheet.Range("A10:A327")
Set PlageventePcontrol = PcontrolSheet.Range("G10:G327")
'Déclaration des variables locales
Dim ii As Integer
Dim jj As Integer
Dim Vente As Single
Dim codePcourant As Integer
Dim codeCcourant As Integer
Dim indicecodePcontrol As Integer
Dim longueur As Integer
For ii = 1 To 432
codeCcourant = Plagecodecommand(ii)
For jj = 1 To 317
codePcourant = PlagecodePcontrol(jj)
If codeCcourant = codePcourant Then Plageventecommand(ii) > > PlageventePcontrol(jj)
Next jj
Next ii
Pcontrol.Close
End Sub
Salutation
qu'est-ce qu'elle a donc cette macro, joaquim?
eu nao fallo portugues mais tu peux toujours la mettre sur le forum si
tu as
des problèmes ; nous avions parlé de l'enregistreur de macros : ça n'a
pas
marché?
jps
"DOS SANTOS JOAQUIM" <DOSSANTOSJOAQUIM@discussions.microsoft.com> a
écrit
dans le message de news:
CB599553-8479-4F08-B5E0-500A3A3A3EDC@microsoft.com...
Salut jps,
Merci infiniment pour ton aide
Pour le mouton tout est ok mais pour la macro la c'est autre chose...
je n'en sais fichtre rien, joaquim, mais qu'est devenu le bouton dans tout ça? jps
"DOS SANTOS JOAQUIM" a écrit dans le message de news:
Salut jps,
En passant quelques nuit blanche sur la macro j'ai réussi à pondre un truc mais le probléme est que la macro rame.
J'ai des résultat entre 30 et 50 seconde suivant le fichier de mise à jour.
Comment simplifier la macro ou l'accelerer?
la macro/
Sub gestion() ' ' gestion Macro ' Macro enregistrée le 21/07/2005 par DOS SANTOS Joaquim ' ' Touche de raccourci du clavier: Ctrl+m ' Application.Goto Reference:="gestion"
'Déclaration des variables globales Dim app2Excel As Excel.Application 'Application Excel Dim Pcontrol As Excel.Workbook 'Classeur Excel Dim PcontrolSheet As Excel.Worksheet 'Feuille Excel Dim Plagecodecommand As Range Dim PlagecodePcontrol As Range Dim PlageventePcontrol As Range Dim Plageventecommand As Range
'Ouverture de l'application Set app2Excel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set Pcontrol = app2Excel.Workbooks.Open("C:Documents and SettingsZimour.TOSMONOTEBureaumargePControl.xls") 'PcontrolShhet correspond à la première feuille du fichier Pcontrol.xls Set PcontrolSheet = Pcontrol.Worksheets(1) Set Sheet = ActiveWorkbook.ActiveSheet
'Plagecode définit les plages contentant les codes des marchandises dans les
2 feuilles de calcul Set Plagecodecommand = ActiveSheet.Range("C11:C443") Set Plageventecommand = ActiveSheet.Range("I11:I443") Set PlagecodePcontrol = PcontrolSheet.Range("A10:A327") Set PlageventePcontrol = PcontrolSheet.Range("G10:G327")
'Déclaration des variables locales
Dim ii As Integer Dim jj As Integer Dim Vente As Single Dim codePcourant As Integer Dim codeCcourant As Integer Dim indicecodePcontrol As Integer Dim longueur As Integer
For ii = 1 To 432 codeCcourant = Plagecodecommand(ii) For jj = 1 To 317 codePcourant = PlagecodePcontrol(jj) If codeCcourant = codePcourant Then Plageventecommand(ii) > > PlageventePcontrol(jj)
Next jj Next ii Pcontrol.Close End Sub
Salutation
qu'est-ce qu'elle a donc cette macro, joaquim? eu nao fallo portugues mais tu peux toujours la mettre sur le forum si tu as
des problèmes ; nous avions parlé de l'enregistreur de macros : ça n'a pas
marché? jps
"DOS SANTOS JOAQUIM" a écrit
dans le message de news:
Salut jps,
Merci infiniment pour ton aide
Pour le mouton tout est ok mais pour la macro la c'est autre chose...
