précision macro

Question

Bonjour,

J'ai une macro (ci dessous), qui me demande de s&#233;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&#233;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&#233;lectionn&#233;"
    End If
  
End Sub

 le tableau presse se pr&#233;sente comme suit :

tonnage presse             pays               taux horaire
25t.                               France               23?
25t.                                 Slovaquie            37?
30t.                                 France               40?
.....
....
L'utilisateur va s&#233;lectionner le tonnage presse qu'il choisit, je voudrais qu'en plus de ramener le tonnage presse dans l'autre classeur, la macro ram&#232;ne &#233;galement le pays associ&#233; &#224; la presse et son taux horaire.

Merci d'avance
Lyly

cs_wape · Answer

Bonjour,

Essaye qqch du genre (en admettant que les valeurs &#224; copier se situent dans 3 colonnes adjacentes) :

 Sub Selectionpresse()
    
Dim plg As Range
On Error Resume Next
Set plg = Application.InputBox _
("S&#233;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&#233;lectionn&#233;"
    End If
  
End Sub

wape

Lyly601 · Answer

Oui ca marche, merci.

Encore une petite pr&#233;cision, si je veux ramener que le taux horaire
sans le pays, et que je veux qu'il s'insrive en dessous c'est &#224; dire en
B77, comment je peux faire?



Lyly

cs_wape · Answer

Bonjour,

Voici une possibilit&#233; :

 Sub Selectionpresse()
    
Dim plg As Range
On Error Resume Next
Set plg = Application.InputBox _
("S&#233;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&#233;lectionn&#233;"
    End If
  
End Sub

wape

Précision macro

3 réponses

Discussions similaires