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
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
Jacky
Re... C'était urgent ?? Voir fil précédent
-- Salutations JJ
"STEPH B" a écrit dans le message de news: 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.
Re...
C'était urgent ??
Voir fil précédent
--
Salutations
JJ
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c165e82$0$27604$ba4acef3@reader.news.orange.fr...
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
"STEPH B" a écrit dans le message de news: 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
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" a écrit dans le message de news: hv60pp$uqg$
Re... C'était urgent ?? Voir fil précédent
-- Salutations JJ
"STEPH B" a écrit dans le message de news: 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.
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" <Dupond@marcel.fr> a écrit dans le message de news:
hv60pp$uqg$1@speranza.aioe.org...
Re...
C'était urgent ??
Voir fil précédent
--
Salutations
JJ
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c165e82$0$27604$ba4acef3@reader.news.orange.fr...
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 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" a écrit dans le message de news: hv60pp$uqg$
Re... C'était urgent ?? Voir fil précédent
-- Salutations JJ
"STEPH B" a écrit dans le message de news: 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
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" a écrit dans le message de news: 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" a écrit dans le message de news: hv60pp$uqg$
Re... C'était urgent ?? Voir fil précédent
-- Salutations JJ
"STEPH B" a écrit dans le message de news: 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.
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" <stephol@prodiag.fr> a écrit dans le message de news:
4c173424$0$2979$ba4acef3@reader.news.orange.fr...
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" <Dupond@marcel.fr> a écrit dans le message de news:
hv60pp$uqg$1@speranza.aioe.org...
Re...
C'était urgent ??
Voir fil précédent
--
Salutations
JJ
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c165e82$0$27604$ba4acef3@reader.news.orange.fr...
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 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" a écrit dans le message de news: 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" a écrit dans le message de news: hv60pp$uqg$
Re... C'était urgent ?? Voir fil précédent
-- Salutations JJ
"STEPH B" a écrit dans le message de news: 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
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" a écrit dans le message de news: 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
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" <stephol@prodiag.fr> a écrit dans le message de news:
4c1734ba$0$27609$ba4acef3@reader.news.orange.fr...
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
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" a écrit dans le message de news: 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
merci jacky ton code est génial
"STEPH B" a écrit dans le message de news: 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.
merci jacky ton code est génial
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c165e82$0$27604$ba4acef3@reader.news.orange.fr...
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
"STEPH B" a écrit dans le message de news: 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
