> Tous les forums > Forum Bureautique
 Compter les cellules non vide d'une ligne en VBASujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vedene
  Posté le 21/12/2008 @ 10:50 
Aller en bas de la page 
Petit astucien

Bonjour,

Sur excel 2007, ceci me permet de compter les cellules non vide d'une colonne.

s = WorksheetFunction.CountA(Worksheets("feuille3").Columns(2))

Mais peut-on faire la même chose pour une ligne

Merci de votre aide. SVP

Publicité
Marmotte18
 Posté le 21/12/2008 à 11:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour vedene,

S=WorksheetFunction.CountA(Worksheets("feuille3").Rows(2))

Il s'agit ici de compter dans la ligne 2.



Modifié par Marmotte18 le 21/12/2008 11:07
vedene
 Posté le 21/12/2008 à 11:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci beaucoup Marmotte18,

C'est ce que je cherchais, mais je tapais "line" ou "cells" et je "buggais" en permanence.

Cela marche impec

mais maintenant, je voudrais que les colonnes de ces cellules soient supprimées.

il doit y avoir du "for p" la dedans, mais je nage.

Je cherche, mais si tu as la solution, ce serait très aimable à toi

Merci beaucoup et a +

Marmotte18
 Posté le 21/12/2008 à 12:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour vedene,

Soit à supprimer toutes les colonnes pour lesquelles il existe une cellule non vide dans la ligne2 :

Sub VideColonne()

Dim DernCelluleLigne2 As Range, LigneAnalysée As Integer
Dim C1 As Integer, ColonneDernCellule As Integer

LigneAnalysée = 2

'Recherche de la dernière cellule non vide de la ligne 2
'-------------------------------------------------------
Set DernCelluleLigne2 = Range("IV2").End(xlToLeft)
ColonneDernCellule = DernCelluleLigne2.Column

'Suppression des colonnes correspondant aux cellules non vides de la ligne 2
'---------------------------------------------------------------------------
For C1 = 1 To ColonneDernCellule
If IsEmpty(Cells(LigneAnalysée, C1)) = False Then
Cells(LigneAnalysée, C1).Select
Selection.EntireColumn.Delete
ColonneDernCellule = ColonneDernCellule - 1
C1 = C1 - 1
End If
Next C1

Range("A2").Select

End Sub

Ci-joint le fichier de démonstration : http://cjoint.com/?mvnedNHWal

galopin01
 Posté le 21/12/2008 à 16:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Juste pour résumer...

Sub VideColonne()
Dim i%, k%
k = Range("IV2").End(xlToLeft).Column
For i = k To 1 Step -1
If Cells(2, i) <> "" Then Columns(i).Delete
Next
End Sub

Joyeuses Fêtes à tous.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Compter cellules non adjacente sur ligne <> à 0
compter lignes d'un tableau dont toutes les cellules sont en couleur
copier ligne si cellule vide
Une feuille blanche pour une ligne vide en fin de document
imprimer si ligne non vide
Supprimer une ligne vide
Enlever ligne vide word
Enlever ligne vide word
compter des cellules colorés
compter les cellules
Plus de sujets relatifs à Compter les cellules non vide d''une ligne en VBA
 > Tous les forums > Forum Bureautique