Autres Cherche méthode pour supprimer avec formule ou AUTRE

[Kxx03]

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]

Bonsoir @Kxx03 et bienvenue sur XLD 🙂 ,

Merci de nous avoir fournis autant de renseignements qui vont nous permettre de bien appréhender le contexte de votre question 🙄

 

[Kxx03]

Voici le fichier en question jai seulement besoin des chiffres avant la première virgule sur toute les lignes

 

[mapomme]

Re,

Merci d'avoir fourni le fichier 🙂 .

Une solution via VBA. Cliquez sur le bouton Hop!.
Le code dans module1:

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

 

[Kxx03]

Je comprends pas je clique et rien ce passe

 

[mapomme]

Re,

Avez-vous activé les modifications et le contenu ?

 

[Kxx03]

Ok les macro était PAS activé merci et je veux le refaire avec plus de donnée je peut prendre la même feuille et remplacer les données

 

[mapomme]

et je veux le refaire avec plus de donnée je peut prendre la même feuille et remplacer les données

Oui, la macro s'adapte automatiquement au nombre de ligne de la colonne A.

 

[Kxx03]

Vraiment merci je vais tester et vous redonne mes commentaires

 

[Kxx03]

Wow vraiment super génial vous me faciliter vraiment la vie

 

[Kxx03]

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]

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( ; )

 

[Kxx03]

Super Juste un seule mots a dire MERCI!!!!!!! Je ne sait pas comment vous remercier a juste valeur !!