Verif code

Le
Pascal
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
Questions / Réponses high-tech
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
isabelle
Le #4901631
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

Range("B1").Formula = "=TRIM(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault
Columns("B:B").Copy
Columns("A:A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Columns("B:B").Delete
End Sub


ISABELLE


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
Le #4901611
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

Range("B1").Formula = "=TRIM(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" &
Range("A65536").End(xlUp).Row), Type:=xlFillDefault
Columns("B:B").Copy
Columns("A:A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Columns("B:B").Delete
End Sub


ISABELLE


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
Le #4901461
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

Range("B1").Formula = "=TRIM(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" &
Range("A65536").End(xlUp).Row), Type:=xlFillDefault
Columns("B:B").Copy
Columns("A:A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Columns("B:B").Delete
End Sub


ISABELLE


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
Le #4901411
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

Range("B1").Formula = "=TRIM(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" &
Range("A65536").End(xlUp).Row), Type:=xlFillDefault
Columns("B:B").Copy
Columns("A:A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Columns("B:B").Delete
End Sub


ISABELLE



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
Le #4901371
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

Range("B1").Formula = "=TRIM(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" &
Range("A65536").End(xlUp).Row), Type:=xlFillDefault
Columns("B:B").Copy
Columns("A:A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Application.CutCopyMode = False
Columns("B:B").Delete
End Sub


ISABELLE



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











Publicité
Poster une réponse
Anonyme