suppresion chaine de caracteres en VBA

Paritec

XLDnaute Barbatruc

• 17 Septembre 2010

• #2

Re : suppresion chaine de caracteres en VBA

bonsoir winnie
essayes comme cela
a+
papou 🙂

Code:

sub copier
dim i&,fin&
fin = feuil1.range("A65536").end(xlup).row
for i = 2 to fin 
cells(i,2)=mid(cells(i,1),1,9)
next i 
end sub

 

Dernière édition: 17 Septembre 2010

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Septembre 2010

• #3

Re : suppresion chaine de caracteres en VBA

Bonjour,

je précise que je souhaiterais faire cela sous la forme d'une macro.

Cliquez pour agrandir...

Et avec tout ce que tu as lu dans le forum ou ce que tu y as appris, tu n'as pas une petite idée de comment faire???



A+

 

Dernière modification par un modérateur: 17 Septembre 2010

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 17 Septembre 2010

• #4

Re : suppresion chaine de caracteres en VBA

Bonjour winnie, Re Paritec, Hasco,
Une proposition avant le W.E

Code:

[COLOR=blue]Sub[/COLOR] Test2()
[COLOR=blue]Dim[/COLOR] Tableau()
Derligne = Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
[COLOR=blue]ReDim[/COLOR] Tableau(0 [COLOR=blue]To[/COLOR] Derligne)
[COLOR=blue]For[/COLOR] i = 1 [COLOR=blue]To[/COLOR] Derligne
    Tableau(i - 1) = Left(Cells(i, 1), 9)
[COLOR=blue]Next[/COLOR] i
Sheets("Feuil1").Cells(1, 2).Resize([COLOR=blue]UBound[/COLOR](Tableau)) = Application.Transpose(Tableau)
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Septembre 2010

• #5

Re : suppresion chaine de caracteres en VBA

Bonjour winnie, Paritec, Hasco, Efgé



Une autre solution
en B1
=ENT(A1/1000)

Je te laisse adapter cela en VBA, winnie

 

Dernière édition: 17 Septembre 2010

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 17 Septembre 2010

• #6

Re : suppresion chaine de caracteres en VBA

Bonsoir le fil 🙂,
En rejoignant Hasco, je suis surpris de ta réponse JM 😛...

Staple1600 à dit:

Une autre solution
en B1
=A1/1000
Je te laisse adapter cela en VBA, winnie

Cliquez pour agrandir...

Notre ami a suivi un cours intensif de RegExp, et "^\d{9}" devrait lui suffire 😀...
Bonne nuit 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Septembre 2010

• #7

Re : suppresion chaine de caracteres en VBA

Bonsoir JNP


J'avais zappé que winnie (initiateur du fil que tu cites) est l'initiateur d'icelui. 😱

Et dans ce cas présent, regexp n'est pas la plus simple des solutions, non ?

 

Dernière édition: 17 Septembre 2010

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 17 Septembre 2010

• #8

Re : suppresion chaine de caracteres en VBA

Re 🙂,

Staple1600 à dit:

J'avais zappé que winnie était l'initiateur du fil que tu cites et l'initiateur de ce fil sont la même personne.

Cliquez pour agrandir...

Ouh là, tu parles bien la France à cette heure-ci 😛...
Non, je te charriais, c'est vrai que j'ai beaucoup échangé avec Winnie (l'ourson 😀 ?) sur l'autre fil, d'où ma percussion rapide 😛...
Un

Code:

=LEFT(A1;9)

serait bien plus efficace 🙄.
Mais c'était pour le fun 😉.
Bonne soirée à toi, Jean-Marie, et bonne nuit pour les autres 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Septembre 2010

• #9

Re : suppresion chaine de caracteres en VBA

Re


Puisqu'on parle de fun
alors amusons nous encore avec RegExp
(bien qu'ici l'emploi de formules natives d'Excel suffirait)


Voili, voilou

Code:

Function SIREN(r As Range) As String
With CreateObject("vbscript.regexp")
    .Pattern = "^\d{9}"
    SIREN = .Execute(r.Text)(0)
End With
End Function

 

Vote positif 0 Vote négatif

W

winnie

Guest

• 18 Septembre 2010

• #10

Re : suppresion chaine de caracteres en VBA

eh bien il s'en passe des choses quand je suis pas la...mais la c'est le week end je touche plus a mon pc.😛😛

Quel taquin ce JNP !! Mais toutes mes erreurs sont dues à mon ignorance..😎

Mais en tout cas merci a tous pour vos réponses.

 

Vote positif 0 Vote négatif