...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news: m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
Bonsoir,
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" <albert@invalid.com> a écrit dans le message de news: m4qpev$cip$1@speranza.aioe.org...
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news: m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à
la fin)
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin)
et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à
la fin)
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin)
et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à
la fin)
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin)
et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de demander poliment à Excel quelle
colonne est la plus longue ( a ou b), vu que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qr6o$i3g$
Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news: m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de demander poliment à Excel quelle
colonne est la plus longue ( a ou b), vu que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qr6o$i3g$1@speranza.aioe.org...
Bonsoir,
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" <albert@invalid.com> a écrit dans le message de news: m4qpev$cip$1@speranza.aioe.org...
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de demander poliment à Excel quelle
colonne est la plus longue ( a ou b), vu que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qr6o$i3g$
Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news: m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Re..
Si une colonne peut-être plus longue que l'autre..
'----------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, col As Long
col = IIf([countA(A:A)] > [countA(b:b)], 1, 2)
For Each c In Range("a2:b" & Cells(Rows.Count, col).End(xlUp).Row)
If c <> "" Then c.Value = Sans_accents$(c.Value)
Next c
End Sub
'----------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
m4qr6o$i3g$Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2
jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news:
m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
Re..
Si une colonne peut-être plus longue que l'autre..
'----------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, col As Long
col = IIf([countA(A:A)] > [countA(b:b)], 1, 2)
For Each c In Range("a2:b" & Cells(Rows.Count, col).End(xlUp).Row)
If c <> "" Then c.Value = Sans_accents$(c.Value)
Next c
End Sub
'----------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
m4qr6o$i3g$1@speranza.aioe.org...
Bonsoir,
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2
jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" <albert@invalid.com> a écrit dans le message de news:
m4qpev$cip$1@speranza.aioe.org...
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
Re..
Si une colonne peut-être plus longue que l'autre..
'----------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, col As Long
col = IIf([countA(A:A)] > [countA(b:b)], 1, 2)
For Each c In Range("a2:b" & Cells(Rows.Count, col).End(xlUp).Row)
If c <> "" Then c.Value = Sans_accents$(c.Value)
Next c
End Sub
'----------------
--
Salutations
JJ
"Jacky" a écrit dans le message de news:
m4qr6o$i3g$Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2
jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news:
m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de
demander poliment à Excel quelle colonne est la plus longue ( a ou b), vu
que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
m4qr6o$i3g$
Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2
jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news:
m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de
demander poliment à Excel quelle colonne est la plus longue ( a ou b), vu
que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
m4qr6o$i3g$1@speranza.aioe.org...
Bonsoir,
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2
jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" <albert@invalid.com> a écrit dans le message de news:
m4qpev$cip$1@speranza.aioe.org...
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de
demander poliment à Excel quelle colonne est la plus longue ( a ou b), vu
que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
m4qr6o$i3g$
Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2
jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news:
m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Pourquoi tu testes si c n'est pas vide? Si vide = pas d'accent
Pourquoi tu testes si c n'est pas vide? Si vide = pas d'accent ....
Pour les + de 65.000 lignes, tu as raison. mais, je n'y pense jamais car je suis toujours en 2003. (manière
de ne pas vieillir). -))
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qu7l$tps$
Hello Jacques,
[A65536].End(3).Row
Beurggg!
Ne fonctionne pas si les lignes sont plus longues que 65536.
Je préfère
Cells(Rows.Count, 1).End(xlUp).Row
Perso , je ferai comme ceci
'----------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, col As Long
'col retourne la colonne la plus longue: soit 1(A) soit 2(B)
col = IIf(Cells(Rows.Count, 1).End(xlUp).Row > Cells(Rows.Count, 2).End(xlUp).Row, 1, 2)
For Each c In Range("a2:b" & Cells(Rows.Count, col).End(xlUp).Row)
If c <> "" Then c.Value = Sans_accents$(c.Value)
Next c
End Sub
'------------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: m4qt6l$qub$Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de demander poliment à Excel quelle
colonne est la plus longue ( a ou b), vu que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qr6o$i3g$
Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news: m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Pourquoi tu testes si c n'est pas vide? Si vide = pas d'accent
Pourquoi tu testes si c n'est pas vide? Si vide = pas d'accent ....
Pour les + de 65.000 lignes, tu as raison. mais, je n'y pense jamais car je suis toujours en 2003. (manière
de ne pas vieillir). -))
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qu7l$tps$1@speranza.aioe.org...
Hello Jacques,
[A65536].End(3).Row
Beurggg!
Ne fonctionne pas si les lignes sont plus longues que 65536.
Je préfère
Cells(Rows.Count, 1).End(xlUp).Row
Perso , je ferai comme ceci
'----------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, col As Long
'col retourne la colonne la plus longue: soit 1(A) soit 2(B)
col = IIf(Cells(Rows.Count, 1).End(xlUp).Row > Cells(Rows.Count, 2).End(xlUp).Row, 1, 2)
For Each c In Range("a2:b" & Cells(Rows.Count, col).End(xlUp).Row)
If c <> "" Then c.Value = Sans_accents$(c.Value)
Next c
End Sub
'------------------
--
Salutations
JJ
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news: m4qt6l$qub$1@speranza.aioe.org...
Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de demander poliment à Excel quelle
colonne est la plus longue ( a ou b), vu que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qr6o$i3g$1@speranza.aioe.org...
Bonsoir,
...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" <albert@invalid.com> a écrit dans le message de news: m4qpev$cip$1@speranza.aioe.org...
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Pourquoi tu testes si c n'est pas vide? Si vide = pas d'accent
Pourquoi tu testes si c n'est pas vide? Si vide = pas d'accent ....
Pour les + de 65.000 lignes, tu as raison. mais, je n'y pense jamais car je suis toujours en 2003. (manière
de ne pas vieillir). -))
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qu7l$tps$
Hello Jacques,
[A65536].End(3).Row
Beurggg!
Ne fonctionne pas si les lignes sont plus longues que 65536.
Je préfère
Cells(Rows.Count, 1).End(xlUp).Row
Perso , je ferai comme ceci
'----------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, col As Long
'col retourne la colonne la plus longue: soit 1(A) soit 2(B)
col = IIf(Cells(Rows.Count, 1).End(xlUp).Row > Cells(Rows.Count, 2).End(xlUp).Row, 1, 2)
For Each c In Range("a2:b" & Cells(Rows.Count, col).End(xlUp).Row)
If c <> "" Then c.Value = Sans_accents$(c.Value)
Next c
End Sub
'------------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: m4qt6l$qub$Bonsoir Jacky,
Juste une question: -)
Je sais que c'est la fin de semaine, mais, n'y aurait-il pas lieu de demander poliment à Excel quelle
colonne est la plus longue ( a ou b), vu que le demandeur semble y faire allusion, mais sans le dire?
Un truc du genre (non testé) ????
derLA= [A65536].End(3).Row
derLB= [B65536].End(3).Row
if derLA>derLB then derLÞrLA:else derLÞrLB
For Each c In Range("a2:b" & derL)
[c] = Sans_accents$(c.Value)
Next
Bonne soirée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : m4qr6o$i3g$
Bonsoir,...pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la fin)
'----------------
For Each c In Range("a2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
c.Value = Sans_accents$(c.Value)
Next
'--------------
--
Salutations
JJ
"Albert" a écrit dans le message de news: m4qpev$cip$Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la fin) et la colonne B (B2 jusqu'à la
fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
--------------------------------------------
Merci
--
albertri-at-videotron.ca.invalid
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Le 22/11/2014 20:50, Albert a écrit :Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Je propose au plus court (mais évidemment c'est pas hyper général,
par contre c'est plus facile pour s'en souvenir peut-être...)
For Each c In Intersect([A2].Worksheet.UsedRange, [A2:B999999])
...
Next
Le 22/11/2014 20:50, Albert a écrit :
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Je propose au plus court (mais évidemment c'est pas hyper général,
par contre c'est plus facile pour s'en souvenir peut-être...)
For Each c In Intersect([A2].Worksheet.UsedRange, [A2:B999999])
...
Next
Le 22/11/2014 20:50, Albert a écrit :Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Je propose au plus court (mais évidemment c'est pas hyper général,
par contre c'est plus facile pour s'en souvenir peut-être...)
For Each c In Intersect([A2].Worksheet.UsedRange, [A2:B999999])
...
Next
Hello,
Et pour être compatible au version antérieur
;o))
For Each c In Intersect([A2].Worksheet.UsedRange, Range("A2:B" &
Rows.Count))
--
Salutations
JJ
"GL" a écrit dans le message de news:
5470ffcc$0$12771$Le 22/11/2014 20:50, Albert a écrit :Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Je propose au plus court (mais évidemment c'est pas hyper général,
par contre c'est plus facile pour s'en souvenir peut-être...)
For Each c In Intersect([A2].Worksheet.UsedRange, [A2:B999999])
...
Next
Hello,
Et pour être compatible au version antérieur
;o))
For Each c In Intersect([A2].Worksheet.UsedRange, Range("A2:B" &
Rows.Count))
--
Salutations
JJ
"GL" <gouailles@gmail.com> a écrit dans le message de news:
5470ffcc$0$12771$426a74cc@news.free.fr...
Le 22/11/2014 20:50, Albert a écrit :
Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Je propose au plus court (mais évidemment c'est pas hyper général,
par contre c'est plus facile pour s'en souvenir peut-être...)
For Each c In Intersect([A2].Worksheet.UsedRange, [A2:B999999])
...
Next
Hello,
Et pour être compatible au version antérieur
;o))
For Each c In Intersect([A2].Worksheet.UsedRange, Range("A2:B" &
Rows.Count))
--
Salutations
JJ
"GL" a écrit dans le message de news:
5470ffcc$0$12771$Le 22/11/2014 20:50, Albert a écrit :Bonjour
Comment ré-écrire ce qui suit pour inclure la colonne A (A2 jusquà la
fin) et la colonne B (B2 jusqu'à la fin)?
----------------------
Sub EnleveAccent()
' Cette MACRO enlève tous les caractères accentuées et spécaux
Dim c As Range, Ctr As Long, i As Integer
For Each c In Range([A2], Cells(Rows.Count, 1).End(xlUp))
c.Value = Sans_accents$(c.Value)
Next c
End Sub
Je propose au plus court (mais évidemment c'est pas hyper général,
par contre c'est plus facile pour s'en souvenir peut-être...)
For Each c In Intersect([A2].Worksheet.UsedRange, [A2:B999999])
...
Next