Formule Vba

Fermé
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - Modifié le 5 juin 2018 à 16:51
ccm81 Messages postés 10861 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 22 mai 2024 - 6 juin 2018 à 10:16
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


4 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
5 juin 2018 à 17:13
Bonjour

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"
0
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
5 juin 2018 à 18:03
Bonjour, merci cela fonctionne je vous remercie
0
ccm81 Messages postés 10861 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 22 mai 2024 2 407
5 juin 2018 à 17:16
Bonjour

https://www.cjoint.com/c/HFfpqj24oSB

Cdlmnt
0
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
5 juin 2018 à 18:12
Bonjour,
je vous remercie pour le travail inpecable

bien à vous
0
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
6 juin 2018 à 10:07
Bonjour,
je viens d'adapter votre formule a mon fichier, petit soucis c'est que j'ai des formule dans les cellules a recopier.
est-il possible de recopier juste le chiffre et pas la formule?

merci a vous
0
danielc0 Messages postés 866 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 mai 2024 76
5 juin 2018 à 17:29
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
0
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
5 juin 2018 à 18:24
Bonjour,
merci , je vais essayer

bien à vous
0
ccm81 Messages postés 10861 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 22 mai 2024 2 407
Modifié le 6 juin 2018 à 10:23
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
0