XL 2010 Lister des noms commençant par un certain caractére

[eduraiss]

Bonjour le forum

Voila sur une feuille j'ai plusieurs tableaux dans trois colonnes j'ai des noms commençant par R/ , j'aimerais les extraire et les lister sur la feuille 2

Je joins un fichier

Cordialement,

 

[eduraiss]

Re
désolé mais comment fait-on pour joindre un fichier?

 

[eduraiss]

Re
désolé mais comment fait-on pour joindre un fichier?

Re
désolé mais comment fait-on pour joindre un fichier?

 

[DoubleZero]

Bonjour, eduraiss, le Forum,

Sous la réponse en cours de rédaction apparaissent trois boutons gris : il faut choisir "Téléverser un fichier".

A bientôt

 

[DoubleZero]

Re-bonjour,

Comme ceci ?

Option Explicit
Sub Lister()
    Dim c As Range
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    Sheets("Feuil2").Range("d3:f" & Rows.Count).Clear
    For Each c In Columns(2).SpecialCells(xlContents)
        If Left(c, 1) = "R" Then c.Copy Destination:=Sheets("Feuil2").Range("d" & Rows.Count).End(xlUp)(2)
    Next
    For Each c In Columns(4).SpecialCells(xlContents)
        If Left(c, 1) = "R" Then c.Copy Destination:=Sheets("Feuil2").Range("e" & Rows.Count).End(xlUp)(2)
    Next
    For Each c In Columns(6).SpecialCells(xlContents)
        If Left(c, 1) = "R" Then c.Copy Destination:=Sheets("Feuil2").Range("f" & Rows.Count).End(xlUp)(2)
    Next
    With Sheets("Feuil2"): .Activate: .Columns("d:f").EntireColumn.AutoFit: .Range("d1").CurrentRegion.Borders.Value = 1: End With
    With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt

 

[eduraiss]

Bonjour le forum

Merci DoubleZero c'est presque bon sauf qu'il ne faut extraire que les noms commençant par R/
Le code fonctionne très bien sauf qu'il extrait les noms commençant par R

Merci

 

[Jocelyn]

Bonjour le Forum,
Bonjour eduraiss, Bises 00

juste pour avoir le plaisir de croiser 00 (soit avoir une félicitation soit me faire battre par ce que je dis n'importe quoi a tester remplacer sur les 3 lignes

Left(c, 1) = "R" par Left(c, 2) = "R/"

attention pas ur que se soit la bonne réponse j'aime le risque

Cordialement

Re Bises double 00

 

[eduraiss]

Bonjour Jocelyn

Cela a l'air de fonctionner nickel

Merci a vous deux
Cordialement,

 

[DoubleZero]

Re-bonjour, bonjour + dooble bise, Jcelyn,

... soit avoir une félicitation soit me faire battre par ce que je dis n'importe quoi...

Je suis une cruche (pas fait attention au caractère "/") et t'applaudis de mes quatre sabots pour la parfaite correction.

A bientôt