Autres Cherche méthode pour supprimer avec formule ou AUTRE

Kxx03

XLDnaute Nouveau
Bonjou je cherche une façon de supprimer tout sur plusieurs lignes !! Garder tout ce qu'il y as avant la première virgule et effacé tout le reste sur chaque ligne en une seul fois
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,

Merci d'avoir fourni le fichier :) .

Une solution via VBA. Cliquez sur le bouton Hop!.
Le code dans module1:
VB:
Sub AvantVirgule()
Dim t, i&, n
  t = Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
  On Error Resume Next
  For i = 1 To UBound(t)
    t(i, 1) = Left(t(i, 1), InStr(t(i, 1), ",") - 1)
  Next i
  Range("a1").Resize(UBound(t)) = t
  Columns(1).AutoFit
End Sub
 

Pièces jointes

  • Kxx03- avant la virgule- v1.xlsm
    22.3 KB · Affichages: 9
Dernière édition:

Kxx03

XLDnaute Nouveau
Juste comme ça je sait que je demande beaucoup mais les macro ne sont pas pris en charge sur la version Android !! Je suis déjà tres heureux !! Mais si vous avez aussi une solution qui pourrait ce faire avec app mobile !! Sinon je le répète que je suis tres content de pouvoir le faire sur pc merci
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,

Je ne dispose pas de cette version. Sinon, on peut le faire par formule. Voir fichier.
  • formule en A1 =SIERREUR(GAUCHE(A1;CHERCHE(",";A1)-1);A1)
  • tirer/copier la formule en A1 vers le bas jusqu'à la fin des données
  • copier la colonne B
  • la coller (collage spécial / en valeur) sur la colonne A
  • effacer la colonne B
nota: je ne sais pas si votre version accepte la fonction SIERREUR( ; )
 

Pièces jointes

  • Kxx03- avant la virgule- v2.xlsx
    17.1 KB · Affichages: 9
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou