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
bonjour, il faut sélectionner la ou les colonnes et faire un édition/remplacer Dans rechercher, taper un espace Dans remplacer, ne rien taper Pui remplacer tout Cordialement
-----Message d'origine----- Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de
l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser
la fonction "SUPPESPACE".
Merci pour vos réponses.
Stéphane.
.
bonjour,
il faut sélectionner la ou les colonnes et faire un
édition/remplacer
Dans rechercher, taper un espace
Dans remplacer, ne rien taper
Pui remplacer tout
Cordialement
-----Message d'origine-----
Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans
chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40
caractères. Lors de
l'importation, il me met donc des espaces pour compléter
la cellule.
Comment faire pour enlever tout ces blancs sur toute ma
base sans utiliser
bonjour, il faut sélectionner la ou les colonnes et faire un édition/remplacer Dans rechercher, taper un espace Dans remplacer, ne rien taper Pui remplacer tout Cordialement
-----Message d'origine----- Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de
l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser
la fonction "SUPPESPACE".
Merci pour vos réponses.
Stéphane.
.
Stéphane
Oui j'y avais pensé mais malheureusement j'ai certaines cellules qui sont du type :
"toto à la maison "
... ce qui me donnerait avec cette méthode :
"totoalamaison"
Moi je voudrais "toto à la maison"
Merci ...
Stéphane.
a écrit dans le message de news:5bcf01c3e592$1ea6f530$ bonjour, il faut sélectionner la ou les colonnes et faire un édition/remplacer Dans rechercher, taper un espace Dans remplacer, ne rien taper Pui remplacer tout Cordialement
-----Message d'origine----- Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de
l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser
la fonction "SUPPESPACE".
Merci pour vos réponses.
Stéphane.
.
Oui j'y avais pensé mais malheureusement j'ai certaines cellules qui sont du
type :
"toto à la maison "
... ce qui me donnerait avec cette méthode :
"totoalamaison"
Moi je voudrais "toto à la maison"
Merci ...
Stéphane.
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:5bcf01c3e592$1ea6f530$a401280a@phx.gbl...
bonjour,
il faut sélectionner la ou les colonnes et faire un
édition/remplacer
Dans rechercher, taper un espace
Dans remplacer, ne rien taper
Pui remplacer tout
Cordialement
-----Message d'origine-----
Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans
chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40
caractères. Lors de
l'importation, il me met donc des espaces pour compléter
la cellule.
Comment faire pour enlever tout ces blancs sur toute ma
base sans utiliser
Oui j'y avais pensé mais malheureusement j'ai certaines cellules qui sont du type :
"toto à la maison "
... ce qui me donnerait avec cette méthode :
"totoalamaison"
Moi je voudrais "toto à la maison"
Merci ...
Stéphane.
a écrit dans le message de news:5bcf01c3e592$1ea6f530$ bonjour, il faut sélectionner la ou les colonnes et faire un édition/remplacer Dans rechercher, taper un espace Dans remplacer, ne rien taper Pui remplacer tout Cordialement
-----Message d'origine----- Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de
l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser
la fonction "SUPPESPACE".
Merci pour vos réponses.
Stéphane.
.
michdenis
Bonjour Stéphane,
Tu peux utiliser ce type de macro en prenant soin de définir adéquatement le nom de la feuille et la plage de cellule appropriée.
'--------------------------------- Sub EnleverEspace() Dim Tblo As Variant, Rg As Range
With Worksheets("Feuil1") 'à définir Set Rg = .Range("A1:A50") End With Tblo = Rg
For a = 1 To UBound(Tblo, 1) For b = 1 To UBound(Tblo, 2) Tblo(a, b) = Trim(Tblo(a, b)) Next Next Rg = Tblo Set Rg = Nothing End Sub '----------------------------------------
Salutations!
"Stéphane" a écrit dans le message de news:% Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser la fonction "SUPPESPACE".
Merci pour vos réponses.
Stéphane.
Bonjour Stéphane,
Tu peux utiliser ce type de macro en prenant soin de définir adéquatement le nom de la feuille et la plage de cellule
appropriée.
'---------------------------------
Sub EnleverEspace()
Dim Tblo As Variant, Rg As Range
With Worksheets("Feuil1") 'à définir
Set Rg = .Range("A1:A50")
End With
Tblo = Rg
For a = 1 To UBound(Tblo, 1)
For b = 1 To UBound(Tblo, 2)
Tblo(a, b) = Trim(Tblo(a, b))
Next
Next
Rg = Tblo
Set Rg = Nothing
End Sub
'----------------------------------------
Salutations!
"Stéphane" <webmaster@francedit.com> a écrit dans le message de news:%23LlMc1Y5DHA.2580@TK2MSFTNGP11.phx.gbl...
Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de
l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser
la fonction "SUPPESPACE".
Tu peux utiliser ce type de macro en prenant soin de définir adéquatement le nom de la feuille et la plage de cellule appropriée.
'--------------------------------- Sub EnleverEspace() Dim Tblo As Variant, Rg As Range
With Worksheets("Feuil1") 'à définir Set Rg = .Range("A1:A50") End With Tblo = Rg
For a = 1 To UBound(Tblo, 1) For b = 1 To UBound(Tblo, 2) Tblo(a, b) = Trim(Tblo(a, b)) Next Next Rg = Tblo Set Rg = Nothing End Sub '----------------------------------------
Salutations!
"Stéphane" a écrit dans le message de news:% Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser la fonction "SUPPESPACE".
Merci pour vos réponses.
Stéphane.
ru-th
Salut
1ere approche à la volée Sub test() For Each c In Selection For i = Len(c) To 1 Step -1 If Mid(c, i, 1) <> " " Then GoTo suite: Next i suite: c.Value = Mid(c.Value, 1, i) Next c End Sub
a+ rural thierry "Stéphane" a écrit dans le message de news:
Oui j'y avais pensé mais malheureusement j'ai certaines cellules qui sont du
type :
"toto à la maison "
... ce qui me donnerait avec cette méthode :
"totoalamaison"
Moi je voudrais "toto à la maison"
Merci ...
Stéphane.
a écrit dans le message de news:5bcf01c3e592$1ea6f530$ bonjour, il faut sélectionner la ou les colonnes et faire un édition/remplacer Dans rechercher, taper un espace Dans remplacer, ne rien taper Pui remplacer tout Cordialement
-----Message d'origine----- Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de
l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser
la fonction "SUPPESPACE".
Merci pour vos réponses.
Stéphane.
.
Salut
1ere approche à la volée
Sub test()
For Each c In Selection
For i = Len(c) To 1 Step -1
If Mid(c, i, 1) <> " " Then GoTo suite:
Next i
suite:
c.Value = Mid(c.Value, 1, i)
Next c
End Sub
a+
rural thierry
"Stéphane" <webmaster@francedit.com> a écrit dans le message de news:
u7hgNMa5DHA.2392@TK2MSFTNGP11.phx.gbl...
Oui j'y avais pensé mais malheureusement j'ai certaines cellules qui sont
du
type :
"toto à la maison "
... ce qui me donnerait avec cette méthode :
"totoalamaison"
Moi je voudrais "toto à la maison"
Merci ...
Stéphane.
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:5bcf01c3e592$1ea6f530$a401280a@phx.gbl...
bonjour,
il faut sélectionner la ou les colonnes et faire un
édition/remplacer
Dans rechercher, taper un espace
Dans remplacer, ne rien taper
Pui remplacer tout
Cordialement
-----Message d'origine-----
Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans
chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40
caractères. Lors de
l'importation, il me met donc des espaces pour compléter
la cellule.
Comment faire pour enlever tout ces blancs sur toute ma
base sans utiliser
1ere approche à la volée Sub test() For Each c In Selection For i = Len(c) To 1 Step -1 If Mid(c, i, 1) <> " " Then GoTo suite: Next i suite: c.Value = Mid(c.Value, 1, i) Next c End Sub
a+ rural thierry "Stéphane" a écrit dans le message de news:
Oui j'y avais pensé mais malheureusement j'ai certaines cellules qui sont du
type :
"toto à la maison "
... ce qui me donnerait avec cette méthode :
"totoalamaison"
Moi je voudrais "toto à la maison"
Merci ...
Stéphane.
a écrit dans le message de news:5bcf01c3e592$1ea6f530$ bonjour, il faut sélectionner la ou les colonnes et faire un édition/remplacer Dans rechercher, taper un espace Dans remplacer, ne rien taper Pui remplacer tout Cordialement
-----Message d'origine----- Bonjour,
Lorsque j'importe d'excel ma base access, j'ai dans chaque champs excel le
contenu + des espaces en plus(+) à la fin.
Sur access, ce format est prédéfini par exemple a 40 caractères. Lors de
l'importation, il me met donc des espaces pour compléter la cellule.
Comment faire pour enlever tout ces blancs sur toute ma base sans utiliser
