Comparer la taille de plusieurs colonnes entre elle
m
Bonjour,
J'aimerai récuper la taille d'une colonne jusqu'a la dernière cellule non vide et ensuite comparer la taille des colonnes entre elles pour voir si les tailles correspondent.
Voici, ci-joint où j'en suis. Est-ce que quelqu'un pourrait m'aider ?!
Bonjour,
voici une proposition de correction de ta fonction taille_colonne
Option Explicit
Function taille_colonne(colonne) As Long
dim tailleColonne
With Sheets("Feuil1")
taillecolonne = .Cells(.Rows.Count, colonne).End(xlUp).Row
if taillecolonne=1 and .cells(1,colonne)="" then taillecolonne=0
taille_colonne=taillecolonne
End With
End Function
Sub OUI()
Dim longueur As Long,i
with sheets("feuil1")
for i=1 to .cells(1,.columns.count).end(xltoleft).column
longueur = taille_colonne(i)
msgbox "longueur colonne " & i & " : " & longueur
next i
end with
End SubBonjour le forum,
marions1857 a écrit :Je bloque déjà rien que pour récupérer la taille d'une seule colonne.
=DROITE(ADRESSE(MAX(EQUIV(9^9;A:A));1);2)&" ligne(s)"m
Merci pour vos réponses
Mbbp pourquoi as-tu mis dans la formule equiv 9^9 ?!
marions1857 a écrit :Mbbp pourquoi as-tu mis dans la formule equiv 9^9 ?!
=9^9 = 387 420 489
C'est un très grand nombre que l'on ne devrait pas atteindre.
m
Très bonne idée merci beaucoup