Mise en Forme MACRO EXCEL 2

**EnzoExcel** · 16/12/2014, 15h14

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

Mon code est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Marc-L** · 16/12/2014, 16h03

Bonjour,

donc la macro n'y est pour rien ?! Ce n'est pas elle qui crée les trous, si ?

**EnzoExcel** · 16/12/2014, 16h05

Non elle crée pas les trous, mais j'aimerais rajouter un code qui permettrait d'enlever ces trous, si ca existe??

**Marc-L** · 16/12/2014, 16h11

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.

**EnzoExcel** · 16/12/2014, 16h14

Yes dsl si je m'étais mal exprimé!
Ya donc pas une fonction qui permettrait cela?

**Marc-L** · 16/12/2014, 16h18

Envoyé par EnzoExcel

Ya donc pas une fonction qui permettrait cela?

Envoyé par Marc-L

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

**eric4459** · 16/12/2014, 16h20

Enzo,
Sinon il y a aussi la fonction Trim, voici l'aide d'Excel

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**EnzoExcel** · 16/12/2014, 16h32

Merci MarcL et Eric

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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??

**eric4459** · 16/12/2014, 16h45

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Rèférence:

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

Eric

**EnzoExcel** · 17/12/2014, 11h28

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

**eric4459** · 17/12/2014, 11h50

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Eric

**EnzoExcel** · 17/12/2014, 11h56

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)

**Marc-L** · 17/12/2014, 12h01

Juste remplacer l'espace par une chaine vide !

Espace : " "

Chaine vide : ""

**EnzoExcel** · 17/12/2014, 12h16

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..?

**eric4459** · 17/12/2014, 13h24

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Igloobel** · 17/12/2014, 13h24

Bonjour,

tu as besoin de cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

**EnzoExcel** · 17/12/2014, 14h06

ahh yesssss merci beaucoup Eric!!! et cmt je fais pour que ce soit sur toute la colonne?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**eric4459** · 17/12/2014, 14h36

Enzo,
Voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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