Macros pour separer une celulle

Bonjour,

J'aurai besoin d'une macros pour créer une nouvelle colonne a partir de celle à coté en prenant en compte que les 9 premiers digites de l'ensemble de cellules qui forment la colonne:

Ex: (voir excel ci-joint)

Soit le SIRET=49966386300012

Avoir le SIREN=499663863

Merci d'avance

PS: J'ai vraiement besoin d'une macros et pas une formule EXCEL

Bonjour josé1987,

En C2:

=GAUCHE(A2;9)

à tirer vers le bas.

Cordialement,

EDIT: Désolé, j'ai lu trop vite.....

J'ai vraiement besoin d'une macros et pas une formule EXCEL

Re,

Sub test()

Dim i As Integer, dl As Integer
 dl = Range("A" & Rows.Count).End(xlUp).Row

   For i = 2 To dl
     Range("C" & i) = Left(Range("A" & i), 9)
   Next i

End Sub

Cordialement,

bonjour à tous

salut xorsankukai

pourquoi ce besoin de macro alors qu'une formule fait le job ?

conserver le SIRET à côté du SIREN est très courant.

Bonsoir jose1987, le forum,

je te retourne ton fichier modifié (autre solution par macro) :

saisis un N° SIRET en A7 ; puis supprime-le

ça fait pareil pour toute la colonne A, sauf pour A1


Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

C'est parfait!!

Merci beaucoup, vous êtes très fort!!^^

@jose1987

merci pour ton retour, et pour avoir passé le sujet en résolu !

je t'ai répondu aussi sur ton autre sujet, ici :

https://forum.excel-pratique.com/viewtopic.php?p=688520#p688520

dhany

Rechercher des sujets similaires à "macros separer celulle"