Accueil > Forum > > > > précision macro
 précision macro
lundi 13 février 2006 à 14:03:06 |
précision macro
Lyly601
|
Bonjour, J'ai une macro (ci dessous), qui me demande de sélectionner une cellule dans un classeur "presse", qui la copie et la colle dans un autre classeur excel "devis technique". Sub Selectionpresse()
Dim plg As Range
On Error Resume Next
Set plg = Application.InputBox _
("Sélectionner la presse", , , , , , , 8)
If Not plg Is Nothing Then
Application.CutCopyMode = True
plg.Copy
Windows("Devis technique.xls").Activate
Range("B76").Select
ActiveCell.PasteSpecial xlPasteAll
Else
MsgBox "Vous n'avez rien sélectionné"
End If
End Sub
le tableau presse se présente comme suit :
tonnage presse pays taux horaire
25t. France 23€
25t. Slovaquie 37€
30t. France 40€
.....
....
L'utilisateur va sélectionner le tonnage presse qu'il choisit, je voudrais qu'en plus de ramener le tonnage presse dans l'autre classeur, la macro ramène également le pays associé à la presse et son taux horaire.
Merci d'avance
Lyly |
|
lundi 13 février 2006 à 23:38:03 |
Re : précision macro
wape
|
Bonjour,
Essaye qqch du genre (en admettant que les valeurs à copier se situent dans 3 colonnes adjacentes) :
Sub Selectionpresse()
Dim plg As Range
On Error Resume Next
Set plg = Application.InputBox _
("Sélectionner la presse", , , , , , , 8)
If Not plg Is Nothing Then
Application.CutCopyMode = True
plg.Resize(1, 3).Copy
Windows("Devis technique.xls").Activate
Range("B76").Select
ActiveCell.PasteSpecial xlPasteAll
Else
MsgBox "Vous n'avez rien sélectionné"
End If
End Sub
wape
|
|
mardi 14 février 2006 à 08:28:37 |
Re : précision macro
Lyly601
|
Oui ca marche, merci.
Encore une petite précision, si je veux ramener que le taux horaire sans le pays, et que je veux qu'il s'insrive en dessous c'est à dire en B77, comment je peux faire?
Lyly
|
|
mardi 14 février 2006 à 10:17:35 |
Re : précision macro
wape
|
Bonjour,
Voici une possibilité :
Sub Selectionpresse()
Dim plg As Range
On Error Resume Next
Set plg = Application.InputBox _
("Sélectionner la presse", , , , , , , 8)
If Not plg Is Nothing Then
Application.CutCopyMode = True
Union(plg, plg.Offset(0, 2)).Copy
Windows("Devis technique.xls").Activate
Range("B76").Select
ActiveCell.PasteSpecial xlPasteAll, , , True
Else
MsgBox "Vous n'avez rien sélectionné"
End If
End Sub
wape
|
|
Cette discussion est classée dans : macro, presse, sélectionner, classeur, plg
 Répondre à ce message
 Sujets en rapport avec ce message
Comment sélectionner une macro et la lancer? [ par Chnocleu ]
Bonjour,J'ai crée une (longue) série de macros sous Excel, et je ne sais pas comment faire pour que le module sous VBA lance seulement la macro dont l
Macro fonctionnant sur un Poste mais sur d'autres [ par Fred ]
J'ai créé un classeur avec plusieurs macros et UserForms qui fonctionne très bien sur mon poste de travail.Lorsque je veux l'ouvrir depuis un autre po
HELP Macros complémentaires Excel [ par DeathAngel ]
Bonjour à tous, Bientôt le Week End, mais j'ai un soucis sous excel.Je charge une macro complémentaire (*.xla) au démarrage d'Excel (XP). Dans cette m
Supprimer un bouton personnalisé [ par jul ]
Bonjour,Je crée un macro qui fait une copie du classeur sur lequel je travaille, qui y fait des transformations et qui l'envoie par Outlook. Le problè
Ouverture de fenetre avec macro sous excel avec workbooks.Open [ par yoda ]
Bonjour à tous,J'ai un problème sous excel quand dans une macro j'ouvre un autre classeur excel contenant une macro qui s'execute dès l'ouverture du c
Valider le "NON" du presse papier par Macro [ par daffy21 ]
A l'aide d'une macro VBA sur Excel, d'un fichier A.xls je copie des informations dans le presse papier pour les copiers dans un fichier B.xls.Mais qua
vb ET eXCEL [ par guillade ]
Salut à tous,je voudrais sélectionner tous les onglets d'un classeur EXCEL au moyen de VB.J' arrive à ouvrir le classeur, lire le nom de toutes les fe
Protection Classeur Excel [ par LeNazgul ]
Voila, jai lu pas mal de code pour proteger des feuilles a patati patata, moi je voudrai proteger caremen le classeur et l'acces a la macro pour pas p
Macro Excel pour envoyer un mail [ par deuxdeuch ]
Bonjour,Je voudrais faire une macro Excel en VB qui me premettrait d'envoyer un mail avec comme piece jointe le classeur excel, l'adresse et le sujet
Outlook macro pour copie coller [ par onlyforme ]
Bonjour, un peu d'aide pour une profane. Je suis à la recherche d'un code en VB pour une macro permettant dans outlook 2003 de mettre dans le presse-p
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|