Voici la situation :
Du texte placé en cellule A13:A50 contient des espaces à gauche. Certaines
de ces cellules sont vides.
Une macro écrit une formule en B13:B50. Ceci a pour but de supprimer les
espaces contenus dans mes données.
Le résultat étant ensuite copié et par collage special collé en A13:A50.
En C13:C50, j'effectue un test qui doit m'indiquer quelles sont les cellules
vides de la plage A13:A50.
Les cellules de la plage A13:A50 qui initialement ne contenaient rien ne
sont plus considérées comme vides et ce aprés avoir effectué le collage
special.
Voici la macro :
J'ai pu résoudre le problème en changeant mon test : j'utilise
NBCRAR(A13)="" au lieu de ESTVIDE(A13). Mais cela ne me convient pas.
Si quelqu'un me m'aider et m'expliquer pourquoi les cellules ne sont pas
considérées comme vides.....
Merci d'avance.
Francis
REMARQUE : En se placant en mode modification(DOUBLE CLIC dans la cellule)
dans une des cellules vides de A13:A50 et en validant, elles est ainsi
considérée comme vide.
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
Herdet
Bonsoir françis, Un peu compliquée ton affaire. Si tu veux juste supprimer tous les espaces de tous les textes de la plage : Sub Purge() For Each a In Range("B13:B50") a.Value = Replace(a.Value, " ", "") Next End Sub ... su tu veux supprimer les espaces en trop (equivalent VBA de SUPPRESPACE) Sub Purge() For Each a In Range("B13:B50") a.Value = Application.WorksheetFunction.Trim(a.Value) Next End Sub
Cordialement Robert
"Francis B" a écrit dans le message de news: %
Voici la situation : Du texte placé en cellule A13:A50 contient des espaces à gauche. Certaines de ces cellules sont vides. Une macro écrit une formule en B13:B50. Ceci a pour but de supprimer les espaces contenus dans mes données. Le résultat étant ensuite copié et par collage special collé en A13:A50. En C13:C50, j'effectue un test qui doit m'indiquer quelles sont les cellules vides de la plage A13:A50. Les cellules de la plage A13:A50 qui initialement ne contenaient rien ne sont plus considérées comme vides et ce aprés avoir effectué le collage special. Voici la macro :
J'ai pu résoudre le problème en changeant mon test : j'utilise NBCRAR(A13)="" au lieu de ESTVIDE(A13). Mais cela ne me convient pas.
Si quelqu'un me m'aider et m'expliquer pourquoi les cellules ne sont pas considérées comme vides..... Merci d'avance. Francis REMARQUE : En se placant en mode modification(DOUBLE CLIC dans la cellule) dans une des cellules vides de A13:A50 et en validant, elles est ainsi considérée comme vide.
Bonsoir françis,
Un peu compliquée ton affaire.
Si tu veux juste supprimer tous les espaces de tous les textes de la plage :
Sub Purge()
For Each a In Range("B13:B50")
a.Value = Replace(a.Value, " ", "")
Next
End Sub
... su tu veux supprimer les espaces en trop (equivalent VBA de SUPPRESPACE)
Sub Purge()
For Each a In Range("B13:B50")
a.Value = Application.WorksheetFunction.Trim(a.Value)
Next
End Sub
Cordialement
Robert
"Francis B" <FrancisBoulet@formacti.fr> a écrit dans le message de news:
%23OA3H5boGHA.4152@TK2MSFTNGP04.phx.gbl...
Voici la situation :
Du texte placé en cellule A13:A50 contient des espaces à gauche. Certaines
de ces cellules sont vides.
Une macro écrit une formule en B13:B50. Ceci a pour but de supprimer les
espaces contenus dans mes données.
Le résultat étant ensuite copié et par collage special collé en A13:A50.
En C13:C50, j'effectue un test qui doit m'indiquer quelles sont les
cellules
vides de la plage A13:A50.
Les cellules de la plage A13:A50 qui initialement ne contenaient rien ne
sont plus considérées comme vides et ce aprés avoir effectué le collage
special.
Voici la macro :
J'ai pu résoudre le problème en changeant mon test : j'utilise
NBCRAR(A13)="" au lieu de ESTVIDE(A13). Mais cela ne me convient pas.
Si quelqu'un me m'aider et m'expliquer pourquoi les cellules ne sont pas
considérées comme vides.....
Merci d'avance.
Francis
REMARQUE : En se placant en mode modification(DOUBLE CLIC dans la cellule)
dans une des cellules vides de A13:A50 et en validant, elles est ainsi
considérée comme vide.
Bonsoir françis, Un peu compliquée ton affaire. Si tu veux juste supprimer tous les espaces de tous les textes de la plage : Sub Purge() For Each a In Range("B13:B50") a.Value = Replace(a.Value, " ", "") Next End Sub ... su tu veux supprimer les espaces en trop (equivalent VBA de SUPPRESPACE) Sub Purge() For Each a In Range("B13:B50") a.Value = Application.WorksheetFunction.Trim(a.Value) Next End Sub
Cordialement Robert
"Francis B" a écrit dans le message de news: %
Voici la situation : Du texte placé en cellule A13:A50 contient des espaces à gauche. Certaines de ces cellules sont vides. Une macro écrit une formule en B13:B50. Ceci a pour but de supprimer les espaces contenus dans mes données. Le résultat étant ensuite copié et par collage special collé en A13:A50. En C13:C50, j'effectue un test qui doit m'indiquer quelles sont les cellules vides de la plage A13:A50. Les cellules de la plage A13:A50 qui initialement ne contenaient rien ne sont plus considérées comme vides et ce aprés avoir effectué le collage special. Voici la macro :
J'ai pu résoudre le problème en changeant mon test : j'utilise NBCRAR(A13)="" au lieu de ESTVIDE(A13). Mais cela ne me convient pas.
Si quelqu'un me m'aider et m'expliquer pourquoi les cellules ne sont pas considérées comme vides..... Merci d'avance. Francis REMARQUE : En se placant en mode modification(DOUBLE CLIC dans la cellule) dans une des cellules vides de A13:A50 et en validant, elles est ainsi considérée comme vide.