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
isabelle
BONJOUR pASCAL,
VOILÀ,
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
BONJOUR pASCAL,
VOILÀ,
Sub Efface()
'Supprime le superflu
mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".")
For i = 0 To 11
Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse
Next
'Recopie les formules
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Pascal
Merci isa
"isabelle" a écrit dans le message de news:
BONJOUR pASCAL,
VOILÀ,
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 16:18:52 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 16:31:02 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Merci isa
"isabelle" <i@v> a écrit dans le message de news:
ustXkNjwHHA.4796@TK2MSFTNGP04.phx.gbl...
BONJOUR pASCAL,
VOILÀ,
Sub Efface()
'Supprime le superflu
mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité",
"fax", "site", "Mail", ":", "|", "|:", ".")
For i = 0 To 11
Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart,
SearchOrder _
:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
ReplaceFormat:úlse
Next
'Recopie les formules
Bonjour,
Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont
je doute)
Merci
Pascal
http://www.cijoint.fr/cij114611008318920.doc ---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 15:43:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 16:18:52
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 16:31:02
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 16:18:52 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 16:31:02 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Daniel
Bonjour. Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 = "=TRIM(RC[-1])" au lieu de : Range("B1").Formula = "=TRIM(A1)" Range("B1").AutoFill Destination:=Range("B1:B" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault ;-))) Daniel "isabelle" a écrit dans le message de news:
BONJOUR pASCAL,
VOILÀ,
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour.
Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 = "=TRIM(RC[-1])"
au lieu de :
Range("B1").Formula = "=TRIM(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" &
Range("A65536").End(xlUp).Row), Type:=xlFillDefault
;-)))
Daniel
"isabelle" <i@v> a écrit dans le message de news:
ustXkNjwHHA.4796@TK2MSFTNGP04.phx.gbl...
BONJOUR pASCAL,
VOILÀ,
Sub Efface()
'Supprime le superflu
mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité",
"fax", "site", "Mail", ":", "|", "|:", ".")
For i = 0 To 11
Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart,
SearchOrder _
:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
ReplaceFormat:úlse
Next
'Recopie les formules
Bonjour,
Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont
je doute)
Merci
Pascal
http://www.cijoint.fr/cij114611008318920.doc ---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 15:43:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour. Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 = "=TRIM(RC[-1])" au lieu de : Range("B1").Formula = "=TRIM(A1)" Range("B1").AutoFill Destination:=Range("B1:B" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault ;-))) Daniel "isabelle" a écrit dans le message de news:
BONJOUR pASCAL,
VOILÀ,
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
isabelle
bonjour daniel,
cest une possibilité, on pourrait aussi le faire directement,
x = Range("A65536").End(xlUp).Row Range("A1:A" & x) = Application.Trim(Range("A1:A" & x)
pour éviter l'ajout et la supression d'une colonne.
isabelle
Bonjour. Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 = "=TRIM(RC[-1])" au lieu de : Range("B1").Formula = "=TRIM(A1)" Range("B1").AutoFill Destination:=Range("B1:B" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault ;-))) Daniel "isabelle" a écrit dans le message de news:
BONJOUR pASCAL,
VOILÀ,
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
bonjour daniel,
cest une possibilité, on pourrait aussi le faire directement,
x = Range("A65536").End(xlUp).Row
Range("A1:A" & x) = Application.Trim(Range("A1:A" & x)
pour éviter l'ajout et la supression d'une colonne.
isabelle
Bonjour.
Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 = "=TRIM(RC[-1])"
au lieu de :
Range("B1").Formula = "=TRIM(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" &
Range("A65536").End(xlUp).Row), Type:=xlFillDefault
;-)))
Daniel
"isabelle" <i@v> a écrit dans le message de news:
ustXkNjwHHA.4796@TK2MSFTNGP04.phx.gbl...
BONJOUR pASCAL,
VOILÀ,
Sub Efface()
'Supprime le superflu
mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité",
"fax", "site", "Mail", ":", "|", "|:", ".")
For i = 0 To 11
Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart,
SearchOrder _
:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
ReplaceFormat:úlse
Next
'Recopie les formules
Bonjour,
Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont
je doute)
Merci
Pascal
http://www.cijoint.fr/cij114611008318920.doc ---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 15:43:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
cest une possibilité, on pourrait aussi le faire directement,
x = Range("A65536").End(xlUp).Row Range("A1:A" & x) = Application.Trim(Range("A1:A" & x)
pour éviter l'ajout et la supression d'une colonne.
isabelle
Bonjour. Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 = "=TRIM(RC[-1])" au lieu de : Range("B1").Formula = "=TRIM(A1)" Range("B1").AutoFill Destination:=Range("B1:B" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault ;-))) Daniel "isabelle" a écrit dans le message de news:
BONJOUR pASCAL,
VOILÀ,
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Daniel
Quoiqu'il n'y ait pas d'ajout de colonne, et que donc la suppression de la colonne soit souhaitée, de toute façon ? ;-)) Daniel "isabelle" a écrit dans le message de news:
bonjour daniel,
cest une possibilité, on pourrait aussi le faire directement,
x = Range("A65536").End(xlUp).Row Range("A1:A" & x) = Application.Trim(Range("A1:A" & x)
pour éviter l'ajout et la supression d'une colonne.
isabelle
Bonjour. Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 = "=TRIM(RC[-1])" au lieu de : Range("B1").Formula = "=TRIM(A1)" Range("B1").AutoFill Destination:=Range("B1:B" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault ;-))) Daniel "isabelle" a écrit dans le message de news:
BONJOUR pASCAL,
VOILÀ,
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Quoiqu'il n'y ait pas d'ajout de colonne, et que donc la suppression de la
colonne soit souhaitée, de toute façon ?
;-))
Daniel
"isabelle" <i@v> a écrit dans le message de news:
OUwf0CkwHHA.4464@TK2MSFTNGP02.phx.gbl...
bonjour daniel,
cest une possibilité, on pourrait aussi le faire directement,
x = Range("A65536").End(xlUp).Row
Range("A1:A" & x) = Application.Trim(Range("A1:A" & x)
pour éviter l'ajout et la supression d'une colonne.
isabelle
Bonjour.
Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 =
"=TRIM(RC[-1])"
au lieu de :
Range("B1").Formula = "=TRIM(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" &
Range("A65536").End(xlUp).Row), Type:=xlFillDefault
;-)))
Daniel
"isabelle" <i@v> a écrit dans le message de news:
ustXkNjwHHA.4796@TK2MSFTNGP04.phx.gbl...
BONJOUR pASCAL,
VOILÀ,
Sub Efface()
'Supprime le superflu
mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A
proximité", "fax", "site", "Mail", ":", "|", "|:", ".")
For i = 0 To 11
Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart,
SearchOrder _
:=xlByRows, MatchCase:úlse, SearchFormat:úlse,
ReplaceFormat:úlse
Next
'Recopie les formules
Bonjour,
Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont
je doute)
Merci
Pascal
http://www.cijoint.fr/cij114611008318920.doc ---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 15:43:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Quoiqu'il n'y ait pas d'ajout de colonne, et que donc la suppression de la colonne soit souhaitée, de toute façon ? ;-)) Daniel "isabelle" a écrit dans le message de news:
bonjour daniel,
cest une possibilité, on pourrait aussi le faire directement,
x = Range("A65536").End(xlUp).Row Range("A1:A" & x) = Application.Trim(Range("A1:A" & x)
pour éviter l'ajout et la supression d'une colonne.
isabelle
Bonjour. Range("B1:B" & Range("A65536").End(xlUp).Row).FormulaR1C1 = "=TRIM(RC[-1])" au lieu de : Range("B1").Formula = "=TRIM(A1)" Range("B1").AutoFill Destination:=Range("B1:B" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault ;-))) Daniel "isabelle" a écrit dans le message de news:
BONJOUR pASCAL,
VOILÀ,
Sub Efface() 'Supprime le superflu mots = Array("Plan", "Itinéraire", "Vue aérienne", "Envoi", "A proximité", "fax", "site", "Mail", ":", "|", "|:", ".") For i = 0 To 11 Cells.Replace What:=mots(i), Replacement:="", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:úlse, SearchFormat:úlse, ReplaceFormat:úlse Next 'Recopie les formules
Bonjour, Quelqu'un peut-il jeter un noeil afin de voir si tout est carré (Ce dont je doute) Merci Pascal http://www.cijoint.fr/cij114611008318920.doc --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000754-5, 08/07/2007 Analyse le : 09/07/2007 15:43:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com