Sujet Précédent Sujet Suivant

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 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 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

Réponse 1 / 4
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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
Réponse 2 / 4
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
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
Réponse 3 / 4
danielc0 Messages postés 830 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 17 avril 2024 74
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
Réponse 4 / 4
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
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

Discussions similaires

exo pix
Xtyller -
Raymond PENTIER -

2 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
je veut créer des codes
jonkiller -
Nhhi -

20 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses