Procédure IsEmpty ou Is?

Résolu/Fermé
ines009 Messages postés 25 Date d'inscription mardi 16 novembre 2010 Statut Membre Dernière intervention 1 février 2011 - 19 nov. 2010 à 11:36
 Ines009 - 19 nov. 2010 à 20:13
Bonjour,

Coucou c encore moi j'arrive pas à finaliser mon code j'ai besoin d'aide
Par ce code je souhaite dire à vba de me mettre à vide toutes les cellules ou il n'y a pas de nombre, à parti de la ligne 1020, parceque soit j'ai des nombres soit j'ai des messages d'erreur dans mes cellules, à la place de ?, IsEmpty ca aurait été pour des cellules vide mais c pas ce que je veux y'a pas une syntaxe vba du style IsNotNumber pour remplacer le ????
Et je veux faire ca pour 20 feuilles excel que j'ai sur mon fichier

MERCIIIIIIIIII d'avance

For j = Range("A65536").End(xlUp).Row To 1020 Step -1
If Is"?"(Cells(1, j).Value) Then Columns(j).ClearContents
Next j


7 réponses

xav3601 Messages postés 3288 Date d'inscription lundi 10 novembre 2008 Statut Membre Dernière intervention 2 mars 2016 311
19 nov. 2010 à 11:38
t'as essayer le IsNumber ? plutot que le IsNotNumber ^^
0
ines009 Messages postés 25 Date d'inscription mardi 16 novembre 2010 Statut Membre Dernière intervention 1 février 2011
19 nov. 2010 à 14:40
Justement c pas cqui faut faire
cque jveux c dire a vba c: si ya pas de nombre dans la cellule alors clearContents(efface le contenu)
on pourrait raisonner à l'inverse et lui dire:
If IsNumber(si c un nombre) alors tu me garde la cellule tel quel mais ca serait If IsNumber then cellule.keep MAIS le problème n'est pas résolu mais décalé parceque keep en vba???? jconnais pas
tas une idée
Merci pour tes réponses trop sympa.
0
xav3601 Messages postés 3288 Date d'inscription lundi 10 novembre 2008 Statut Membre Dernière intervention 2 mars 2016 311
19 nov. 2010 à 16:24
Les autres ont complété ma réponse, si tu fais IsNumber, il faut que tu utilises If Not devant comme ca ca reviens a faire un IsNotNumber;
Par contre si leur solution marche pas je vois pas trop ^^
Pour info, cptr, c'est une variable compteur.
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 nov. 2010 à 14:51
Bonjour

Essaie avec ça:

For j = Range("A65536").End(xlUp).Row To 1020 Step -1
     If Not IsNumeric((Cells(1, j).Value)) Then Columns(j).ClearContents
Next j 


;o)
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
19 nov. 2010 à 15:05
Bonjour
cque jveux c dire a vba c:
;-(
merci de ne pas employer le SMS, écriture de paresseux(se) pressé(e)

derlig = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
For cptr = 1020 To derlig
    If Not IsNumeric(Cells(cptr, "A")) Then
        Cells(cptr, "A").ClearContents
    End If
Next
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ines009 Messages postés 25 Date d'inscription mardi 16 novembre 2010 Statut Membre Dernière intervention 1 février 2011
Modifié par ines009 le 19/11/2010 à 16:00
Merci pour vos réponses, Le code jlai essayé il marche pas ca donne rien , c'est quoi cptr

Je veux faire ca sur le Range(K1020:FB1625) donc commencer le code en K 1020 (ligne 1020 mais colonneK et pas A) et pas en A 1020

MERCIII ENCORE
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
19 nov. 2010 à 16:55
Pourtant tu as écris
Range("A65536").End(xlUp).Row

maintenant c'est K.... demain ce sera Z ?

cptr c'est quoi?
cptr c'est un compteur de boucle. si,si!!... tu l'appelles machin ou truc comme tu veux mais il est TRES déconseillé d'employer des compteurs et variables à 1 caractère comme i, j, k pour des raisons de maintenance (malgré qu'on le voit très souvent)


alors comme tu es une grande fille tu remplaces "A" par "K" et tu mets ce que tu veux pour le compteur de boucle

Je te signale à tout hasard que la macro que je t'avais proposé avait été testée et fonctionnait
0
Salut,

Essaie Is not empty aulieu de Isempty
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
19 nov. 2010 à 16:57
un petit coup sur F1 pour vérifier avant d'envoyer ne serait pas du luxe
0
C bon ca marche

Merci à tous
0