J'aimerais savoir quelle fonction sous VB pourrait me=20
permettre de compter le nombre de colonne non vide d'une=20
feuille (sans faire une usine =E0 gaz si possible)
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
ru-th
Salut
fonction perso ? Function CountColonne() For i = 1 To 256 If Application.CountA(Columns(i)) = 0 Then rep = rep + 1 Next CountColonne = rep End Function
a+ rural thierry "JC" a écrit dans le message de news: 187c301c41ae7$e4def100$ Bonjour,
J'aimerais savoir quelle fonction sous VB pourrait me permettre de compter le nombre de colonne non vide d'une feuille (sans faire une usine à gaz si possible)
Merci !!
JC
Salut
fonction perso ?
Function CountColonne()
For i = 1 To 256
If Application.CountA(Columns(i)) = 0 Then rep = rep + 1
Next
CountColonne = rep
End Function
a+
rural thierry
"JC" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
187c301c41ae7$e4def100$a101280a@phx.gbl...
Bonjour,
J'aimerais savoir quelle fonction sous VB pourrait me
permettre de compter le nombre de colonne non vide d'une
feuille (sans faire une usine à gaz si possible)
fonction perso ? Function CountColonne() For i = 1 To 256 If Application.CountA(Columns(i)) = 0 Then rep = rep + 1 Next CountColonne = rep End Function
a+ rural thierry "JC" a écrit dans le message de news: 187c301c41ae7$e4def100$ Bonjour,
J'aimerais savoir quelle fonction sous VB pourrait me permettre de compter le nombre de colonne non vide d'une feuille (sans faire une usine à gaz si possible)
Merci !!
JC
Pascal Engelmajer
Salut, pas sophistiqué mais ça marche Dim nb As Integer Dim i As Integer Dim col As Range For i = 1 To ActiveSheet.UsedRange.Rows(1).Cells.Count Set col = ActiveSheet.UsedRange.Rows(1).Cells(i) If Application.WorksheetFunction.CountA(col.EntireColumn) > 0 Then nb = nb + 1 Next i MsgBox nb
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "JC" a écrit dans le message de news: 187c301c41ae7$e4def100$ Bonjour,
J'aimerais savoir quelle fonction sous VB pourrait me permettre de compter le nombre de colonne non vide d'une feuille (sans faire une usine à gaz si possible)
Merci !!
JC
Salut,
pas sophistiqué mais ça marche
Dim nb As Integer
Dim i As Integer
Dim col As Range
For i = 1 To ActiveSheet.UsedRange.Rows(1).Cells.Count
Set col = ActiveSheet.UsedRange.Rows(1).Cells(i)
If Application.WorksheetFunction.CountA(col.EntireColumn) > 0 Then
nb = nb + 1
Next i
MsgBox nb
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"JC" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
187c301c41ae7$e4def100$a101280a@phx.gbl...
Bonjour,
J'aimerais savoir quelle fonction sous VB pourrait me
permettre de compter le nombre de colonne non vide d'une
feuille (sans faire une usine à gaz si possible)
Salut, pas sophistiqué mais ça marche Dim nb As Integer Dim i As Integer Dim col As Range For i = 1 To ActiveSheet.UsedRange.Rows(1).Cells.Count Set col = ActiveSheet.UsedRange.Rows(1).Cells(i) If Application.WorksheetFunction.CountA(col.EntireColumn) > 0 Then nb = nb + 1 Next i MsgBox nb
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "JC" a écrit dans le message de news: 187c301c41ae7$e4def100$ Bonjour,
J'aimerais savoir quelle fonction sous VB pourrait me permettre de compter le nombre de colonne non vide d'une feuille (sans faire une usine à gaz si possible)
