Mise en Forme MACRO EXCEL 2

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour, comment puis je m'y prendre pr éviter que ma macro fasse des "trous"

Mon code est le suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ' Référence Principale Sheets("Feuil2").Select Range("S2:S1000").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Export").Select Range("C2").Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Cela permet donc de copier coller des données chiffrés qui sont du style :

D5441SN901282DGOIB
D545CMAPCR9010
D513190116FRYZMR
B4101GBELR1791
150 147 36
150 147 23
MD04MB

Mais certaines de ces données ont des "trous"
J'aimerais que ces trous soient enlevés par la même occasion que qd je les transfère, mais je ne vois pas du tout comment m'y prendre
Je m'en remet une fois de plus à vos compétences..
Si quelqu'un connait la réponse à ce probleme, je lui en serait très reconnaissant
Merci bcp de votre aide

16/12/2014, 16h03
Marc-L

Bonjour,

donc la macro n'y est pour rien ?! Ce n'est pas elle qui crée les trous, si ?
16/12/2014, 16h05
EnzoExcel

Non elle crée pas les trous, mais j'aimerais rajouter un code qui permettrait d'enlever ces trous, si ca existe??
16/12/2014, 16h11
Marc-L

La présentation de la problématique étant contradictoire …

Voir du côté de la fonction Replace comme expliquée dans l'aide VBA intégrée.
16/12/2014, 16h14
EnzoExcel

Yes dsl si je m'étais mal exprimé!
Ya donc pas une fonction qui permettrait cela?
16/12/2014, 16h18
Marc-L

Citation:

Envoyé par EnzoExcel

Ya donc pas une fonction qui permettrait cela?

8O

Citation:

Envoyé par Marc-L

Voir du côté de la fonction Replace comme expliquée dans l'aide VBA intégrée.

Enzo,
Sinon il y a aussi la fonction Trim, voici l'aide d'Excel
Citation:
LTrim, RTrim et Trim, fonctions, exemple
Cet exemple utilise les fonctions LTrim et RTrim pour éliminer respectivement les espaces se trouvant à gauche et à droite d'une variable chaîne. La fonction Trim permet d'éliminer les deux types d'espace.
Code:

1 2 3 4 5 6 7 Dim MyString, TrimString MyString = " <-Trim-> " ' Initialise la chaîne. TrimString = LTrim(MyString) ' TrimString = "<-Trim-> ". TrimString = RTrim(MyString) ' TrimString = <-Trim->". TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-Trim->". ' L'utilisation de la fonction Trim seule produit le même résultat. TrimString = Trim(MyString) ' TrimString = "<-Trim->"
Eric

Merci MarcL et Eric

Code:

1
2
3
4
5
6
7
8
9
10
11
12
' Référence Principale
 
   Sheets("Feuil2").Select
    Range("S2:S1000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
 
    Sheets("Export").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
     TrimString = Trim(MyString) ' TrimString = "<-Trim->".

Mais je ne sais pas comment disposer le code pour que cela fonctionne
Quelqu'un aurait une idée??

16/12/2014, 16h45
eric4459

Enzo,
Je ne connais pas la fonction, jamais utilisée à ce jour, mais j'ai trouvé cela sur un autre forum:

Code:

Range("A1") = Application.Trim(Range("A1"))

Rèférence:

Citation:

http://www.developpez.net/forums/d66...fonction-trim/

Eric
17/12/2014, 11h28
EnzoExcel

Ca ne fonctionne pas ya toujours un espace

exemple ma case C38 reste tjr comme ça "150 147 36"

et je voudrais qu'elle soit comme ça "15014736"

Mais pensez-vous qu'un code existe pr empêcher cela?
Ca m'éviterais de chercher pr rien si cest impossible..

Merci de votre aide
17/12/2014, 11h50
eric4459

Enzo,
As-tu essayé ceci, comme indiqué dans le lien proposé plus haut?

Code:

Range("A1") = Application.Trim(Application.Substitute(Range("A1"), Chr(160), Chr(32)))

Eric
17/12/2014, 11h56
EnzoExcel

Oui je viens de réessayer mais ça ne fonctionne pas..

(C'est ma colonne C à partir de C3 ou je veux qu'il n'y ait pas d'espace)
17/12/2014, 12h01
Marc-L

Juste remplacer l'espace par une chaine vide !

Espace : " " Chaine vide : ""
17/12/2014, 12h16
EnzoExcel

Comment puis-je m'y prendre pr remplacer cela par une chaine vide??
Car jai 700 BDD à traiter, j'aimerais rajouter un code qui le fasse automatiquement si ca existe..?
17/12/2014, 13h24
eric4459
Enzo,
J'ai également testé la fonction Trim mais cela ne fonctionne pas non plus.
J'ai alors suivi les conseils de MarcL, les ai adapté et voilà le résultat (ça fonctionne sur mon fichier)
Code:

1 2 3 If Range("A1").Value Like ("* *") Then Range("A1") = Replace(Range("A1"), " ", "") End If
Dans ton cas tu devra réaliser une boucle pour parcourir toute ta colonne.
Eric

Bonjour,

tu as besoin de cela :

Code:

1
2
3
4
'la fonction subtitute substitue l'espace en vide
Sub Macro()
    ActiveCell.Value = Application.WorksheetFunction.Substitute(ActiveCell, " ", "")
End Sub

A+

17/12/2014, 14h06
EnzoExcel
ahh yesssss merci beaucoup Eric!!! et cmt je fais pour que ce soit sur toute la colonne?
Code:

1 2 3 If Range("C38").Value Like ("* *") Then Range("C38") = Replace(Range("C38"), " ", "") End If
Car j'ai essayé sur une case qui en avait besoin ca a très bien marché!
Mais j'aimerais que ca le fasse automatiquement pr toute la colonne C à partir de C3
Mais je vois pas ce qui faudrait marquer

Enzo,
Voici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Remplace_Espace()
Dim Export As Worksheet
Dim der  As Integer
Dim Ligne As Range
Dim i As Integer
 
 
Set Export = ThisWorkbook.Sheets("Export")
 
With Export
    der = .Cells(.Rows.Count, 3).End(xlUp).Row
 
    For i = 1 To der
    Cells(1, 3).Select
         If Cells(i, 3).Value Like ("* *") Then
         Cells(i, 3) = Replace(Cells(i, 3), " ", "")
         End If
    Next i
 
End With
End Sub

Eric

17/12/2014, 14h41
EnzoExcel

Merci bcp Eric !!
17/12/2014, 14h47
eric4459

Enzo,
Encore un oubli de ma part :scarymov:, tu peux enlever la ligne n°15

Code:

Cells(1,3).Select

qui ne sert à rien...

Eric

Voir 40 message(s) de cette discussion en une page