Copie d'éléments sélectionnés dans feuille récapitulatif

Le 02/01/2021 à 19:20

Bonjour à tous et toutes, meilleurs vœux 2021 :)

Est-il possible de copier les valeurs des cellules sélectionnées (En vert, via un double-clic) pour les zones "Type Client" et "Type Chantier" de la feuille "chantier" ou faut-il mettre des cases à cocher par exemple ?

14tableau-d-analyse-de-chantier.xlsm (41.00 Ko)

pour les coller également dans la feuille récap via la macro (effectuée par 3GM, que je remercie encore) , sachant que la sélection va être différente pour chaque feuille chantier (la structure de la feuille, elle restera toujours la même, on copie la feuille chantier 1 en chantier 2 et on remplace les valeurs)

Merci d'avance pour votre aide :)

Le 03/01/2021 à 02:17

Salut Michel,

sans double-clic, ni arc-en-ciel : deux sélections simples (Client - Type) en utilisant la touche CTRL pour qu'elles soient considérées comme une sélection.
Le code doit être collé tel quel dans le module VBA 'ThisWorkbook'.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'
Dim sMsg$
'
With Worksheets("Récapitulatif")
    If Sh.Name <> "Récapitulatif" Then _
        If Selection.Areas.Count = 2 And Selection.Count = 2 Then _
            sMsg = "Archivage du chantier " & Sh.[G5] & " ?" & Chr(10) & Chr(10): _
            sMsg = sMsg & "Client : " & IIf(Selection.Areas(1).Row = 8, Selection.Areas(1), Selection.Areas(2)) & Chr(10): _
            sMsg = sMsg & "Type   : " & IIf(Selection.Areas(1).Row = 9, Selection.Areas(1), Selection.Areas(2)): _
            If MsgBox(sMsg, vbQuestion + vbYesNo + vbDefaultButton1, "Archivage") = vbYes Then _
                iRow = .Range("A" & Rows.Count).End(xlUp).Row + 1: _
                .Range("A" & iRow).Value = Sh.[G5]: _
                .Range("B" & iRow).Value = Sh.[C6]: _
                .Range("C" & iRow).Value = Sh.[E7]: _
                .Range("D" & iRow).Value = IIf(Selection.Areas(1).Row = 8, Selection.Areas(1), Selection.Areas(2)): _
                .Range("E" & iRow).Value = IIf(Selection.Areas(1).Row = 9, Selection.Areas(1), Selection.Areas(2)): _
                .Range("F" & iRow).Resize(1, 9).Value = WorksheetFunction.Transpose(Sh.Range("G70:G78"))
End With
'
End Sub

Bonne année !

A+

Le 03/01/2021 à 09:22

Salut Curulis57

Question bête certainement, ou je trouve le module 'ThisWorkbook' ?

Je ne connais rien en macros :)

Merci d'avance

Le 03/01/2021 à 09:27

trouvé le module via Alt + F11 mais ça ne fonctionne pas avec le contrôle + clic

merci d'avance

PS : merci également d'avoir pris de ton temps (Curulis57) pour m'aider

Le 03/01/2021 à 19:02