texte sur feuille excel

Le
STEPH B
en fait j'ai un fichier donc sur la "feuil2" il y a un peu partout de "A1:
IV6500"

des cellule qui contiennent le text "*06.*correspondant à un numéro de tel
exemple "tél: 06.01.01.01.02" en G25
et
"GSM perso: 06.02.02.05.05" en AB67
j'aimerais qu'il me prenne de chaque cellule ou il trouve "*06.*" * étant
n'importe chaine de caracteres et qu"il
me les mette tous dans un onglet feuil4 dans la colonne A
ce qui donnerait en feuil4
A1 0601010102
A2 0602020505
et ainsi de suite

merci d'avance.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #22256631
Re...
C'était urgent ??
Voir fil précédent

--
Salutations
JJ


"STEPH B" 4c165e82$0$27604$


en fait j'ai un fichier donc sur la "feuil2" il y a un peu partout de "A1:
IV6500"

des cellule qui contiennent le text "*06.*correspondant à un numéro de tel
exemple "tél: 06.01.01.01.02" en G25
et
"GSM perso: 06.02.02.05.05" en AB67
j'aimerais qu'il me prenne de chaque cellule ou il trouve "*06.*" * étant n'importe chaine de caracteres
et qu"il
me les mette tous dans un onglet feuil4 dans la colonne A
ce qui donnerait en feuil4
A1 0601010102
A2 0602020505
et ainsi de suite

merci d'avance.




STEPH B
Le #22257831
merci Jacky ca marche bien mais voici le code qut u m a donné modifié à mon
projet
Sub jjddd()
Dim c, firstAddress As Variant
Application.ScreenUpdating = False

With Sheets("feuil2").Range("a1:iv6500")
Set c = .Find("06", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do

Sheets("feuil4").Range("A" & Sheets("feuil4").Cells(Rows.Count,
1).End(3).Row + 1 + ([feuil4!a1] = "")) = c
Set c = .FindNext(c)
Loop While c.Address <> firstAddress
End If
End With

'Sheets("feuil4").Columns(1).Replace ".", "" 'S'il faut supprimer les
points
Application.ScreenUpdating = True
End Sub

et donc le résultat donne toutes les cellules contenant le text 06. en
colonne A
sous la forme dutexte06dutexte
je voudrais que pour toute les cellule en A de feuil4 il ne me laisse que
les 06.et les 14 caracteres derriere.

est ce possible?






"Jacky" hv60pp$uqg$
Re...
C'était urgent ??
Voir fil précédent

--
Salutations
JJ


"STEPH B" 4c165e82$0$27604$


en fait j'ai un fichier donc sur la "feuil2" il y a un peu partout de
"A1:
IV6500"

des cellule qui contiennent le text "*06.*correspondant à un numéro de
tel
exemple "tél: 06.01.01.01.02" en G25
et
"GSM perso: 06.02.02.05.05" en AB67
j'aimerais qu'il me prenne de chaque cellule ou il trouve "*06.*" *
étant n'importe chaine de caracteres et qu"il
me les mette tous dans un onglet feuil4 dans la colonne A
ce qui donnerait en feuil4
A1 0601010102
A2 0602020505
et ainsi de suite

merci d'avance.








STEPH B
Le #22257821
merci jacky mais tu m avais deja repondu j ai retrouvé le code

Sub jj2()

Dim letexte As String, i As Integer, x As Integer
j = Cells(Rows.Count, "A").End(3).Row
For g = 1 To j
For i = 1 To Len(Range("a" & g))
If Mid(Range("a" & g), i, 2) = "06" Then
x = x + 1
Range("b" & x) = Mid(Range("a" & g), i, 14)
End If
Next
Next

End Sub


"STEPH B" 4c173424$0$2979$
merci Jacky ca marche bien mais voici le code qut u m a donné modifié à
mon projet
Sub jjddd()
Dim c, firstAddress As Variant
Application.ScreenUpdating = False

With Sheets("feuil2").Range("a1:iv6500")
Set c = .Find("06", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do

Sheets("feuil4").Range("A" & Sheets("feuil4").Cells(Rows.Count,
1).End(3).Row + 1 + ([feuil4!a1] = "")) = c
Set c = .FindNext(c)
Loop While c.Address <> firstAddress
End If
End With

'Sheets("feuil4").Columns(1).Replace ".", "" 'S'il faut supprimer les
points
Application.ScreenUpdating = True
End Sub

et donc le résultat donne toutes les cellules contenant le text 06. en
colonne A
sous la forme dutexte06dutexte
je voudrais que pour toute les cellule en A de feuil4 il ne me laisse que
les 06.et les 14 caracteres derriere.

est ce possible?






"Jacky" hv60pp$uqg$
Re...
C'était urgent ??
Voir fil précédent

--
Salutations
JJ


"STEPH B" 4c165e82$0$27604$


en fait j'ai un fichier donc sur la "feuil2" il y a un peu partout de
"A1:
IV6500"

des cellule qui contiennent le text "*06.*correspondant à un numéro de
tel
exemple "tél: 06.01.01.01.02" en G25
et
"GSM perso: 06.02.02.05.05" en AB67
j'aimerais qu'il me prenne de chaque cellule ou il trouve "*06.*" *
étant n'importe chaine de caracteres et qu"il
me les mette tous dans un onglet feuil4 dans la colonne A
ce qui donnerait en feuil4
A1 0601010102
A2 0602020505
et ainsi de suite

merci d'avance.












Jacky
Le #22258211
Re...
Inutile de reprendre toute la colonne,
modifier le code comme ceci
'--------------
Sub jj()
Sheets("feuil4").Columns(1).ClearContents
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:test.xls"
With Worksheets(1).Range("a1:iv6500")
Set c = .Find("06", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Windows("divers.xls").Activate
Sheets("feuil4").Range("A" & Sheets("feuil4").Cells(Rows.Count, 1).End(3).Row + 1 + ([feuil4!a1]
= "")) = Left(c, 14)
Set c = .FindNext(c)
Loop While c.Address <> firstAddress
End If
End With
Windows("divers.xls").Activate
With Sheets("feuil4").Columns(1)
'.Replace ".", "" 'S'il faut supprimer les points
'.NumberFormat = "0000000000"
End With
Application.ScreenUpdating = True
End Sub
'-----------------------

--
Salutations
JJ


"STEPH B" 4c1734ba$0$27609$
merci jacky mais tu m avais deja repondu j ai retrouvé le code

Sub jj2()

Dim letexte As String, i As Integer, x As Integer
j = Cells(Rows.Count, "A").End(3).Row
For g = 1 To j
For i = 1 To Len(Range("a" & g))
If Mid(Range("a" & g), i, 2) = "06" Then
x = x + 1
Range("b" & x) = Mid(Range("a" & g), i, 14)
End If
Next
Next

End Sub
STEPH B
Le #22258451
merci jacky ton code est génial



"STEPH B" 4c165e82$0$27604$


en fait j'ai un fichier donc sur la "feuil2" il y a un peu partout de "A1:
IV6500"

des cellule qui contiennent le text "*06.*correspondant à un numéro de tel
exemple "tél: 06.01.01.01.02" en G25
et
"GSM perso: 06.02.02.05.05" en AB67
j'aimerais qu'il me prenne de chaque cellule ou il trouve "*06.*" *
étant n'importe chaine de caracteres et qu"il
me les mette tous dans un onglet feuil4 dans la colonne A
ce qui donnerait en feuil4
A1 0601010102
A2 0602020505
et ainsi de suite

merci d'avance.




Publicité
Poster une réponse
Anonyme