Copier des cellules si mot commençant par

Hervé

XLDnaute Barbatruc

• 12 Février 2014

• #2

Re : Copier des cellules si mot commençant par

salut

un simple filtre :

Code:

Public Sub toto()
With Columns(1)
    .AutoFilter Field:=1, Criteria1:="=S*", Operator:=xlAnd
    .Copy Destination:=Range("b1")
    .AutoFilter
End With
End Sub

a plus

 

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 13 Février 2014

• #3

Re : Copier des cellules si mot commençant par

Bonjour
Ta macro filtre certes ùais ne correspond pas à ma demande.
Elle filtre les lignes commençant par S
Pas besoin d une macro tu fait filtre commence par
Moi je choisi une FDS en B1
et je demande que les lignes commencant par S de cette FDS ( toi elle prenait toutes les lignes du fichier )
Il ya en réalité 300 FDS je n'ai fait qu' un exemple .
Pour 2 je l aurais fait a la main

 

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 13 Février 2014

• #4

Re : Copier des cellules si mot commençant par

Je viens d avancer ce travail
grace a une jolie de BOISGONTHIER
Sub SelectionChiffre()
Dim cel As Range, plage As Range
For Each cel In Range("E1", Range("E65536").End(xlUp))
If cel Like "[A-Z]*" Or cel Like "[a-z]*" Then Set plage = Union(cel, IIf(plage Is Nothing, cel, plage))
Next
If Not plage Is Nothing Then plage.EntireRow.Select 'Intersect(plage.EntireRow, [Tableau]).Select
End Sub


Je la modifie en
Sub SelectionChiffre()
Dim cel As Range, plage As Range
For Each cel In Range("E1", Range("E65536").End(xlUp))
If cel Like "[FDS]*" Or cel Like "*" Then Set plage = Union(cel, IIf(plage Is Nothing, cel, plage))
Next
If Not plage Is Nothing Then plage.EntireRow.Select 'Intersect(plage.EntireRow, [Tableau]).Select
End Sub


Et je peux copier dans un autre onglet que ce que je souhaite maintenant cela n extrait pas ma demande
car reste à extraire les lignes commencant par S de cette FDS

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Février 2014

• #5

Re : Copier des cellules si mot commençant par

Bonjour à tous

reve24
En remaniant ton tableau avec une colonne en plus
puis en appliquant un filtre élaboré avec critère formulé et en cochant Extraction sans doublons.
tu obtenir ce résultat:

Je laisse tester et faire la traduction de cette manip en VBA si tu intéressé par cette voie.

PS: Tu es d'accord avec les 13 éléments filtrés (car dans ton exemple , il y en avait 9) ?

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Février 2014

• #6

Re : Copier des cellules si mot commençant par

Bonjour, le Fil , le Forum,

Une suggestion en pièce jointe.

A bientôt

 

Pièces jointes

• 00 - reve24 - Extraire selon....xls

  70 KB · Affichages: 387

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 13 Février 2014

• #7

Re : Copier des cellules si mot commençant par

Parfait parfait
j avais trouvé des solutions en détourant le sujet
mais la tu as reussi en 1 fois a faire ce que j 'etais obligé de fraire en 2 3 fois

MERCI A TOI

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Février 2014

• #8

Re : Copier des cellules si mot commençant par

Bonsoir à tous

reve24
T'as testé ma proposition (voir message précédent) ?
Tu aurai du ... au moins pour me dire que ce n'était pas tout à fait le résultat attendu

00 ( salut )
En testant ta PJ, j'ai compris comment modifier ma précédente proposition (avec Filtre élaboré) que ce soit manuellement ou par VBA pour arriver au même résultat que toi.
Mais comme cela n'a guère retenu (a priori) l'attention de reve24
Je me contenterai ici de te remercier d'avoir éclairer ma lanterne avec ton AutoFilter

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Février 2014

• #9

Re : Copier des cellules si mot commençant par

Re-bonjour,

Staple1600 à dit:

...Je me contenterai ici de te remercier d'avoir éclairer ma lanterne avec ton AutoFilter

Cliquez pour agrandir...

Merci, mais... n'as-tu décelé aucune ânerie dans le code ?

A bientôt

 

Vote positif 0 Vote négatif