Tri par **

  • Initiateur de la discussion VEVE
  • Date de début
V

VEVE

Guest
Re Bonjour

Ce matin suite à l'aide de Pascal.J'ai fais la macros suivante.

For x = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
If Sheets("Feuil1").Range("A" & x) = "*" Then
ligne = ligne + 1
Sheets("Feuil1").Select
Range(Cells(x, 1), Cells(x, Colonne)).Select
Selection.Copy
Sheets("Feuil2").Select
Range("A" & ligne).Select
ActiveSheet.Paste
End If

Le problème est que je n'arrive pas à trier les cellules qui commence par "**"

Merci

Bonne soirée
Salutations
 

Pièces jointes

  • Transfert_Lignes.zip
    12.5 KB · Affichages: 10
  • Transfert_Lignes.zip
    12.5 KB · Affichages: 10
  • Transfert_Lignes.zip
    12.5 KB · Affichages: 8

Discussions similaires

Statistiques des forums

Discussions
312 300
Messages
2 087 000
Membres
103 429
dernier inscrit
PhilippeH