Bonjour à tous et toutes,

Je vous sollicite concernant du code sur lequel je sèche sévèrement.

Je vous ai joint le code de la macro en question.

J'ai un tableau excel d'Analyse de chantiers et tout plein de chantier les uns en dessous des autres. Au bout de chaque ligne de chaque chantier j'ai un bouton active X qui ouvre une autre feuille excel.

Après pas mal de recherche je n'ai pas trouvé le code me permettant de copier la ligne des données sur laquelle se situe le bouton active X.

En lieu et place de .Range("J18:W18).Copy je voudrais que les lignes J18 à W18 se renseignent en fonction de l'endroit où se situe mon bouton active x.

Le but par la suite étant de copier/coller le bouton qui sera affecté à ma macro.

Pourriez-vous m'aiguiller s'il vous plaît?

'Copie des données des cellules J18 à W18 de la feuille Analyse_Chantiers
Workbooks("Analyse_Chantiers.xls").Sheets("Analyse_Chantiers").Range("J18:W18").Copy

Voici le code complet si ça peut vous aider.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
    Range("I17:I20000").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("B17").Select
'Ouverture du fichier de destination
Workbooks.Open ThisWorkbook.Path & "\Core\Details_Chantiers.xls"
'Collage, dans le fichier de destination, sur la première ligne
Sheets("Details_Chantiers").Range("A1:Z1").Clear
'Copie des données des cellules J18 à W18 de la feuille Analyse_Chantiers
Workbooks("Analyse_Chantiers.xls").Sheets("Analyse_Chantiers").Range("J18:W18").Copy
Workbooks("Details_Chantiers.xls").Sheets("Details_Chantiers").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Merci d'avance