Formule Vba
guismo33
Messages postés
351
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Formule Vba
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
4 réponses
Bonjour
déclenchement par clic droit de la souris en B10
macro à copier dans le module feuille "debut"
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"
guismo33
Messages postés
351
Date d'inscription
Statut
Membre
Dernière intervention
2
Bonjour, merci cela fonctionne je vous remercie
Bonjour,
Essaie :
Cordialement.
Daniel
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