XL 2010 Récupérer données d'une colonne vers un autre tableau

• trie le 1er tableau
• en supprime des lignes
• y insère des lignes

chris à dit:

Bonjour
Cela pose un problème : si, volontairement ou non, on

• trie le 1er tableau
• en supprime des lignes
• y insère des lignes

le tableau 2 va avoir des problèmes

A noter qu'on ne fait jamais la moyenne en divisant par le nombre de valeur car si des notes ne sont pas encore remplies, elles comptent pour 0...

Cliquez pour agrandir...

job75 à dit:

Bonjour Appo1985, chris,

La macro dans le code de la feuille "Notes" :

VB:

Private Sub worksheet_Activate()
Dim c As Range, i&
For Each c In [t_BD].Columns(1).Cells
    With [t_Notes]
        If c <> "" And Application.CountIf(.Columns(1), c) = 0 Then
            i = IIf([t_Notes].Cells(1) = "", 1, .Rows.Count + 1)
            .Cells(i, 1) = c
        End If
    End With
Next
End Sub

Elle se déclenche quand on active la feuille.

Puisque vous n'en parlez pas je ne me préoccupe pas du cas où l'on supprime des lignes dans la 1èreri

Cliquez pour agrandir...

job75 à dit:

Bonjour Appo1985, chris,

La macro dans le code de la feuille "Notes" :

VB:

Private Sub worksheet_Activate()
Dim c As Range, i&
For Each c In [t_BD].Columns(1).Cells
    With [t_Notes]
        If c <> "" And Application.CountIf(.Columns(1), c) = 0 Then
            i = IIf([t_Notes].Cells(1) = "", 1, .Rows.Count + 1)
            .Cells(i, 1) = c
        End If
    End With
Next
End Sub

Elle se déclenche quand on active la feuille.

Puisque vous n'en parlez pas je ne me préoccupe pas du cas où l'on supprime des lignes dans la 1ère feuille.

A+

Cliquez pour agrandir...

job75 à dit:

Bonjour Appo1985, chris,

La macro dans le code de la feuille "Notes" :

VB:

Private Sub worksheet_Activate()
Dim c As Range, i&
For Each c In [t_BD].Columns(1).Cells
    With [t_Notes]
        If c <> "" And Application.CountIf(.Columns(1), c) = 0 Then
            i = IIf([t_Notes].Cells(1) = "", 1, .Rows.Count + 1)
            .Cells(i, 1) = c
        End If
    End With
Next
End Sub

Elle se déclenche quand on active la feuille.

Puisque vous n'en parlez pas je ne me préoccupe pas du cas où l'on supprime des lignes dans la 1ère feuille.

A+

Cliquez pour agrandir...

job75 à dit:

Alors voici :

VB:

Private Sub worksheet_Activate()
Dim i&, c As Range, suppr&, ajout&
With [t_Notes]
    If Not .ListObject.DataBodyRange Is Nothing Then
        For i = .Rows.Count To 1 Step -1
            If Application.CountIf([t_BD].Columns(1), .Cells(i, 1)) = 0 Then .Rows(i).Delete xlUp: suppr = suppr + 1
        Next i
    End If
End With
For Each c In [t_BD].Columns(1).Cells
    With [t_Notes]
        If c <> "" And Application.CountIf(.Columns(1), c) = 0 Then
            i = IIf([t_Notes].Cells(1) = "", 1, .Rows.Count + 1)
            .Cells(i, 1) = c
            ajout = ajout + 1
        End If
    End With
Next c
If suppr + ajout Then MsgBox suppr & " ligne(s) supprimée(s) et " & ajout & " ligne(s) ajoutée(s)"
End Sub

J'ai aussi modifié la formule de la moyenne.

Cliquez pour agrandir...

Appo1985 à dit:

C'est vraiment intéressant. Je suis très satisfait. Grandement merci

Cliquez pour agrandir...

vgendron à dit:

Grrr.. si tu avais modifié ce post comme demandé, il n'y aurait pas deux posts identiques avec des solutions eparpillées..

Cliquez pour agrandir...

vgendron à dit:

sans déconner.. faut quand meme faire un effort de lecture et de compréhension
je t'ai dit de te mettre sur le premier post pour le modifier.. c'est quand meme pas compliqué à comprendre !
la mauvaise fois.. ca me gonfle !
dit plutot que ta volonté était de ne rien faire!

Cliquez pour agrandir...