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
Patrick BASTARD
Bonsoir, *Pounet95*

Des évidences tellement évidentes qu'elles ne sont pas évidentes.
;-)

En tout cas, chapeau bas pour ton dernier post, qui est la démonstration de
l'esprit de ces lieux :
- Aider, dans la mesure de ses possibilités, juste pour le plaisir de
partager,
- Savoir rester humble et modeste ( bonsour, Modeste),
- Conserver ce sens de l'humour qui apporte un peu d'humanité à cette grande
feuille remplie de données qui en manquent souvent.
Tout ça dans le respect de l'Autre quelle que soit sa question, quel que
soit son niveau.
(Un minimum de politesse est cependant apprécié).

Bon, ben après tout ça, moi, j'vais m'coucher.

Bonne nuit, toutes et tous.

--
Bien amicordialement,
P. Bastard



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 ?


"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
Clément Marcotte
Bonjour,

Donc LL n'a pas "sa" colonne ;-)))))

"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.
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
Modeste
Bonsour® Pounet95 avec ferveur ;o))) vous nous disiez :
Je ne me moque de personne, même quand je tente de faire un peu d'humour,
J'ai totalement fait abstraction du classement A-Z,AA-AZ, etc


l'abstraction te troubles encore ;o)))
A-Z, AA-IV !!!!!

Quant au 17 novembre, toujours pas compris ?


Là cela devient limite !!!!
;o)))
la moutarde monte au nez [Coucou Patrick17 ], parler du 17 novembre, en lieu
et place du 17 décembre
c'est Patrick qui va faire abstraction ;o)))

abstraction encore :
gilles72 c'est peut-etre son année de naissance ???

Abstraction ??
BAHIER et Cie (je connais bien j'ai vécu 30 ans dans la sarthe)
;o)))
de même quelle est l'abstraction entre Pounet95 et moi-même ????
un indice (insee) : 1490278491xxx

--
Modeste59 GeeDee49 né buccardésien
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

Avatar
Pounet95
Bonjour Modeste et tout le monde,
Comment ! je n'ai pas bien écrit : A-Z,AA-AZ et le etc ça veut dire quoi,
hein ?
Il me semblait bien qu'il y avait erreur sur le mois associé au 17, mais
comme j'étais
encore sous le choc de mon énormité ( je parle de l'existence de la colonne
L, bien sûr )
je n'ai pas osé relever ( ma timidité me perdra )
Effectivement, j'ai fait un rapprochement hatif entre mon pseudo et celui de
Gilles en pensant
qu'il devait être Sarthois sinon de naissance, mais au moins y habitant.
Et, au passage, imagines s'il fait le même rapprochement que moi quant à la
construction du pseudo :
cela veut dire que j'ai 10 ans et que je suis plutôt précoce pour manier
Excel ;o))))
Je suis né dans la Sarthe, mais n'y est vécu que jusqu'à 2 ans. Mais ma
famille étant toujours dans
la région, cela m'a permis de connaître les rillettes LHUISSIER ( à Connéré
aussi mais fermées depuis déjà quelques années),
BAHIER, etc
Pour terminer l'indice INSEE : 1510772xxxxxx

Bonne journée et au plaisir d'échanger sur ce forum
--
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...)

"Modeste" a écrit dans le message de news:
eTsz3FF$
Bonsour® Pounet95 avec ferveur ;o))) vous nous disiez :
Je ne me moque de personne, même quand je tente de faire un peu d'humour,
J'ai totalement fait abstraction du classement A-Z,AA-AZ, etc


l'abstraction te troubles encore ;o)))
A-Z, AA-IV !!!!!

Quant au 17 novembre, toujours pas compris ?


Là cela devient limite !!!!
;o)))
la moutarde monte au nez [Coucou Patrick17 ], parler du 17 novembre, en
lieu et place du 17 décembre
c'est Patrick qui va faire abstraction ;o)))

abstraction encore :
gilles72 c'est peut-etre son année de naissance ???

Abstraction ??
BAHIER et Cie (je connais bien j'ai vécu 30 ans dans la sarthe)
;o)))
de même quelle est l'abstraction entre Pounet95 et moi-même ????
un indice (insee) : 1490278491xxx

--
Modeste59 GeeDee49 né buccardésien
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr





Avatar
Pounet95
Bonjour,
Je n'aime pas rester sur un "échec" et je tente de trouver une explication
au problème.
Alors la nuit aidant, je reprends le fil.

Suggestion : n'y aurait-il pas dans le code de l'appli une variable PUBLIC
nommée J de type STRING ?
j'ai essayé dans le module où j'ai recopié ton code de déclarer la variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne
en la déclarant en type Integer, j'ai l'erreur Dépassement de capacité
en la déclarant en type String, j'ai l'erreur"Erreur de compilation
Incompatibilité de type"

donc, peut-être chercher de ce côté !!!
Bonne journée

--
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
Salut ta toi pounet
ainsi qu'au Modeste dieu vbatiste qui a partagé les échanges que je n'ai lus
que ce midi ,et aux autres belligérants de ce combat épique (et piquant pour
l'amour propre!!)
je suis effectivement "rillettes" du mans donc la-dessus , t'as bon!
La foire eux oignons existe bien , t'as bonne mémoire

En regardant l'aide en ligne, j'ai le sentiment que ça vient d'un pb de
déclaration
Quand tu dis:

j'ai essayé dans le module où j'ai recopié ton code de déclarer la variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne

Comment fais tu?
tu rajoutes une ligne au code?

effectivement j'ai bien aussi "incompatibilité de type" ce qui indiquerait
que c'est considéré comme integer
Par contre, pourquoi ça marche avec le 1er code
les codes sont placés dans le module de la feuille
j'ai essayé de placer le code dans un module séparé en ajoutant au début
feuille ("onglet").select

j'obtiens erreur400
la letrre j de la variable était i à l'origine mais le résultat était le même
Pour être honnête, je suis un modeste (sans majuscule)VBAtiste qui manque
d'assiduité
Si tu repasses par ce mesage, encore merci
...et continuez sur le registre de l'humour : c'est bcp plusse mieux
--
gilles72



Bonjour,
Je n'aime pas rester sur un "échec" et je tente de trouver une explication
au problème.
Alors la nuit aidant, je reprends le fil.

Suggestion : n'y aurait-il pas dans le code de l'appli une variable PUBLIC
nommée J de type STRING ?
j'ai essayé dans le module où j'ai recopié ton code de déclarer la variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne
en la déclarant en type Integer, j'ai l'erreur Dépassement de capacité
en la déclarant en type String, j'ai l'erreur"Erreur de compilation
Incompatibilité de type"

donc, peut-être chercher de ce côté !!!
Bonne journée

--
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
Bonjour.
Si tu pouvais poster ton classeur sur www.cjoint.com, ça serait bien
(éventuellement, change les données sensible).
Cordialement.
Daniel
"gilles" a écrit dans le message de news:

Salut ta toi pounet
ainsi qu'au Modeste dieu vbatiste qui a partagé les échanges que je n'ai
lus
que ce midi ,et aux autres belligérants de ce combat épique (et piquant
pour
l'amour propre!!)
je suis effectivement "rillettes" du mans donc la-dessus , t'as bon!
La foire eux oignons existe bien , t'as bonne mémoire

En regardant l'aide en ligne, j'ai le sentiment que ça vient d'un pb de
déclaration
Quand tu dis:

j'ai essayé dans le module où j'ai recopié ton code de déclarer la
variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne

Comment fais tu?
tu rajoutes une ligne au code?

effectivement j'ai bien aussi "incompatibilité de type" ce qui indiquerait
que c'est considéré comme integer
Par contre, pourquoi ça marche avec le 1er code
les codes sont placés dans le module de la feuille
j'ai essayé de placer le code dans un module séparé en ajoutant au début
feuille ("onglet").select

j'obtiens erreur400
la letrre j de la variable était i à l'origine mais le résultat était le
même
Pour être honnête, je suis un modeste (sans majuscule)VBAtiste qui manque
d'assiduité
Si tu repasses par ce mesage, encore merci
...et continuez sur le registre de l'humour : c'est bcp plusse mieux
--
gilles72



Bonjour,
Je n'aime pas rester sur un "échec" et je tente de trouver une
explication
au problème.
Alors la nuit aidant, je reprends le fil.

Suggestion : n'y aurait-il pas dans le code de l'appli une variable
PUBLIC
nommée J de type STRING ?
j'ai essayé dans le module où j'ai recopié ton code de déclarer la
variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne
en la déclarant en type Integer, j'ai l'erreur Dépassement de capacité
en la déclarant en type String, j'ai l'erreur"Erreur de compilation
Incompatibilité de type"

donc, peut-être chercher de ce côté !!!
Bonne journée

--
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 Daniel
OK
merci pour on aide
j'essaie de t'envoyer ce fichier qui n'a rien de confidentiel
à+
--
gilles72



Bonjour.
Si tu pouvais poster ton classeur sur www.cjoint.com, ça serait bien
(éventuellement, change les données sensible).
Cordialement.
Daniel
"gilles" a écrit dans le message de news:

Salut ta toi pounet
ainsi qu'au Modeste dieu vbatiste qui a partagé les échanges que je n'ai
lus
que ce midi ,et aux autres belligérants de ce combat épique (et piquant
pour
l'amour propre!!)
je suis effectivement "rillettes" du mans donc la-dessus , t'as bon!
La foire eux oignons existe bien , t'as bonne mémoire

En regardant l'aide en ligne, j'ai le sentiment que ça vient d'un pb de
déclaration
Quand tu dis:

j'ai essayé dans le module où j'ai recopié ton code de déclarer la
variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne

Comment fais tu?
tu rajoutes une ligne au code?

effectivement j'ai bien aussi "incompatibilité de type" ce qui indiquerait
que c'est considéré comme integer
Par contre, pourquoi ça marche avec le 1er code
les codes sont placés dans le module de la feuille
j'ai essayé de placer le code dans un module séparé en ajoutant au début
feuille ("onglet").select

j'obtiens erreur400
la letrre j de la variable était i à l'origine mais le résultat était le
même
Pour être honnête, je suis un modeste (sans majuscule)VBAtiste qui manque
d'assiduité
Si tu repasses par ce mesage, encore merci
...et continuez sur le registre de l'humour : c'est bcp plusse mieux
--
gilles72



Bonjour,
Je n'aime pas rester sur un "échec" et je tente de trouver une
explication
au problème.
Alors la nuit aidant, je reprends le fil.

Suggestion : n'y aurait-il pas dans le code de l'appli une variable
PUBLIC
nommée J de type STRING ?
j'ai essayé dans le module où j'ai recopié ton code de déclarer la
variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne
en la déclarant en type Integer, j'ai l'erreur Dépassement de capacité
en la déclarant en type String, j'ai l'erreur"Erreur de compilation
Incompatibilité de type"

donc, peut-être chercher de ce côté !!!
Bonne journée

--
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
Daniel,
j'ai envoyé le fichier
pour info kek zexplications
tu double-click dans la colonne A de "lma complet"
sur l'onglet "extraction", ça reporte les données
sur l'onglet "liste des inscriptions" tu click sur le bouton jaune, pour
recopier et regrouper
la 2ème macro (qui ne marche pas) n'a pas de bouton pour l'instant
je la lance pour l'instant depuis la fenetre VBA

merci encore kelkesoit le resultat!
à+
--
gilles72



Bonjour.
Si tu pouvais poster ton classeur sur www.cjoint.com, ça serait bien
(éventuellement, change les données sensible).
Cordialement.
Daniel
"gilles" a écrit dans le message de news:

Salut ta toi pounet
ainsi qu'au Modeste dieu vbatiste qui a partagé les échanges que je n'ai
lus
que ce midi ,et aux autres belligérants de ce combat épique (et piquant
pour
l'amour propre!!)
je suis effectivement "rillettes" du mans donc la-dessus , t'as bon!
La foire eux oignons existe bien , t'as bonne mémoire

En regardant l'aide en ligne, j'ai le sentiment que ça vient d'un pb de
déclaration
Quand tu dis:

j'ai essayé dans le module où j'ai recopié ton code de déclarer la
variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne

Comment fais tu?
tu rajoutes une ligne au code?

effectivement j'ai bien aussi "incompatibilité de type" ce qui indiquerait
que c'est considéré comme integer
Par contre, pourquoi ça marche avec le 1er code
les codes sont placés dans le module de la feuille
j'ai essayé de placer le code dans un module séparé en ajoutant au début
feuille ("onglet").select

j'obtiens erreur400
la letrre j de la variable était i à l'origine mais le résultat était le
même
Pour être honnête, je suis un modeste (sans majuscule)VBAtiste qui manque
d'assiduité
Si tu repasses par ce mesage, encore merci
...et continuez sur le registre de l'humour : c'est bcp plusse mieux
--
gilles72



Bonjour,
Je n'aime pas rester sur un "échec" et je tente de trouver une
explication
au problème.
Alors la nuit aidant, je reprends le fil.

Suggestion : n'y aurait-il pas dans le code de l'appli une variable
PUBLIC
nommée J de type STRING ?
j'ai essayé dans le module où j'ai recopié ton code de déclarer la
variable
j ( qui semble poser le problème )
en la déclarant en type Long, voir Double pas de souci ça fonctionne
en la déclarant en type Integer, j'ai l'erreur Dépassement de capacité
en la déclarant en type String, j'ai l'erreur"Erreur de compilation
Incompatibilité de type"

donc, peut-être chercher de ce côté !!!
Bonne journée

--
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
Bonsoir.
Il faut que tu donnes l'adresse générée par www.cjoint.com.
Cordialement.
Daniel
"gilles" a écrit dans le message de news:

Daniel,
j'ai envoyé le fichier
pour info kek zexplications
tu double-click dans la colonne A de "lma complet"
sur l'onglet "extraction", ça reporte les données
sur l'onglet "liste des inscriptions" tu click sur le bouton jaune, pour
recopier et regrouper
la 2ème macro (qui ne marche pas) n'a pas de bouton pour l'instant
je la lance pour l'instant depuis la fenetre VBA

merci encore kelkesoit le resultat!
à+
--
gilles72



1 2 3