Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel chaine de caractères

chaine de caractères

5 réponses
Avatar
romain
Bonjour,
Deux petites questions

Comment faire apparaitre les controles suppl=E9mentaires=20
pour les userfomrs quand ceux-ci ne sont pas disponilbes ?

comment enlever ( par VB ) tous les expaces contenus dans=20
une cellule ?

Merci d'avance

Romain
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
mousnynao
Bonjour,

Pour la prémière question :
Sous VBE -> /Outils/Références
Tous les objets disponibles sont là !

Pour la deuxième, il y a la fonction SUPPESPACE !

mousnynao!
-----Message d'origine-----
Bonjour,
Deux petites questions

Comment faire apparaitre les controles supplémentaires
pour les userfomrs quand ceux-ci ne sont pas disponilbes ?

comment enlever ( par VB ) tous les expaces contenus dans
une cellule ?

Merci d'avance

Romain
.



Avatar
FxM
bonsoir,

comment enlever ( par VB ) tous les expaces contenus dans
une cellule ?
Par VBA: sansespaces = trim(avec espaces)


@+
FxM

Avatar
romain
Merci pour ce renseignement mais cela ne fonctionne pas....



-----Message d'origine-----
bonsoir,

comment enlever ( par VB ) tous les expaces contenus
dans


une cellule ?
Par VBA: sansespaces = trim(avec espaces)


@+
FxM
.




Avatar
Modeste
Bonjour,
-----Message d'origine-----
comment enlever ( par VB ) tous les expaces contenus dans
une cellule


Sub espaceS_redondants()
ActiveCell = Application.Substitute(ActiveCell, " ", "")
End Sub

@+

Avatar
FxM
Bonsoir,

Au temps pour moi

Sub test()
avec = " avec espaces "
'trim = supression des espaces avant/après
sans = Trim(avec)
'replace -> remplace " " par ""
sans = Replace(avec, " ", "")
End Sub

@+
FxM



romain wrote:
Merci pour ce renseignement mais cela ne fonctionne pas....




-----Message d'origine-----
bonsoir,


comment enlever ( par VB ) tous les expaces contenus



dans

une cellule ?


Par VBA: sansespaces = trim(avec espaces)

@+
FxM
.