XL 2019 recopier une partie d'une autre cellule en vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Aujourd'hui à 14:48

• #2

Bonjour Pascal,
Un essai en PJ avec :

VB:

Sub Extraire()
Dim L%: Application.ScreenUpdating = False
[B5:B350].NumberFormat = "@"
For L = 5 To 350
    Cells(L, "B") = Split(Cells(L, "A"), "-")(1)
Next L
End Sub

 

Pièces jointes

• Extraire nombre.xlsm

  24.7 KB · Affichages: 2

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• Aujourd'hui à 17:53

• #3

bonjour merci pour la reponse mais j'ai une erreur
l'indice n'appartient pas à la sélection sur cette ligne
Cells(L, "b") = Split(Cells(L, "A"), " -")(1)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Aujourd'hui à 18:15

• #4

Re,
Dans ma PJ ?
Sinon fournissez un fichier .

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Aujourd'hui à 18:35

• #5

Re,
Essayez cette PJ.
Le bouton de droite passe les immat où se trouve une erreur.
Le bouton de gauche s'arrête sur une erreur et donne l'immat erronée.
( La macro ne marche que pour une syntaxe : AA-123-BB )

 

Pièces jointes

• Extraire nombre V2.xlsm

  26.3 KB · Affichages: 0

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• Aujourd'hui à 18:55

• #6

je ne souhaitais pas une syntaxe aa-123-bb mais aa 123 bb
et il s'agissait de copier de la colonne B vers la colonne A et non l'inverse

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Aujourd'hui à 19:07

• #7

Oups, sorry.
En PJ un essai avec :

VB:

Sub Extraire2()
Dim L%: Application.ScreenUpdating = False
[A5:A350].NumberFormat = "@"
For L = 5 To 350
    On Error Resume Next
    Cells(L, "A") = Split(Cells(L, "C"), " ")(1)
Next L
End Sub

 

Pièces jointes

• Extraire nombre V3.xlsm

  26 KB · Affichages: 0

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• Aujourd'hui à 19:23

• #8

ca fonctionne parfaitement maintenant merci bonne soirée

 

Vote positif 0 Vote négatif