Columns("C:C").Delete
Columns("C:C").Select Selection.Delete Shift:=xlToLeft
Rows("5:5").Delete
TT 7101 (Bah2202),ne garder que 7101
range("A1").value=Val(range("A1").value)
Je souhaiterais faire une mise en forme d'un fichier recupere avec des colonnes qui ne me servent pas
2- supprimer les colonnes B,D,E,F,G,H,I,J,L,M,O,P,Q,R,S,T,U,V,W,X,Y,ET Z
3- supprimer 1 lignes sur deux, a partir de la ligne 2, c'est a dire 2,4,6,8, etc
une fois cela effectue
couper en colonne F les 2 premiers caracteres et le 9 derniers ou ne conserver que 4 caracteres, c'est a dire TT 7101 (Bah2202),ne garder que 7101.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiond'en augmenter la taille, y compris en suppression
Tu supprime et sa augment la taille
toto = "TT 7101 (Bah2202)" Do While Not IsNumeric(Mid(toto, 1, 1)) toto = Mid(toto, 2) Loop MsgBox Val(toto)