Extraire une partie de contenu de cellule, puis le supprimer
1 réponse
Aurélien
Bonjour,
Lors d'une importation de fichier sous excel, deux=20
colonnes se sont "m=E9lang=E9es" (un N=B0 d'objet et sa=20
d=E9signation). Je parviens =E0 inserer le N=B0 d'objet dans une=20
nouvelle colonne, mais pas =E0 le supprimer de la colonne ou=20
se trouve aussi la d=E9signation.
Ensuite je compte faire ce traitement en boucle sur le=20
fichier.
************************************
Sub traitementcol1()
Dim numtruc As Variant
Range("B4").Select
numtruc =3D Left(ActiveCell.Value, 8)
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.Value =3D numtruc
End Sub
*************************************
Merci par avance pour votre aide!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
...Patrick
Salut, avec ceci alors :
Sub traitementcol1() Dim numtruc, Lastrowb, cell Lastrowb = Range("B65000").End(xlUp).Row For Each cell In Range("B4:B" & Lastrowb) cell.Offset(0, -1) = Left(cell, 8) cell.Value = Mid(cell.Value, 9, Len(cell) - 8) Next End Sub
"Aurélien" a écrit dans le message de news: 082501c35a9d$8f7b65a0$ Bonjour, Lors d'une importation de fichier sous excel, deux colonnes se sont "mélangées" (un N° d'objet et sa désignation). Je parviens à inserer le N° d'objet dans une nouvelle colonne, mais pas à le supprimer de la colonne ou se trouve aussi la désignation. Ensuite je compte faire ce traitement en boucle sur le fichier. ************************************ Sub traitementcol1() Dim numtruc As Variant Range("B4").Select numtruc = Left(ActiveCell.Value, 8) ActiveCell.Offset(0, -1).Range("A1").Select ActiveCell.Value = numtruc End Sub ************************************* Merci par avance pour votre aide!
Salut,
avec ceci alors :
Sub traitementcol1()
Dim numtruc, Lastrowb, cell
Lastrowb = Range("B65000").End(xlUp).Row
For Each cell In Range("B4:B" & Lastrowb)
cell.Offset(0, -1) = Left(cell, 8)
cell.Value = Mid(cell.Value, 9, Len(cell) - 8)
Next
End Sub
"Aurélien" <aurelien_coquil@yahoo.fr> a écrit dans le message de news:
082501c35a9d$8f7b65a0$a501280a@phx.gbl...
Bonjour,
Lors d'une importation de fichier sous excel, deux
colonnes se sont "mélangées" (un N° d'objet et sa
désignation). Je parviens à inserer le N° d'objet dans une
nouvelle colonne, mais pas à le supprimer de la colonne ou
se trouve aussi la désignation.
Ensuite je compte faire ce traitement en boucle sur le
fichier.
************************************
Sub traitementcol1()
Dim numtruc As Variant
Range("B4").Select
numtruc = Left(ActiveCell.Value, 8)
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.Value = numtruc
End Sub
*************************************
Merci par avance pour votre aide!
Sub traitementcol1() Dim numtruc, Lastrowb, cell Lastrowb = Range("B65000").End(xlUp).Row For Each cell In Range("B4:B" & Lastrowb) cell.Offset(0, -1) = Left(cell, 8) cell.Value = Mid(cell.Value, 9, Len(cell) - 8) Next End Sub
"Aurélien" a écrit dans le message de news: 082501c35a9d$8f7b65a0$ Bonjour, Lors d'une importation de fichier sous excel, deux colonnes se sont "mélangées" (un N° d'objet et sa désignation). Je parviens à inserer le N° d'objet dans une nouvelle colonne, mais pas à le supprimer de la colonne ou se trouve aussi la désignation. Ensuite je compte faire ce traitement en boucle sur le fichier. ************************************ Sub traitementcol1() Dim numtruc As Variant Range("B4").Select numtruc = Left(ActiveCell.Value, 8) ActiveCell.Offset(0, -1).Range("A1").Select ActiveCell.Value = numtruc End Sub ************************************* Merci par avance pour votre aide!
