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 supprimer lignes vides (marche pas)

supprimer lignes vides (marche pas)

29 réponses
Avatar
gilles
bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour supprimer les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
Pounet95
Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne' itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72


Avatar
gilles
bonsoir pounet
merci de ta réponse
veux-tu dire que pour la colonne L en particulier il n' ya pas le même
nombre de lignes?
ou plutot que cette cellule L65536 est reservée à un usage donné?
et pas les colonnes suivantes?
J' ai essayé avec la colonne D et c'est pas mieux

merci de ton aide , de toutes façons
à+

--
gilles72



Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne' itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72






Avatar
Pounet95
Re bonsoir,
Non, je veux dire que la colonne L n'existe pas !
En Excel2000 (pour avant je ne sais plus) , chaque onglet possède 65536
lignes et 256 colonnes
( d'ou les lettres A à IV )
Pour vérifier, change dans le menu Outils/Options onglet Général
Coche la case option Style de référence L1C1 et regarde tout à droite en bas
: la dernière cellule est IV65536 (1)

En ce qui concerne ton code, il faut donc changer le L de L65536 par IV au
pire. Et là ça fonctionnera.


nota (1) : il parait que c'est la cachette favorite ( voire cachot ! ) de
certains qui sévissent sur ce forum.
perso, je n'y suis jamais allé ......
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonsoir pounet
merci de ta réponse
veux-tu dire que pour la colonne L en particulier il n' ya pas le même
nombre de lignes?
ou plutot que cette cellule L65536 est reservée à un usage donné?
et pas les colonnes suivantes?
J' ai essayé avec la colonne D et c'est pas mieux

merci de ton aide , de toutes façons
à+

--
gilles72



Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne'
itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message
suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72








Avatar
Daniel
Tu fais très fort !, le 17 novembre est pourtant passé et les fêtes de fin
d'année pas encore arrivées, encore moins le prremier avril. Prendre le
nommage des colonnes pour des chiffres romains ;-)))
Sérieusement, Gilles, ton code fonctionne, chez moi. Essaie-le avec un autre
classeur.
Cordialement.
Daniel
"Pounet95" a écrit dans le message de news:
%235A2B3C$
Re bonsoir,
Non, je veux dire que la colonne L n'existe pas !
En Excel2000 (pour avant je ne sais plus) , chaque onglet possède 65536
lignes et 256 colonnes
( d'ou les lettres A à IV )
Pour vérifier, change dans le menu Outils/Options onglet Général
Coche la case option Style de référence L1C1 et regarde tout à droite en
bas : la dernière cellule est IV65536 (1)

En ce qui concerne ton code, il faut donc changer le L de L65536 par IV au
pire. Et là ça fonctionnera.


nota (1) : il parait que c'est la cachette favorite ( voire cachot ! ) de
certains qui sévissent sur ce forum.
perso, je n'y suis jamais allé ......
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"gilles" a écrit dans le message de
news:
bonsoir pounet
merci de ta réponse
veux-tu dire que pour la colonne L en particulier il n' ya pas le même
nombre de lignes?
ou plutot que cette cellule L65536 est reservée à un usage donné?
et pas les colonnes suivantes?
J' ai essayé avec la colonne D et c'est pas mieux

merci de ton aide , de toutes façons
à+

--
gilles72



Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne'
itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour
supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message
suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72











Avatar
Pounet95
Bonsoir Daniel,

Alors là, je ne pige pas, mais pas du tout !
Voudrais-tu dire que la cellule L65536 existe ?
.... ou alors il s'agit de l'interprétation de la notation L1C1 et que dans
ce cas la colonne est par défaut la 1 ?????
Je suis preneur des confiramtions/infirmations

Suis-je si fatigué que cela ? 17 novembre , qu'y a-t-il de si particulier ce
jour ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Daniel" a écrit dans le message de news:
u0zTQBD$
Tu fais très fort !, le 17 novembre est pourtant passé et les fêtes de fin
d'année pas encore arrivées, encore moins le prremier avril. Prendre le
nommage des colonnes pour des chiffres romains ;-)))
Sérieusement, Gilles, ton code fonctionne, chez moi. Essaie-le avec un
autre classeur.
Cordialement.
Daniel
"Pounet95" a écrit dans le message de news:
%235A2B3C$
Re bonsoir,
Non, je veux dire que la colonne L n'existe pas !
En Excel2000 (pour avant je ne sais plus) , chaque onglet possède 65536
lignes et 256 colonnes
( d'ou les lettres A à IV )
Pour vérifier, change dans le menu Outils/Options onglet Général
Coche la case option Style de référence L1C1 et regarde tout à droite en
bas : la dernière cellule est IV65536 (1)

En ce qui concerne ton code, il faut donc changer le L de L65536 par IV
au pire. Et là ça fonctionnera.


nota (1) : il parait que c'est la cachette favorite ( voire cachot ! ) de
certains qui sévissent sur ce forum.
perso, je n'y suis jamais allé ......
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"gilles" a écrit dans le message de
news:
bonsoir pounet
merci de ta réponse
veux-tu dire que pour la colonne L en particulier il n' ya pas le même
nombre de lignes?
ou plutot que cette cellule L65536 est reservée à un usage donné?
et pas les colonnes suivantes?
J' ai essayé avec la colonne D et c'est pas mieux

merci de ton aide , de toutes façons
à+

--
gilles72



Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne'
itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour
supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message
suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72















Avatar
Daniel
Tu te moques de moi, mais tu vas être surpris :
Fais Edition / Atteindre, Référence : L65536, tu vas être surpris !
Cordialement.
Daniel
"Pounet95" a écrit dans le message de news:
OzUrAdD$
Bonsoir Daniel,

Alors là, je ne pige pas, mais pas du tout !
Voudrais-tu dire que la cellule L65536 existe ?
.... ou alors il s'agit de l'interprétation de la notation L1C1 et que
dans ce cas la colonne est par défaut la 1 ?????
Je suis preneur des confiramtions/infirmations

Suis-je si fatigué que cela ? 17 novembre , qu'y a-t-il de si particulier
ce jour ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Daniel" a écrit dans le message de news:
u0zTQBD$
Tu fais très fort !, le 17 novembre est pourtant passé et les fêtes de
fin d'année pas encore arrivées, encore moins le prremier avril. Prendre
le nommage des colonnes pour des chiffres romains ;-)))
Sérieusement, Gilles, ton code fonctionne, chez moi. Essaie-le avec un
autre classeur.
Cordialement.
Daniel
"Pounet95" a écrit dans le message de news:
%235A2B3C$
Re bonsoir,
Non, je veux dire que la colonne L n'existe pas !
En Excel2000 (pour avant je ne sais plus) , chaque onglet possède 65536
lignes et 256 colonnes
( d'ou les lettres A à IV )
Pour vérifier, change dans le menu Outils/Options onglet Général
Coche la case option Style de référence L1C1 et regarde tout à droite en
bas : la dernière cellule est IV65536 (1)

En ce qui concerne ton code, il faut donc changer le L de L65536 par IV
au pire. Et là ça fonctionnera.


nota (1) : il parait que c'est la cachette favorite ( voire cachot ! )
de certains qui sévissent sur ce forum.
perso, je n'y suis jamais allé ......
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"gilles" a écrit dans le message de
news:
bonsoir pounet
merci de ta réponse
veux-tu dire que pour la colonne L en particulier il n' ya pas le même
nombre de lignes?
ou plutot que cette cellule L65536 est reservée à un usage donné?
et pas les colonnes suivantes?
J' ai essayé avec la colonne D et c'est pas mieux

merci de ton aide , de toutes façons
à+

--
gilles72



Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne'
itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour
supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message
suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72


















Avatar
gilles
bonsoir à vous Oh dieux du vba POUNET et DANIEL
...et merci de vous pencher sur mon humble petit pb

pour POUNET si la colonne L n'existe pas, la colonne C existe et fonctionne
, mais je vais essayer ton conseil pour voir quelle marche j'ai loupé
Pour DANIEL si tu as testé surun classeur vierge et que ça marche , c'est
peut être un pb de version xl
je m'en vas voir ça
merci à vous deux
à+
--
gilles72



Re bonsoir,
Non, je veux dire que la colonne L n'existe pas !
En Excel2000 (pour avant je ne sais plus) , chaque onglet possède 65536
lignes et 256 colonnes
( d'ou les lettres A à IV )
Pour vérifier, change dans le menu Outils/Options onglet Général
Coche la case option Style de référence L1C1 et regarde tout à droite en bas
: la dernière cellule est IV65536 (1)

En ce qui concerne ton code, il faut donc changer le L de L65536 par IV au
pire. Et là ça fonctionnera.


nota (1) : il parait que c'est la cachette favorite ( voire cachot ! ) de
certains qui sévissent sur ce forum.
perso, je n'y suis jamais allé ......
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonsoir pounet
merci de ta réponse
veux-tu dire que pour la colonne L en particulier il n' ya pas le même
nombre de lignes?
ou plutot que cette cellule L65536 est reservée à un usage donné?
et pas les colonnes suivantes?
J' ai essayé avec la colonne D et c'est pas mieux

merci de ton aide , de toutes façons
à+

--
gilles72



Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne'
itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message
suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72












Avatar
Pounet95
Bonsoir ou re,
Je ne me moque de personne, même quand je tente de faire un peu d'humour,
c'est toujours dans le respect des autres.
Ceci étant dit, je constate que je suis TRES fatigué en effet. Ton message
vient de me faire comprendre ce que je qualifierais
d'aveuglement. Je m'explique : depuis le début, et pour quelle raison je ne
sais pas, je considère que les
colonnes sont classées alphabétiquement et que I étant avant L, il ne
pouvait y avoir de colonne L. J'ai totalement fait abstraction
du classement A-Z,AA-AZ, etc
mea culpa
:o[

Mais surtout, je répète : je ne moque pas et essaierai de ne jamais le
faire.
Quant au 17 novembre, toujours pas compris ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Daniel" a écrit dans le message de news:
umvUZiD$
Tu te moques de moi, mais tu vas être surpris :
Fais Edition / Atteindre, Référence : L65536, tu vas être surpris !
Cordialement.
Daniel
"Pounet95" a écrit dans le message de news:
OzUrAdD$
Bonsoir Daniel,

Alors là, je ne pige pas, mais pas du tout !
Voudrais-tu dire que la cellule L65536 existe ?
.... ou alors il s'agit de l'interprétation de la notation L1C1 et que
dans ce cas la colonne est par défaut la 1 ?????
Je suis preneur des confiramtions/infirmations

Suis-je si fatigué que cela ? 17 novembre , qu'y a-t-il de si particulier
ce jour ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Daniel" a écrit dans le message de news:
u0zTQBD$
Tu fais très fort !, le 17 novembre est pourtant passé et les fêtes de
fin d'année pas encore arrivées, encore moins le prremier avril. Prendre
le nommage des colonnes pour des chiffres romains ;-)))
Sérieusement, Gilles, ton code fonctionne, chez moi. Essaie-le avec un
autre classeur.
Cordialement.
Daniel
"Pounet95" a écrit dans le message de news:
%235A2B3C$
Re bonsoir,
Non, je veux dire que la colonne L n'existe pas !
En Excel2000 (pour avant je ne sais plus) , chaque onglet possède 65536
lignes et 256 colonnes
( d'ou les lettres A à IV )
Pour vérifier, change dans le menu Outils/Options onglet Général
Coche la case option Style de référence L1C1 et regarde tout à droite
en bas : la dernière cellule est IV65536 (1)

En ce qui concerne ton code, il faut donc changer le L de L65536 par IV
au pire. Et là ça fonctionnera.


nota (1) : il parait que c'est la cachette favorite ( voire cachot ! )
de certains qui sévissent sur ce forum.
perso, je n'y suis jamais allé ......
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"gilles" a écrit dans le message de
news:
bonsoir pounet
merci de ta réponse
veux-tu dire que pour la colonne L en particulier il n' ya pas le
même
nombre de lignes?
ou plutot que cette cellule L65536 est reservée à un usage donné?
et pas les colonnes suivantes?
J' ai essayé avec la colonne D et c'est pas mieux

merci de ton aide , de toutes façons
à+

--
gilles72



Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne'
itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour
supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message
suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72






















Avatar
Pounet95
Re bonsoir,
Comme tu l'as peut ^tre lu, je me suis totalement planté obnubilé que
j'étais par l'ordre
des colonnes que je croyais être le bon.
Sinon, effectivement ça marche aussi bien chez moi ( XL2000 )
Et puis, étant né il y quelques années du côté des 'connériens', suis ravi
de pouvoir
( d'essayer ) aider un pays.
Vive les rillettes, les oignons (sais plus si la foire existe toujours ? )
et les 24h ....

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonsoir à vous Oh dieux du vba POUNET et DANIEL
...et merci de vous pencher sur mon humble petit pb

pour POUNET si la colonne L n'existe pas, la colonne C existe et
fonctionne
, mais je vais essayer ton conseil pour voir quelle marche j'ai loupé
Pour DANIEL si tu as testé surun classeur vierge et que ça marche , c'est
peut être un pb de version xl
je m'en vas voir ça
merci à vous deux
à+
--
gilles72



Re bonsoir,
Non, je veux dire que la colonne L n'existe pas !
En Excel2000 (pour avant je ne sais plus) , chaque onglet possède 65536
lignes et 256 colonnes
( d'ou les lettres A à IV )
Pour vérifier, change dans le menu Outils/Options onglet Général
Coche la case option Style de référence L1C1 et regarde tout à droite en
bas
: la dernière cellule est IV65536 (1)

En ce qui concerne ton code, il faut donc changer le L de L65536 par IV
au
pire. Et là ça fonctionnera.


nota (1) : il parait que c'est la cachette favorite ( voire cachot ! ) de
certains qui sévissent sur ce forum.
perso, je n'y suis jamais allé ......
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonsoir pounet
merci de ta réponse
veux-tu dire que pour la colonne L en particulier il n' ya pas le même
nombre de lignes?
ou plutot que cette cellule L65536 est reservée à un usage donné?
et pas les colonnes suivantes?
J' ai essayé avec la colonne D et c'est pas mieux

merci de ton aide , de toutes façons
à+

--
gilles72



Bonsoir,
Sauf erreur de ma part, je crois que la cellule L65536 n'existe pas.
Excel ( version 2000 en tout cas et suivantes je 'péripatéticienne'
itou )
Dernière colonne =IV
Dernière cellule donc IV65536


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

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

bonjour à tous
J'utilise les 2 codes ci-dessous, placés dans lafeuille, pour
supprimer
les
lignes vides si:
- il n'y a rien dans les cellules de la colonne C
- il n'y a rien dans les cellules de la colonne L

Sub supprimerLigne()
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i) = Empty Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Sub suppTitresInutiles()
For j = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & j) = Empty Then Rows(j).Delete Shift:=xlUp
Next
End Sub

Le premier fonctione nickel
le deuxième refuse de fonctionner et VBA me renvoit le message
suivant:

Erreur d'exécution 13
incompatibilité de type

Y aurait-il des vbatistes éclairés pour m'aider à solutionner ce pb
merci d'avance
--
gilles72














Avatar
Daniel
"Pounet95" a écrit dans le message de news:
%23yu7voD$
Bonsoir ou re,
Je ne me moque de personne, même quand je tente de faire un peu d'humour,
c'est toujours dans le respect des autres.


Je pensais, justement que tu plaisantais et je ne le prenais pas en mauvaise
part, mais, c'est vrai qu'une erreur, plus elle est évidente et plus on a de
mal à, parfois, la voir.
Cordialement.
Daniel

1 2 3