Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Mon probleme est le suivant: j'ai des commentaires dans certaines cellules de la base de donnees et ceux-ci ne suivent pas lors de l'extraction.> Est-il possible de faire quelque chose?
Filtrer en place et faire copier/coller ailleurs
Sur cette trame, adapte les chemins et noms
Sub zzz() With Range("A1").CurrentRegion .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[F1:F2] .SpecialCells(xlCellTypeVisible).Copy ([H1]) ActiveSheet.ShowAllData End With End Sub
AV
Mon probleme est le suivant: j'ai des commentaires dans certaines cellules de
la base de donnees et ceux-ci ne suivent pas lors de l'extraction.> Est-il
possible de faire quelque chose?
Filtrer en place et faire copier/coller ailleurs
Sur cette trame, adapte les chemins et noms
Sub zzz()
With Range("A1").CurrentRegion
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[F1:F2]
.SpecialCells(xlCellTypeVisible).Copy ([H1])
ActiveSheet.ShowAllData
End With
End Sub
Mon probleme est le suivant: j'ai des commentaires dans certaines cellules de la base de donnees et ceux-ci ne suivent pas lors de l'extraction.> Est-il possible de faire quelque chose?
Filtrer en place et faire copier/coller ailleurs
Sur cette trame, adapte les chemins et noms
Sub zzz() With Range("A1").CurrentRegion .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[F1:F2] .SpecialCells(xlCellTypeVisible).Copy ([H1]) ActiveSheet.ShowAllData End With End Sub
AV
Pierre.M
Désolé pour le retard, mais j'ai malheureusement mis un moment a comprendre le truc... En tous cas, maintenant ca fonctionne tres bien et exactement comme je l'esperais. Merci encore pour ton aide.
Pierre.M
On 2007-05-28 17:22:14 +0200, "AV" said:
Mon probleme est le suivant: j'ai des commentaires dans certaines cellules de la base de donnees et ceux-ci ne suivent pas lors de l'extraction.> Est-il possible de faire quelque chose?
Filtrer en place et faire copier/coller ailleurs
Sur cette trame, adapte les chemins et noms
Sub zzz() With Range("A1").CurrentRegion .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[F1:F2] .SpecialCells(xlCellTypeVisible).Copy ([H1]) ActiveSheet.ShowAllData End With End Sub
AV
Désolé pour le retard, mais j'ai malheureusement mis un moment a
comprendre le truc...
En tous cas, maintenant ca fonctionne tres bien et exactement comme je
l'esperais.
Merci encore pour ton aide.
Pierre.M
On 2007-05-28 17:22:14 +0200, "AV" <alainPFFFvallon@wanadoo.fr> said:
Mon probleme est le suivant: j'ai des commentaires dans certaines cellules de
la base de donnees et ceux-ci ne suivent pas lors de l'extraction.> Est-il
possible de faire quelque chose?
Filtrer en place et faire copier/coller ailleurs
Sur cette trame, adapte les chemins et noms
Sub zzz()
With Range("A1").CurrentRegion
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[F1:F2]
.SpecialCells(xlCellTypeVisible).Copy ([H1])
ActiveSheet.ShowAllData
End With
End Sub
Désolé pour le retard, mais j'ai malheureusement mis un moment a comprendre le truc... En tous cas, maintenant ca fonctionne tres bien et exactement comme je l'esperais. Merci encore pour ton aide.
Pierre.M
On 2007-05-28 17:22:14 +0200, "AV" said:
Mon probleme est le suivant: j'ai des commentaires dans certaines cellules de la base de donnees et ceux-ci ne suivent pas lors de l'extraction.> Est-il possible de faire quelque chose?
Filtrer en place et faire copier/coller ailleurs
Sur cette trame, adapte les chemins et noms
Sub zzz() With Range("A1").CurrentRegion .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[F1:F2] .SpecialCells(xlCellTypeVisible).Copy ([H1]) ActiveSheet.ShowAllData End With End Sub