Excel et VBA NB.VIDE Résolu/Fermé

Question

Bonjour,


Petite question vite fait, quel code, si il y en a un, utiliser pour remplacer la formule NB.VIDE ? ? 

Merci pour votre aide

Ricky38 · Answer

Salut,

ceci va surement t'aider : https://www.generation-nt.com/reponses/nb-si-ou-nb-vide-avec-vba-entraide-395313.html#reponse

Bonne journée

informatifien · Answer

oki merci ben ca vas etre la debauche j'ai jeter un oeil vite fai j'essaye demain et reviens si problème ;)

Le Pingou · Answer

Bonjour,
Si on ne connait pas l’équivalent d’une fonction (exemple : NB.VIDE) il est toujours possible de lancer l’enregistreur macro et ensuite de taper la fonction dans une cellule … ensuite dans la macro on retrouve le nom à utiliser, dans se cas ; COUNTIF
C'est un reflex que vous devriez avoir !

informatifien · Answer

j'ai noté résolue car vous avez bien répondu à ma question mais euh lol j'aurai du tester avant . ..problème de synthaxe l'enregistreur me met ça: 

ActiveCell.FormulaR1C1 = "=COUNTBLANK(RC[-1]:R[999]C[-1])"
sachant que j'ai ecris ma formule en B1 et que la plage de comptage est en A1:A999 je met ce code dans une de mes feuilles comme ça:

Private Sub Worksheet_Calculate()
Dim z As Long
z = "COUNTBLANK(RC[1]:RC[999])"
End Sub

j'ai le message incompatibilité de type . . .?

pijaku · Answer

Re-
Le nombre de cellules vides d'une plage est égal au numéro de la dernière ligne - le nombre de ligne remplie soit en code VBA :

Sub nbvide()
Dim z As Long
z = 999 - Sheets("Feuil1").Range("A1:A999").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Avec une plage "variable" qui peux s'agrandir etc... :

Sub nbvide()
Dim z As Long
Dim derlig As Integer
derlig = Range("A65536").End(xlUp).Offset(1, 0).Row
z = derlig - Sheets("Feuil1").Range("A1:A" & derlig).Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

moiced59 · Answer

tu veux inserer ta formule en vba c ca?

informatifien · Answer

lol pijaku tu es partout (en plus c'est pour le meme tableau) mais tu as pas de chance avec moi ou moi j'ai pas de chance tout court je viens de tester et bam message d'erreur "l'indice n'appartient pas à la selection"  . . . .pffff ma version d'excel (2002) tiens pas la route j'ai très souvent des problèmes de ce style avec

moiced59 merci mais c'est bon le pingou m'as donné une methode pour passer d'une formule au code VBA mais oui c'est bien ce que je voulai faire

moiced59 · Answer

bah pas besoin de tout ca 

exemple :

Cells(1, 1).FormulaLocal = "=somme(A2:A5)"

a bientot sur ccm

informatifien · Answer

non je veux pas le résultat en B1 non non c'est que j'ai utilisé B1 pour enregistrer ma macro
les numéros sont en A1 à A999 donc le premier code que tu m'a filé me vas bien juste que chez moi il marche pas mais ca a l air d etre celui qui me convient le mieux, mais si ca veut pas je vais utiliser ta 2° methode moin intuitive à mon gout mais si la plus simple veut pas :( c'est trop triste, par contre euuuh bizarement il me semblai avoir posté un truc hier qui viens avant cette etape dans mon fichier mais je ne le voi pas il a du bugué. . .

moiced59 · Answer

pourquoi te compliquer alors que tu peux faire simple:

Cells(1, 1).FormulaLocal = "=nb.vide(A2:A99)"

informatifien · Answer

par ce que je ne veux pas le resultat dans une cellule mais direct dans une variable pour ensuite l'afficher dans un USF

moiced59 · Answer

ok

et quelque chose com ca :

Cells(301, 11).FormulaLocal = "=nb.vide(A2:A99)"
tavariable = Cells(301, 11).Value
Cells(301, 11).FormulaLocal = ""
Cells(301, 11).Value = ""

informatifien · Answer

ouai je suis daccord mais c'est moins economique d'un point de vue mémoire .. . .et là ben je voudrai comprendre pourquoi la ligne de code toute simple de pijaku ne marche pas :( par qu'il faut avouer que c'est le code le plus simple qu'on m'ai proposé. . .sinon oui j'utiliserai le tiens moiced59

moiced59 · Answer

RE

La formule de pijaku reviens exactement au meme a la seule difference que tu integre la formule ds la celule active et non une cellule prealablement choisie

moiced59 · Answer

Je viens de relire le tuto la formule que tu recherche né pas du tout celle ci en plus cette formule est dynamique toi tu veux le nombre de blanc de A1 a A99

informatifien · Answer

de A1 à A999 oui mais ce nombre sera variable car les trous "bouchés" au fur et à mesure je m'explique ça vous paraitra plus claire les liste ont ete remplis sur plusieurs année mais des numéros ont été sautés j'ai fais un premier tri pour séparer les series, ce que je veux pouvoir faire au final c'est dans un premier temps insérer des cellule entres les nombres qui ne se suivent pas genre 8523-8525 il n'as pas été utilisé le 8524 je veux donc à cette endroit insérer une cellule et ainsi de suite ensuite il faudra evidemment compter le nombre de "trous" excusez mon langage lol pour savoir dans quel seriei utiliser des numéro . . .

moiced59 · Answer

ok je pense qu il faudrais que tu aille chercher la derniere cellule ecrite et que ensuite tu te serve de celle ci pr ta formule

informatifien · Answer

ouaip pijaku je sais là je suis un peu parti en sucette et dans tous les sens . . ..je vais essayer de recadrer tous ça excusez moi les gars je vous aide pas beaucoup :s je vais me ressaisir

informatifien · Answer

euuuh par contre j'ai pas de post de Michel_m . . . .enfin je ne le vois pas dans le sujet ou l'on parle depuis hier. . .. .

informatifien · Answer

ok bon alors j'attend de voir ça pour ce qui est de ta derniere proposition sur ce pot çi nbvide ça me fait les meme erreur que l'autre .. .décidement . . .pour le post sur le triage commme je l'ai dis je viens de le faire manuelement et donc n'aurai plu besoin de le faire. pour mon projet je vais prendre le temps de vous rédiger un truc le plus clair possible et ce soir eventuelement envoyer le fichier

informatifien · Answer

bon à force de me botter les fesse et d'utiliser F1, reflex bien long à venir je viens de tester pas mal de synthaxe et c'est bon la ligne toute simple de pijaku marhce j'ai bien fais de percevéré dans cette direction voilà tel qu'elle marche:

z = 999 - Worksheets(2).Range("A1:A999").Cells.SpecialCells(xlCellTypeConstants).Count

donc le sheets("Feuil2")  ben mon excel en veut pas par contre le worksheets(2) lui va bien 

pfiiiiouuuu ben ca été dur mais cette fois résolue je laisse donc résolue ce post pour le reste de mes souci je vous ai ecrit un post que je pense etre clair donc je l'ouvre et espère vous revoir là bas

merci à tous

moiced59 · Answer

tu ne t pas tromper ds ton 

xlCellTypeConstants

tu voulais les cellules vide?

xlCellTypeBlanks

informatifien · Answer

ah non pas trompé du tout je viens de tester et ça marhce au poil j'ai du déclaré 24 variable lol mais ca marche tip top je voulais bien les cellules vide oui mais comme je connais mon nombre max de ligne si je fais nombre max de ligne - cellule pleine ça me donne les cellules vide ;) comme l'a expliqué pijaku . . .

Merci pijaku et moiced59

moiced59 · Answer

re re et re lol

je viens de tester en effet le resultat est le meme mais pour t besoin c bien xlCellTypeBlanks qui compte le nbre de cellule vide
bon probleme resolu c le principal!!!

informatifien · Answer

euuuh mouai mais is je fais 999-ton type blank le résultat sera le nombre de cellule pleine ou est ce que ça,ça marche:

z = Worksheets(2).Range("A1:A999").Cells.SpecialCells(xlCellTypeBlanks).Count 

???

moiced59 · Answer

z = Worksheets(2).Range("A1:A999").Cells.SpecialCells(xlCellTypeBlanks).Count 

z = nombre de cellule vide

informatifien · Answer

oui ok c'est ce que je disai ouai les 2 marche ;) la tienne evite l'opération - encore un peu de memoire economisée ;))

moiced59 · Answer

non la 1ere ne fonctionne pas essai sur une colonne ou tu na que d blancs!!!

informatifien · Answer

lol mais je n'ai aucune colonne sans blanc ;) donc elle marche ;)) quand meme pour une fois que les choses tombent bien hein lol ça va pas souvent comme on veut mais là si alors tout vas bien enfin bref ça marche c'est cool les 2 marche c'est gagné et sans la main . . ..

moiced59 · Answer

mdr

moiced59 · Answer

pour conclure je pense:

compter le nombre de cellule a blanc
Z = Worksheets(1).Range("A1:A10").Cells.SpecialCells(xlCellTypeBlanks).Count

compter le nombre de cellule non a blanc
y = Worksheets(1).Range("A1:A10").Cells.SpecialCells(xlCellTypeConstants).Count

autre methode pr compter le nbre de cellule a blanc
w = WorksheetFunction.CountBlank(Range("A1:A10"))

informatifien · Answer

bien joué moiced59 je ne peux rien ajouter à part ya main là  ! ! ! ! lol