OVH Cloud OVH Cloud

transfert acess vers excel

20 réponses
Avatar
LaLouve
Bonsoir
quand je fais un transfert un fichier acess vers excel les cellules vides ne
le sont pas vraiment . en effet quand je fais la fonction nbval il compte
toutes les lignes et non celles complétées de meme dans un cacul il affiche
#valeur car il ne la considere pas comme vide alors qu'il n'y a rien à
l'ecran en faisant del sur la cellule en question tout se remet remet dans
l'ordre mais le probleme c'est que j'ai souvent de gros fichiers et je suis
obligée de reprendre chaque cellule par colonne et de faire del , y'a t il
un moyen pour aller plus vite
j'ai essayé par export de access vers excel, par liaison office et de meme
par un copier coller tout simple mais j'ai toujours le probleme
merci beaucoup
la louve

10 réponses

1 2
Avatar
MichDenis
Utilise cette adresse http://cjoint.com/ pour rendre accessible seulement une petite portion de la plage en question
de ton fichier. Met de la couleur sur le fond des cellules concernées .... et publie ici le lien qui rendra ton fichier
accessible.

Ton fichier ne doit pas faire plus de 250 Kilo octets.


Salutations!



"LaLouve" a écrit dans le message de news:
cool !!
mais encore raté il met #VALEUR!
y'a pas moyen de trouver cette valeur !!!
les lois de 'linformatique sont impénétrables


"MichDenis" a écrit dans le message de
news:efXu$
Bonjour LaLouve,

en remplaçant A1 par l'une des cellules "vides" de ta plage de données,

Si tu utilises la fonction =Code(A1) , cela va te donner le code Ascii du
caractère qui se trouve dans tes cellules

"vides". Cela aide de savoir ce qui se trouve dans la cellule pour pouvoir
élaborer une stratégie !!!



Salutations!


"LaLouve" a écrit dans le message de news:
%

merci pour ta réponse mais non ca ne fonctionne pas
il me dit qu'il ne trouve pas la valeur rechercher
....
bien essayer

"MichDenis" a écrit dans le message de
news:
Bonjour LaLouve,

à partir du menu édition Rechercher-Remplacer,

Tu entres le caractère ascii 160 qui est semblable au caractère ascii 32
qui est un espace.


pour saisir ce caractère (Ascii 160) dans la boîte de dialogue
Rechercher,


tu tapes 0160 en maintenant la touche Alt
(celle de gauche de la barre d'espacement) enfoncée. et tu laisses vide
la


case "Remplacer"

Est-ce que cela fonctionne ?


Salutations!


"LaLouve" a écrit dans le message de news:
%

Bonsoir
quand je fais un transfert un fichier acess vers excel les cellules
vides


ne
le sont pas vraiment . en effet quand je fais la fonction nbval il
compte


toutes les lignes et non celles complétées de meme dans un cacul il
affiche

#valeur car il ne la considere pas comme vide alors qu'il n'y a rien à
l'ecran en faisant del sur la cellule en question tout se remet remet
dans

l'ordre mais le probleme c'est que j'ai souvent de gros fichiers et je
suis

obligée de reprendre chaque cellule par colonne et de faire del , y'a t
il


un moyen pour aller plus vite
j'ai essayé par export de access vers excel, par liaison office et de
meme


par un copier coller tout simple mais j'ai toujours le probleme
merci beaucoup
la louve










Avatar
LaLouve
http://cjoint.com/?cjwpHQob6R

voila c'est fait
merci beaucoup pour l'aide apportée

"MichDenis" a écrit dans le message de
news:
Utilise cette adresse http://cjoint.com/ pour rendre accessible
seulement une petite portion de la plage en question

de ton fichier. Met de la couleur sur le fond des cellules concernées ....
et publie ici le lien qui rendra ton fichier

accessible.

Ton fichier ne doit pas faire plus de 250 Kilo octets.


Salutations!



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


cool !!
mais encore raté il met #VALEUR!
y'a pas moyen de trouver cette valeur !!!
les lois de 'linformatique sont impénétrables


"MichDenis" a écrit dans le message de
news:efXu$
Bonjour LaLouve,

en remplaçant A1 par l'une des cellules "vides" de ta plage de données,

Si tu utilises la fonction =Code(A1) , cela va te donner le code Ascii
du


caractère qui se trouve dans tes cellules
"vides". Cela aide de savoir ce qui se trouve dans la cellule pour
pouvoir


élaborer une stratégie !!!


Salutations!


"LaLouve" a écrit dans le message de news:
%

merci pour ta réponse mais non ca ne fonctionne pas
il me dit qu'il ne trouve pas la valeur rechercher
....
bien essayer

"MichDenis" a écrit dans le message de
news:
Bonjour LaLouve,

à partir du menu édition Rechercher-Remplacer,

Tu entres le caractère ascii 160 qui est semblable au caractère ascii
32



qui est un espace.

pour saisir ce caractère (Ascii 160) dans la boîte de dialogue
Rechercher,


tu tapes 0160 en maintenant la touche Alt
(celle de gauche de la barre d'espacement) enfoncée. et tu laisses
vide



la
case "Remplacer"

Est-ce que cela fonctionne ?


Salutations!


"LaLouve" a écrit dans le message de news:
%

Bonsoir
quand je fais un transfert un fichier acess vers excel les cellules
vides


ne
le sont pas vraiment . en effet quand je fais la fonction nbval il
compte


toutes les lignes et non celles complétées de meme dans un cacul il
affiche

#valeur car il ne la considere pas comme vide alors qu'il n'y a rien à
l'ecran en faisant del sur la cellule en question tout se remet remet
dans

l'ordre mais le probleme c'est que j'ai souvent de gros fichiers et je
suis

obligée de reprendre chaque cellule par colonne et de faire del , y'a
t



il
un moyen pour aller plus vite
j'ai essayé par export de access vers excel, par liaison office et de
meme


par un copier coller tout simple mais j'ai toujours le probleme
merci beaucoup
la louve















Avatar
anonymousA
re,

envoies ton fichier si tu veux à

A+

j'ai decripté le chinois ...
j'ai lancé la macro et aucune cellule "vide" n'est en jaune ! cela prouve
bien qu'elle ne l'est pas mais pourquoi ??? mystère .....


"anonymousA" a écrit dans le message de
news:420a77d5$0$17267$

bon,

Mich Denis est sur le coup aussi et , me semble t-il , suis son conseil
sur le caractère ASCII qui met le souk.

dernier essai possible cependant, mais plus à titre de vérif qu'autre


chose:

Repère le N° de la dernière ligne de tes données. On pourrait passer par
une méthode de détermination de la dernière cellule utilisée mais il me
parait + judicieux de ne pas s'y fier compte tenu de ton problème.

Dans ce qui suit, je suppose toujours que c'est dans la colonne A que se
trouvent tes données.

Mettre dans un module standard le code suivant

Sub vides

dernièreligne= 'c'est ici que tu mets le N° de la dernière ligne

'si la colonne de tes données n'est pas A, il faut que tu changes 1 en
'le N° de la bonne colonne

for I=1 to dernièreligne
if isempty(cells(I,1)) then cells(I,1).interior.colorindex
next

end sub

Lancer la macro en s'étant au préalable assuré que tu es bien sur le
fichier et la feuille où sont tes données.

A l'issue de ce code, vérifies si tu as des cellules coloriées en jaune
et si celles-ci correspondent à tes cellules à problèmes.
les cellules en jaune sont normalement celles qui sont vides (réellement
au sens d'Excel).


J'espère que je ne t'ai pas parlé Chinois.

A+


j'ai oublié de dire que la fonction SUPPRESPACE
je l'avais testée aussi et cela ne fonctionne pas non plus , le seul



truc

que j'ai trouvé c'est la commande trier et selectionner les cellules



vides

(la il dit qu'elles sont vides ) et de faire supprimer mais comme mes
fichiers sont parfois enormes et cela m'oblige à faire ca à chaque



colonne

c'est la premiere fois je viens sur un forum et je me suis dis que cela
allait peut etre fonctionner












Avatar
anonymousA
re,

bon , j'ai pas encore trouvé de quoi il retourne exactement .

Ceci dit pour éliminer le problème, il te suffit de parcourir l'ensemble
des cellules concernées et d'écrire la procédure suivante en supposant
que tes données sont dans la colonne N°3 et que les données commencnet à
la ligne 2

for I=2 to dernièreligne
if len(cells(I,3).value)=0 then cells(I, 3).clearcontents
next

je chercherai encore

A+

j'ai decripté le chinois ...
j'ai lancé la macro et aucune cellule "vide" n'est en jaune ! cela prouve
bien qu'elle ne l'est pas mais pourquoi ??? mystère .....


"anonymousA" a écrit dans le message de
news:420a77d5$0$17267$

bon,

Mich Denis est sur le coup aussi et , me semble t-il , suis son conseil
sur le caractère ASCII qui met le souk.

dernier essai possible cependant, mais plus à titre de vérif qu'autre


chose:

Repère le N° de la dernière ligne de tes données. On pourrait passer par
une méthode de détermination de la dernière cellule utilisée mais il me
parait + judicieux de ne pas s'y fier compte tenu de ton problème.

Dans ce qui suit, je suppose toujours que c'est dans la colonne A que se
trouvent tes données.

Mettre dans un module standard le code suivant

Sub vides

dernièreligne= 'c'est ici que tu mets le N° de la dernière ligne

'si la colonne de tes données n'est pas A, il faut que tu changes 1 en
'le N° de la bonne colonne

for I=1 to dernièreligne
if isempty(cells(I,1)) then cells(I,1).interior.colorindex
next

end sub

Lancer la macro en s'étant au préalable assuré que tu es bien sur le
fichier et la feuille où sont tes données.

A l'issue de ce code, vérifies si tu as des cellules coloriées en jaune
et si celles-ci correspondent à tes cellules à problèmes.
les cellules en jaune sont normalement celles qui sont vides (réellement
au sens d'Excel).


J'espère que je ne t'ai pas parlé Chinois.

A+


j'ai oublié de dire que la fonction SUPPRESPACE
je l'avais testée aussi et cela ne fonctionne pas non plus , le seul



truc

que j'ai trouvé c'est la commande trier et selectionner les cellules



vides

(la il dit qu'elles sont vides ) et de faire supprimer mais comme mes
fichiers sont parfois enormes et cela m'oblige à faire ca à chaque



colonne

c'est la premiere fois je viens sur un forum et je me suis dis que cela
allait peut etre fonctionner












Avatar
LaLouve
merci ca fonctionne mais comment le faire sur toutes les colonnes ?
Avatar
anonymousA
bonsoir,


j'ai récupéré le fichier de notre honorable correspondante, mais j'ai
beau tourner le truc dans tous les sens,je sèche.
Je constate bien que dans ces cellules étranges, NBCAR(C10) me renvoie
0, NBVAL(C10) renvoie 1, =CODE(C10) renvoie #VALEUR,
=NB.SI(C10;"*")renvoie 1 , =1*C10 renvoie #VALEUR .

La procédure suivante

For I = 0 To 255
If Application.WorksheetFunction.CountIf(Cells(10, 3), Chr(I)) <> 0 Then
MsgBox I
End If
Next

renvoie I=0 et IB .

tous les essais sur Is quelquechose ne renvoient rien en dehors de If
IsObject(Cells(10, 3)) Then MsgBox "OK" renvoie OK mais c'est normal car
c'est un objet range.

Bref, rien de bien précis et concluant.Il y a bien quelque chose dans
cette cellule vu d'Excel.
On peut evidemment résoudre son problème (cf ma dernière réponse à son
endroit) mais ca n'explique rien fondamentalement et c'est bien ça qui
m'agace.

As-tu une idée ?

A+




Utilise cette adresse http://cjoint.com/ pour rendre accessible seulement une petite portion de la plage en question
de ton fichier. Met de la couleur sur le fond des cellules concernées .... et publie ici le lien qui rendra ton fichier
accessible.

Ton fichier ne doit pas faire plus de 250 Kilo octets.


Salutations!



"LaLouve" a écrit dans le message de news:
cool !!
mais encore raté il met #VALEUR!
y'a pas moyen de trouver cette valeur !!!
les lois de 'linformatique sont impénétrables


"MichDenis" a écrit dans le message de
news:efXu$

Bonjour LaLouve,

en remplaçant A1 par l'une des cellules "vides" de ta plage de données,

Si tu utilises la fonction =Code(A1) , cela va te donner le code Ascii du


caractère qui se trouve dans tes cellules

"vides". Cela aide de savoir ce qui se trouve dans la cellule pour pouvoir


élaborer une stratégie !!!


Salutations!


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


%

merci pour ta réponse mais non ca ne fonctionne pas
il me dit qu'il ne trouve pas la valeur rechercher
....
bien essayer

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

Bonjour LaLouve,

à partir du menu édition Rechercher-Remplacer,

Tu entres le caractère ascii 160 qui est semblable au caractère ascii 32


qui est un espace.

pour saisir ce caractère (Ascii 160) dans la boîte de dialogue



Rechercher,

tu tapes 0160 en maintenant la touche Alt

(celle de gauche de la barre d'espacement) enfoncée. et tu laisses vide



la

case "Remplacer"

Est-ce que cela fonctionne ?


Salutations!


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


%

Bonsoir
quand je fais un transfert un fichier acess vers excel les cellules



vides

ne

le sont pas vraiment . en effet quand je fais la fonction nbval il



compte

toutes les lignes et non celles complétées de meme dans un cacul il


affiche

#valeur car il ne la considere pas comme vide alors qu'il n'y a rien à
l'ecran en faisant del sur la cellule en question tout se remet remet


dans

l'ordre mais le probleme c'est que j'ai souvent de gros fichiers et je


suis

obligée de reprendre chaque cellule par colonne et de faire del , y'a t



il

un moyen pour aller plus vite
j'ai essayé par export de access vers excel, par liaison office et de



meme

par un copier coller tout simple mais j'ai toujours le probleme
merci beaucoup
la louve















Avatar
MichDenis
Bonjour LaLouve

Voici quelques tests :

Len(Unecellule) = 0
=Nb.Vide(LesCellules) , il fait un bon dénombrement des cellules vides !

En VBA, la méthode : ClearContents a aucun effet sur le contenu des cellules. En temps normal, elle devrait effacer tous
les caractères contenus dans une cellule.

IL n'y a pas d'apostrophe ' qui signifie que la cellule est au au format texte.

= Code(une cellule) renvoie Valeur ... dont impossibilité de lire la valeur ascii du caractère.

Il ne s'agit évidemment pas du caractère 160 (espace)

Cependant, le simple fait que la cellule passe en mode édition est suffisant pour solutionner le problème !

Sans avoir eu le temps de vérifier, est-ce possible qu'excel ne reconnaisse pas le caractère dans la cellule? Excel
utilise ANSI et je crois (?) qu'access utilise "Unicode" (basé sur 2 octets) .

Peut être qu'en utilisant Google, il y a moyen d'avoir plus d'information ....Tu peux toujours poser la question sur le
forum Access.

Comme je ne sais pas ce qu'il y a dans la cellule, il est difficile de trouver une façon d'automatiser la tâche de
suppression.


Si j'ai un peu de temps... et que je trouve quelque chose... je te le ferai savoir.


Salutations!





"LaLouve" a écrit dans le message de news:
http://cjoint.com/?cjwpHQob6R

voila c'est fait
merci beaucoup pour l'aide apportée

"MichDenis" a écrit dans le message de
news:
Utilise cette adresse http://cjoint.com/ pour rendre accessible
seulement une petite portion de la plage en question

de ton fichier. Met de la couleur sur le fond des cellules concernées ....
et publie ici le lien qui rendra ton fichier

accessible.

Ton fichier ne doit pas faire plus de 250 Kilo octets.


Salutations!



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


cool !!
mais encore raté il met #VALEUR!
y'a pas moyen de trouver cette valeur !!!
les lois de 'linformatique sont impénétrables


"MichDenis" a écrit dans le message de
news:efXu$
Bonjour LaLouve,

en remplaçant A1 par l'une des cellules "vides" de ta plage de données,

Si tu utilises la fonction =Code(A1) , cela va te donner le code Ascii
du


caractère qui se trouve dans tes cellules
"vides". Cela aide de savoir ce qui se trouve dans la cellule pour
pouvoir


élaborer une stratégie !!!


Salutations!


"LaLouve" a écrit dans le message de news:
%

merci pour ta réponse mais non ca ne fonctionne pas
il me dit qu'il ne trouve pas la valeur rechercher
....
bien essayer

"MichDenis" a écrit dans le message de
news:
Bonjour LaLouve,

à partir du menu édition Rechercher-Remplacer,

Tu entres le caractère ascii 160 qui est semblable au caractère ascii
32



qui est un espace.

pour saisir ce caractère (Ascii 160) dans la boîte de dialogue
Rechercher,


tu tapes 0160 en maintenant la touche Alt
(celle de gauche de la barre d'espacement) enfoncée. et tu laisses
vide



la
case "Remplacer"

Est-ce que cela fonctionne ?


Salutations!


"LaLouve" a écrit dans le message de news:
%

Bonsoir
quand je fais un transfert un fichier acess vers excel les cellules
vides


ne
le sont pas vraiment . en effet quand je fais la fonction nbval il
compte


toutes les lignes et non celles complétées de meme dans un cacul il
affiche

#valeur car il ne la considere pas comme vide alors qu'il n'y a rien à
l'ecran en faisant del sur la cellule en question tout se remet remet
dans

l'ordre mais le probleme c'est que j'ai souvent de gros fichiers et je
suis

obligée de reprendre chaque cellule par colonne et de faire del , y'a
t



il
un moyen pour aller plus vite
j'ai essayé par export de access vers excel, par liaison office et de
meme


par un copier coller tout simple mais j'ai toujours le probleme
merci beaucoup
la louve















Avatar
LaLouve
anonymousA m'a donné une solution pour effacer automatiquement ce caractère
"inconnu" qui me met la grouille
mais je ne suis pas douée en macro et je lui ai demandé comment faire pour
le faire sur plusieurs colonne en même temps
en fait il me faudrait une macro dans le classeur perso qui fonctionne à
chaque fois que je fais ce transfert et c'est plusieurs fois par jour
et je me fais avoir tout le temps avec ces maudites cellules dites "vides"
ceci dit je vous remercie vraiment beaucoup de cette aide apportée meme si
je comprends pas tout ce que vous me dites tous les 2
les fonctions je connais mais le VBA ..... je peux pas en dire autant mais
j'ai appris quelques petites choses ce soir
MERCI du fond du coeur
bonne nuit





"MichDenis" a écrit dans le message de
news:
Bonjour LaLouve

Voici quelques tests :

Len(Unecellule) = 0
=Nb.Vide(LesCellules) , il fait un bon dénombrement des cellules vides !

En VBA, la méthode : ClearContents a aucun effet sur le contenu des
cellules. En temps normal, elle devrait effacer tous

les caractères contenus dans une cellule.

IL n'y a pas d'apostrophe ' qui signifie que la cellule est au au format
texte.


= Code(une cellule) renvoie Valeur ... dont impossibilité de lire la
valeur ascii du caractère.


Il ne s'agit évidemment pas du caractère 160 (espace)

Cependant, le simple fait que la cellule passe en mode édition est
suffisant pour solutionner le problème !


Sans avoir eu le temps de vérifier, est-ce possible qu'excel ne
reconnaisse pas le caractère dans la cellule? Excel

utilise ANSI et je crois (?) qu'access utilise "Unicode" (basé sur 2
octets) .


Peut être qu'en utilisant Google, il y a moyen d'avoir plus d'information
....Tu peux toujours poser la question sur le

forum Access.

Comme je ne sais pas ce qu'il y a dans la cellule, il est difficile de
trouver une façon d'automatiser la tâche de

suppression.


Si j'ai un peu de temps... et que je trouve quelque chose... je te le
ferai savoir.



Salutations!





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


http://cjoint.com/?cjwpHQob6R

voila c'est fait
merci beaucoup pour l'aide apportée

"MichDenis" a écrit dans le message de
news:
Utilise cette adresse http://cjoint.com/ pour rendre accessible
seulement une petite portion de la plage en question

de ton fichier. Met de la couleur sur le fond des cellules concernées
....


et publie ici le lien qui rendra ton fichier
accessible.

Ton fichier ne doit pas faire plus de 250 Kilo octets.


Salutations!



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


cool !!
mais encore raté il met #VALEUR!
y'a pas moyen de trouver cette valeur !!!
les lois de 'linformatique sont impénétrables


"MichDenis" a écrit dans le message de
news:efXu$
Bonjour LaLouve,

en remplaçant A1 par l'une des cellules "vides" de ta plage de
données,




Si tu utilises la fonction =Code(A1) , cela va te donner le code Ascii
du


caractère qui se trouve dans tes cellules
"vides". Cela aide de savoir ce qui se trouve dans la cellule pour
pouvoir


élaborer une stratégie !!!


Salutations!


"LaLouve" a écrit dans le message de news:
%

merci pour ta réponse mais non ca ne fonctionne pas
il me dit qu'il ne trouve pas la valeur rechercher
....
bien essayer

"MichDenis" a écrit dans le message de
news:
Bonjour LaLouve,

à partir du menu édition Rechercher-Remplacer,

Tu entres le caractère ascii 160 qui est semblable au caractère
ascii




32
qui est un espace.

pour saisir ce caractère (Ascii 160) dans la boîte de dialogue
Rechercher,


tu tapes 0160 en maintenant la touche Alt
(celle de gauche de la barre d'espacement) enfoncée. et tu laisses
vide



la
case "Remplacer"

Est-ce que cela fonctionne ?


Salutations!


"LaLouve" a écrit dans le message de news:
%

Bonsoir
quand je fais un transfert un fichier acess vers excel les cellules
vides


ne
le sont pas vraiment . en effet quand je fais la fonction nbval il
compte


toutes les lignes et non celles complétées de meme dans un cacul il
affiche

#valeur car il ne la considere pas comme vide alors qu'il n'y a rien
à




l'ecran en faisant del sur la cellule en question tout se remet
remet




dans
l'ordre mais le probleme c'est que j'ai souvent de gros fichiers et
je




suis
obligée de reprendre chaque cellule par colonne et de faire del ,
y'a




t
il
un moyen pour aller plus vite
j'ai essayé par export de access vers excel, par liaison office et
de




meme
par un copier coller tout simple mais j'ai toujours le probleme
merci beaucoup
la louve




















Avatar
MichDenis
Bonjour LaLouve,

Je te propose une façon de faire qui devrait faire disparaître tes difficultés :

Dans cette procédure, modifie la chaîne pour ta requête des données à exporter !
Modifie le chemin et le nom de ta base de données Access
Modifie le nom de la feuille et la cellule de départ devrant recevoir le recordset.

'----------------------------------------------
Sub ExecuterRequeteAccess()

'Charger la référence suivante dans ton classeur excel :
'Microsoft Activex Data objects 2.0 librairy

Dim Con As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Requete As String
Dim BaseAccess As String

BaseAccess = "C:excelAccessComptoir.mdb" à déterminer
Requete = "Select * From Toto" ' à déterminer

'ouvre la connextion
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & BaseAccess & ";"

'ouvre le recordset
Rst.Open Requete, Con, adOpenKeyset, adLockOptimistic

If Rst.BOF = True And Rst.EOF = True Then
MsgBox "Aucun enregistrement trouvé."
Else
'copie le recordset
With Worksheets("Feuil1") 'à déterminer
.Range("A1").CopyFromRecordset Rst
End With
End If

'Libère la mémoire
Rst.Close: Con.Close
Set Rst = Nothing: Set Con = Nothing

End Sub
'-----------------------------------


Salutations!



"LaLouve" a écrit dans le message de news: %
Bonsoir
quand je fais un transfert un fichier acess vers excel les cellules vides ne
le sont pas vraiment . en effet quand je fais la fonction nbval il compte
toutes les lignes et non celles complétées de meme dans un cacul il affiche
#valeur car il ne la considere pas comme vide alors qu'il n'y a rien à
l'ecran en faisant del sur la cellule en question tout se remet remet dans
l'ordre mais le probleme c'est que j'ai souvent de gros fichiers et je suis
obligée de reprendre chaque cellule par colonne et de faire del , y'a t il
un moyen pour aller plus vite
j'ai essayé par export de access vers excel, par liaison office et de meme
par un copier coller tout simple mais j'ai toujours le probleme
merci beaucoup
la louve
Avatar
anomymousA
for J=1 to dernièrecolonne
for I=2 to dernièreligne
if len(cells(I,J).value)=0 then cells(I, J).clearcontents
next
next

A+


merci ca fonctionne mais comment le faire sur toutes les colonnes ?





1 2