cellule vide à l'écran mais non vide pour excel????

bonjour le phorum

quelqu'un pourrait il m'expliquer pourquoi des cellules sont vides à l'écran mais lorsque je crée un formule celle ci considére que la cellule contient une information
je suis alors obligé de supprimer manuellement la cellule "vide" pour que la formule me donne un résultat correct
???????????????????????



merci d'avance


tracor

Salut,

Les cellules sont elles réellements vide???

N'y aurait-il pas un espace dans la cellule?

Je te soumet cela car un de mes collegues à la facheuse habitude de faire un espace pour effacer une cellule alors forcement apres ca pose des probleme.

Sinon mais une pj avec ton fichier

@+
Minick

salut minick

oui mais dans ce cas comment pallier à ce problème

tracor

re salut

je met en pièce jointe le fichier maudit

tracor

re,

Tout depend de ce que tu veux faire.

Mets un exemple se sera plus simple.

@+
Minick

Salut,


ce n'est pas le plus élégant mais ca marche

colle ceci dans la partie VBA de ta feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zone As Range
Set zone = Range("b2:d15")
For Each cell In zone
If cell.Value = " " Then
cell.Value = ""
End If
Next

End Sub
Si il y a un espace il sera supprimé sinon il te laisse tes données (c'est la moundre des choses...)


Pierre

Bonsoir à Tous
Pierre, Minick, Tracor et les zôtres

Effectivement Minick avait raison en vérifiant le code des cellules coupables on obtient 32 c'est à dire le code de .... l'espace !
Pierre propose une solution qui fonctionne à merveille
Merci je vais en profiter.
Au diable l'élégance ! Vive l'efficacité !
@+ Bonne soirée
GD

slt à tous

comment fais tu pour lancer cette macro snif snif automatiquement à l'ouverture


de plus mon tableau est actualisé chaque jour avec de nouvelle lignes
supplémentaires

est ce cette zone est valable
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zone As Range
Set zone = Range("A:BZ")
For Each cell In zone
If cell.Value = " " Then
cell.Value = ""
End If
Next

End Sub

Salut Tracor, roi du quizz (tiens ça fait longtemps qu'on ne s'y est pas croisé)

Je te propose une methode tout à la main et sans macro :

tu sélectionnes tout le tableau, edition, remplacer, espace dans la case "rechercher", rien dans la case "remplacer par", cocher cellule entière et remplacer tout ! (tu peux même enregistrer la macro, ça devrait marcher).

Salut

Jean Yves

slt dugenou

si je ne viens pas sur le quizz en ce moment
c parce que je m'entraine pour tous vous écraser

merci pour l'info
je teste immédiatement

tracor

re tout le monde

le problème avec ta méthode Dugenou
c que cela me supprime tous les espaces même entre les éléments pour lesquels il ne faut pas les supprimer

je desespère snif snif snif

au secours


tracor

Re

Logiquement tu peux mettre Range("A:BZ"). Y'a juste que ca va traîner car la zone est grande...
Si tu veux que cela s'effectue à l'ouverture du fichier et non chaque fois que tu modifies une cellule de la zone place le code, copie ceci dans la feuille ThisWorkbook

Private Sub Workbook_Open()

Dim zone As Range
Set zone = Worksheets("feuil1").Range("b:d")
For Each cell In zone
If cell.Value = " " Then
cell.Value = ""
End If
Next

End Sub

Cela devrait fonctionner.

Bonne soirée



Pierre

cher pierre

désolé mais j'ai encore un petit problème
en effet, je ne souhaite pas que la macro s'initie à l'ouverture car j'ai une macro qui importe le fichier renouvellé quotidiennement
je souhaite uniquement pouvoir lancer cette macro avec un rectangle quand clik

bien sur avec les mêmes possibilité
colonne a à bz

merci de ta réponse si tu n'ai pas encore couché


tracor

Tracor

Il te faut alors placer un bouton de commande sur ta feuille et lui assigner le code.
Je te joint le fichier modifié avec le bouton (et sans Clearasyl)
Hope this will help you.

@+


Pierre

merci

vive pierre et clear up strip pour les boutons et points noirs

tracor