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 Cellules pas vraiment vides

Cellules pas vraiment vides

9 réponses
Avatar
kimble89
Bonjour,
J'ai copié un tableau de données (Valeurs numériques) à partir d'intranet et
je l'ai collé dans Excel
Certaine cellules sont vides de données - pas de valeurs à l'intérieur- mais
Excel ne les reconnait pas comme vides.
En effet si je fais un double clic sur une de ces cellules sans valeurs , je
vois qu'il y a dedans quelque chose comme un espace (et que je peux
supprimer).
Toutefois si je demande à Excel de remplacer les espaces contenus dans les
cellules par rien, il me répond qu'il ne trouve pas d'espaces !
Comment faire pour vider véritablement ces cellules sans valeurs afin
qu'Excel les reconnaisse comme vides: ""

Si quelqu'un peut m'aider...
Merci
Claude RICHARD
Signaler un problème avec ce contenu

9 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
Garette
Bonsoir,

- Selectionner le "quelque chose comme un espace" avec la souris
- Edition/copier
- Edition/Remplacer
- Dans "Rechercher" faire CTRL+V pour coller le "quelque chose comme un
espace"
- Dans "Remplacer par" ne rien mettre
- Cliquer sur "Remplacer Tout"
Avatar
garnote
Salut Richard,

Et si tu supprimais, par macro, tous les espaces
contenus dans chaque cellule de ta sélection,
ça te conviendrait ?

Sub Enlève_Les_Espaces()
Dim c As Range
For Each c In Selection
c.Value = Trim(c.Value)
Next c
End Sub

Serge


"kimble89" a écrit dans le message de news:

Bonjour,
J'ai copié un tableau de données (Valeurs numériques) à partir d'intranet et
je l'ai collé dans Excel
Certaine cellules sont vides de données - pas de valeurs à l'intérieur- mais
Excel ne les reconnait pas comme vides.
En effet si je fais un double clic sur une de ces cellules sans valeurs , je
vois qu'il y a dedans quelque chose comme un espace (et que je peux
supprimer).
Toutefois si je demande à Excel de remplacer les espaces contenus dans les
cellules par rien, il me répond qu'il ne trouve pas d'espaces !
Comment faire pour vider véritablement ces cellules sans valeurs afin
qu'Excel les reconnaisse comme vides: ""

Si quelqu'un peut m'aider...
Merci
Claude RICHARD



Avatar
JB
On 5 fév, 23:10, kimble89 wrote:
Bonjour,
J'ai copié un tableau de données (Valeurs numériques) à partir d' intranet et
je l'ai collé dans Excel
Certaine cellules sont vides de données - pas de valeurs à l'intéri eur- mais
Excel ne les reconnait pas comme vides.
En effet si je fais un double clic sur une de ces cellules sans valeurs , je
vois qu'il y a dedans quelque chose comme un espace (et que je peux
supprimer).
Toutefois si je demande à Excel de remplacer les espaces contenus dans les
cellules par rien, il me répond qu'il ne trouve pas d'espaces !
Comment faire pour vider véritablement ces cellules sans valeurs afin
qu'Excel les reconnaisse comme vides: ""

Si quelqu'un peut m'aider...
Merci
Claude RICHARD


Bonsoir,

Sub NettoieEspaces()
For Each c In Cells.SpecialCells(xlCellTypeConstants, 23) ' on ne
sélectionne que les cellules occupées
If Len(Trim(c)) = 0 Then c.Value = Empty
Next
End Sub

JB

Avatar
Modeste
Bonsour® Garette avec ferveur ;o))) vous nous disiez :


- Selectionner le "quelque chose comme un espace" avec la souris


il est fort probable que ce quelquechose soit : CAR(160)

--
--
@+
;o)))

Avatar
Garette
Bonjour Modeste,

Avec ferveur ;-), je confirme qu'effectivement CAR(160) puisse etre le
responsable du probleme.
En conséquence, les macros utilisant les Trim ou autres sont sans effet....

=>Soit à la main, Edition/Remplacer

=>Soit par macro :
Sub EffaceCar160()
For Each X In Selection
If X.Value = Chr(160) Then X.ClearContents
Next
End Sub

Merci

"Modeste" a écrit dans le message de news:
eKQk%
Bonsour® Garette avec ferveur ;o))) vous nous disiez :


- Selectionner le "quelque chose comme un espace" avec la souris


il est fort probable que ce quelquechose soit : CAR(160)

--
--
@+
;o)))





Avatar
garnote
Bonjour Modeste et Garette,

CAR(32) et CAR(160) correspondent à des espaces.
Il y a une différence de nature entre CAR(32) et CAR(160) ?
L'espace CAR(160) est-il 5 fois plus grand que CAR(32) ? ;-)
Ne devrait-on pas :

Sub EffaceCar160Car32()
For Each X In Selection
If X.Value = Chr(160) Or X.Value = Chr(32) Then X.ClearContents
Next
End Sub

Serge



"Garette" a écrit dans le message de news: %
Bonjour Modeste,

Avec ferveur ;-), je confirme qu'effectivement CAR(160) puisse etre le responsable du probleme.
En conséquence, les macros utilisant les Trim ou autres sont sans effet....

=>Soit à la main, Edition/Remplacer

=>Soit par macro :
Sub EffaceCar160()
For Each X In Selection
If X.Value = Chr(160) Then X.ClearContents
Next
End Sub

Merci

"Modeste" a écrit dans le message de news: eKQk%
Bonsour® Garette avec ferveur ;o))) vous nous disiez :


- Selectionner le "quelque chose comme un espace" avec la souris


il est fort probable que ce quelquechose soit : CAR(160)

--
--
@+
;o)))









Avatar
Garette
Garnote,

Le code 32 est l'espace "normal"
Le code 160 est l'espace insécable. 2 mots séparés par un espace insécable
sont considérés comme un seul mot.

Pour taper un espace insécable dans Excel taper Alt+0160
Dans Word CTRL+MAJ+ESPACE ou(Alt+0160)

"garnote" a écrit dans le message de news:

Bonjour Modeste et Garette,

CAR(32) et CAR(160) correspondent à des espaces.
Il y a une différence de nature entre CAR(32) et CAR(160) ?
L'espace CAR(160) est-il 5 fois plus grand que CAR(32) ? ;-)
Ne devrait-on pas :

Sub EffaceCar160Car32()
For Each X In Selection
If X.Value = Chr(160) Or X.Value = Chr(32) Then X.ClearContents
Next
End Sub

Serge



"Garette" a écrit dans le message de news:
%
Bonjour Modeste,

Avec ferveur ;-), je confirme qu'effectivement CAR(160) puisse etre le
responsable du probleme.
En conséquence, les macros utilisant les Trim ou autres sont sans
effet....

=>Soit à la main, Edition/Remplacer

=>Soit par macro :
Sub EffaceCar160()
For Each X In Selection
If X.Value = Chr(160) Then X.ClearContents
Next
End Sub

Merci

"Modeste" a écrit dans le message de news:
eKQk%
Bonsour® Garette avec ferveur ;o))) vous nous disiez :


- Selectionner le "quelque chose comme un espace" avec la souris


il est fort probable que ce quelquechose soit : CAR(160)

--
--
@+
;o)))













Avatar
kimble89
Super en effet ça marche. Merci beaucoup
Claude RICHARD
*****************************************************


Bonsoir,

- Selectionner le "quelque chose comme un espace" avec la souris
- Edition/copier
- Edition/Remplacer
- Dans "Rechercher" faire CTRL+V pour coller le "quelque chose comme un
espace"
- Dans "Remplacer par" ne rien mettre
- Cliquer sur "Remplacer Tout"





Avatar
Trirème
Il y a une différence de nature entre CAR(32) et CAR(160) ?
L'espace CAR(160) est-il 5 fois plus grand que CAR(32) ? ;-)
Il y a surtout 1 bit de différence dans l'octet qui le code, le 8ème en partant de la

droite, dont la valeur vaut 128.

Cordialement,
Trirème

Bonjour Modeste et Garette,

CAR(32) et CAR(160) correspondent à des espaces.
Ne devrait-on pas :

Sub EffaceCar160Car32()
For Each X In Selection
If X.Value = Chr(160) Or X.Value = Chr(32) Then X.ClearContents
Next
End Sub

Serge



"Garette" a écrit dans le message de news: %
Bonjour Modeste,

Avec ferveur ;-), je confirme qu'effectivement CAR(160) puisse etre le responsable du probleme.
En conséquence, les macros utilisant les Trim ou autres sont sans effet....

=>Soit à la main, Edition/Remplacer

=>Soit par macro :
Sub EffaceCar160()
For Each X In Selection
If X.Value = Chr(160) Then X.ClearContents
Next
End Sub

Merci

"Modeste" a écrit dans le message de news: eKQk%
Bonsour® Garette avec ferveur ;o))) vous nous disiez :

- Selectionner le "quelque chose comme un espace" avec la souris
il est fort probable que ce quelquechose soit : CAR(160)


--
--
@+
;o)))