Sub Colle()
Application.ScreenUpdating = False
N = [Tableau7].Rows.Count
For i = 1 To [Tableau5].Rows.Count
[Tableau7].ListObject.ListRows.Add
[Tableau7[Classes]].Item(N + i) = [Tableau5[Classe]].Item(i)
[Tableau7[Periode3]].Item(N + i) = [Tableau5[Resultat]].Item(i)
Next i
End Sub
bonjour sylvanuBonjour Bd_afaf,
Un essai en PJ avec :
VB:Sub Colle() Application.ScreenUpdating = False N = [Tableau7].Rows.Count For i = 1 To [Tableau5].Rows.Count [Tableau7].ListObject.ListRows.Add [Tableau7[Classes]].Item(N + i) = [Tableau5[Classe]].Item(i) [Tableau7[Periode3]].Item(N + i) = [Tableau5[Resultat]].Item(i) Next i End Sub
Bonjour sylvanu , bd.afaf ,Bonjour,
Effectivement, En premier j'ai appliqué le code tel qu'il est mais il n'a pas marché du coup j'ai fais select puis "selection.copy" et aucun résultat.
Sub Mars
'ton code'
'
'
'appel code sylvanu'
call colle
End Sub
Bonjour sylvanu , bd.afaf ,
@bd.afaf : Et si tu appellais la macro de Sylvanu à la fin de ta macro, ça donnerait quoi?!!!
A+VB:Sub Mars 'ton code' ' ' 'appel code sylvanu' call colle End Sub
Sub Copier()
With [Tableau7]
[Tableau5].Columns(2).Copy .Cells(.Rows.Count + 1, 1)
[Tableau5].Columns(6).Copy .Cells(.Rows.Count + 1, 4)
If Application.CountBlank(.Columns(1)) Then .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
End With
End Sub
bonjour job75, sylvanu, cp4,Bonjour bd.afaf, sylvanu, cp4,
Une boucle For/Next est vraiment inutile :
A+VB:Sub Copier() With [Tableau7] [Tableau5].Columns(2).Copy .Cells(.Rows.Count + 1, 1) [Tableau5].Columns(6).Copy .Cells(.Rows.Count + 1, 4) If Application.CountBlank(.Columns(1)) Then .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides End With End Sub
Bah ma macro copie les colonnes B et F comme demandé.j'ai appliquée ta formule mais on me copie toujours les colonnes entres les deux demandés.
Alors que moio je demande juste la colonne B et E non pas ce qui est entre eux .
Sur le fichier du post #1 il n'y a pas de couleur de fond sur les colonnes B et F, les couleurs sont les couleurs automatiques des tableaux structurés.@job,
Je voulais coller sans les différentes mises en forme. Pour éviter ça :
Sub Copier()
With [Tableau7]
.Cells(.Rows.Count + 1, 1).Resize([Tableau5].Rows.Count) = [Tableau5].Columns(2).Value
.Cells(.Rows.Count + 1, 4).Resize([Tableau5].Rows.Count) = [Tableau5].Columns(6).Value
If Application.CountBlank(.Columns(1)) Then .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
End With
End Sub