Centraliser des données sur une seule et même feuille

Question

Bonjour et bonne année §

Voici ma problématique en espérant que vous puissiez m'éclairer

tout se passe sur un seul classeur

4 feuilles : 1 par collaborateeur (3) et 1 feuille de mis en commun

Chaque collaborateur renseignera des données sur leurs propres feuilles

et la feuille en commun s'actualisera en regroupant les données de tous les collaborateurs (peut être en double cliquant ou en cochant une case? je ne vois pas de solution pour faire ca en direct)

les en têtes sont donc les mêmes sur chaque feuille

j'avais pensé à ca :

je "coche" case V et donc cela devrait m'enrengistrer ma ligne mais sans succés

Private Sub archivage()

Dim lin As Integer
Dim LHeure As String, LeDate As String
ladate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

For lin = 2 To 1000
If Range("V" & lin) = "X" Then

    Range("W" & lin) = " archivé le " & ladate
    Range("A" & lin & ":W" & lin).Select
    Selection.Copy
    Worksheets("Pièces en développement LCR V2").Select
    Range("B1").Select
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste

End If

Next

3GB · Answer

Voici un essai avec un code à copier dans le module ThisWorkbook : Private Sub workbook_sheetchange(byval sh as object, byval target as range) if sh.name &lt;&gt; "Pièces en développement LCR V2" then '&lt;&lt;&lt; ADAPTER NOM FEUILLE EN COMMUN ??? if not intersect(target, sh.range("V2:V1000")) is nothing then 'se déclenche qd chgt sur V2:V1000 d'une feuille collab &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if target.count = 1 and target.value = "X" then 'si cellule unique et valeur devient "X" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lig = target.row 'ligne à reporter &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ladate = Format(Date, "dd" & "." & "mm" & "." & "yyyy") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Sh.Range("W" & lig) = " archivé le " & ladate &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;with Worksheets("Pièces en développement LCR V2") 'avec feuille commun &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;nvl = .cells(.rows.count, 2).end(xlup).row + 1 'nouvelle ligne &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.range("B" & nvl & ":X" & nvl).value = Sh.Range("A" & lig & ":W" & lig).value 'B:X commun = A:W collab &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end with &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if &nbsp;&nbsp;&nbsp;&nbsp;end if End If Next Il est censé permettre l'archivage à chaque changement sur V, pour chaque feuille collaborateur, lorsqu'on y met un "X". Cependant, les lignes déjà marquées d'un X ne seront pas comptées. Je vous conseille de faire des essais sur une copie du fichier. Cdlt...