Tranfet *

Bonjour VEVE et le Forum,


Dans ta procédure "Essai", remplace :

If Sheets("Feuil1").Range("A" & x) = "*" Then

par

If Left(Sheets("Feuil1").Range("A" & x).Value, 1) = "*" Then


Cordialement.
Didier

Bonjour Veve, Didier et the forum

Pour compléter ce qu'as écrit Didier et peut-être simplifier la macro, ci dessous proposition:


Option Explicit

Sub sélectionner()

Dim cptr, lig As Long
Dim transfert

Sheets(1).Activate
' sélectionne les saisies du mois
lig = Range("A3").End(xlDown).Row
transfert = Range(Cells(3, 1), Cells(lig, 19))

Sheets(2).Activate
' nettoie la cible
Range("A3:S65536").Clear
' transcrit les données du mois
Range(Cells(3, 1), Cells(lig, 19)) = transfert
' trie pour mettre les "*" en tête
Range(Cells(3, 1), Cells(lig, 19)).Sort Key1:=Range("A3")
'recherche la dernière ligne avec "*" en premier caractère
cptr = 3
While Left(Cells(cptr, 1).Value, 1) = "*"
cptr = cptr + 1
Wend
'détruit les autres lignes
Rows(cptr & ":" & lig).Delete
'encadre la sélection de bordures
Range(Cells(3, 1), Cells(cptr - 1, 19)).Borders.Weight = xlThin


End Sub


A+
Michel

Bonjour

Un grand merci à Michel_M et mDF .

C'est vraiment la solution attendue

VEVE