Formule Vba
Bonjour, a tous,
J'ai un tableau ou je mets des résultat et je voudrais avec un bouton pouvoir
les recopier sur une autre feuilles .
petit fichier
merci a vous
bien à vous
Classeur1.xlsm
Le lien a été crée : https://www.cjoint.com/c/HFfoVFuAdBS
J'ai un tableau ou je mets des résultat et je voudrais avec un bouton pouvoir
les recopier sur une autre feuilles .
petit fichier
merci a vous
bien à vous
Classeur1.xlsm
Le lien a été crée : https://www.cjoint.com/c/HFfoVFuAdBS
4 réponses
-
Tu modifies comme ça
Set plage = .Range(co & lideb & ":" & co & lifin) plage.Copy Sheets(FB).Range(adrobj).Offset(1, 0).PasteSpecial Paste:=xlValues
Tu avais aussi la solution de Michel (salut en passant) plus "légère" qui ne copiait que les valeurs.
Cdlmnt -
Bonjour,
Essaie :
Sub Copie()
Dim Col As Variant, Plage As Range
With Sheets("Debut")
Col = Application.Match(.[B10], [Resulta!1:1], 0)
If IsNumeric(Col) Then
Set Plage = .Range("B11", .Cells(.Rows.Count, 2).End(xlUp))
Plage.Copy Sheets("Resulta").Cells(2, Col)
End If
End With
End Sub
Cordialement.
Daniel -
Bonjour
https://www.cjoint.com/c/HFfpqj24oSB
Cdlmnt -
ContributeurBonjour
déclenchement par clic droit de la souris en B10
Option Explicit
'---------------------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Piste As Byte
If Target.Address = "$B$10" Then
Piste = Range("B10").Value
With Sheets("resulta")
.Cells(2, Piste + 1).Resize(4, 1) = Sheets("Debut").Range("B11:B14").Value
.Activate
End With
End If
End Sub
macro à copier dans le module feuille "debut"
