Discussion :

[EnzoExcel]

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]

Bonjour,

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

[EnzoExcel]

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

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

[EnzoExcel]

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

[Marc-L]

Ya donc pas une fonction qui permettrait cela?

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

[eric4459]

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