VBA copier une plage vers autre feuille selon critere
Bonjour le forum
Tout est dans le titre, je joint un fichier.
Merci d'avance
Nonno
Bonjour Eric, et merci
Exactement ce que je voulais.
Merci encore, bonne journée
Nonno
Bonsoir Eric, le codage que tu m'as fourni fonctionne parfaitement et je pensais être capable en le modifiant de l'utiliser pour une autre macro sur le même fichier.
Mais non! je n'y arrive pas.
Je joint le fichier si tu as un moment.
Merci d'avance et bonne soirée
Nonno
Bonjour Eric
Alors là!, tu m'as fait un "truc" super je te remercie. Et stp juste pour m'on information personnelle pourrais tu me dire quelle modif j'aurai dû faire
pour coller à partir de la cellule "K7".
Cordialement
Nonno
Sub ArchivageCommandes()
Dim I As Integer
Dim TCible As ListObject
Dim AireACopier As Range
Set AireACopier = Range("t_Archive")
Set TCible = Sheets(Range("NomOnglet").Value).ListObjects(1)
With TCible
For I = 1 To AireACopier.SpecialCells(xlCellTypeVisible).Rows.Count
.ListRows.Add (1)
Next I
AireACopier.SpecialCells(xlCellTypeVisible).Copy Destination:=TCible.ListRows(1).Range(1, 1)
End With
Set TCible = Nothing: Set AireACopier = Nothing
End Sub
Re,
Comme il y a deux tableaux structurés dans un onglet, il faut lui dire lequel :
Set TCible = Sheets(Range("NomOnglet").Value).ListObjects(1)Ou
Set TCible = Sheets(Range("NomOnglet").Value).ListObjects(2)OK, merci Eric.
Je ne t'embête plus.
Bonne journée et encore merci.
Nonno