definir un nombre de colonne

[nicroq]

Bonjour,
je souhaiterais faire une macro me permettant de compter un nombre de colonne et me dire si le nombre de colonne crrespond bien a un nombre de ligne dans un tableau bis:

par exemple j ai une ligne qui commence ligne 97 colonne B jusqu' a colonne M (12 cases) et j'ai un tableau bis situé colonne A ligne 10 jusqu ' a ligne 21 (soit 12 cases).
je souhaiterai que la macro me signale si il y a bien 12 case dans le tableau bis.

merci
cordialement

 

[Robert]

Re : definir un nombre de colonne

Bonsoir Nicroq, bonsoir le forum,

Peut-être comme ça (à adapter) :

Sub Macro1()
Dim nl As Byte 'déclare la variable nl (Nombre de cellules dans la Ligne)
Dim nt As Byte 'déclare la variable nt (Nombre de cellules dans le Tableau)
 
nl = Range("B97").CurrentRegion.Cells.Count
nt = Range("A10").CurrentRegion.Cells.Count
MsgBox nl & " cellules dans la ligne 97" & Chr(13) _
    & nt & " cellules dans le tableau bis"
End Sub

 

[kjin]

Re : definir un nombre de colonne

Bonsoir, Robert 🙂,

je souhaiterais faire une macro me permettant de compter un nombre de colonne et me dire si le nombre de colonne crrespond bien a un nombre de ligne dans un tableau bis:

Sous entendu contenant des données !?

Sub d()
With Application
If .CountA(Range("B97:M97")) <> .CountA(Range("A10:A21")) Then
    MsgBox "y a un schisme"
End If
End With
End Sub

A+
kjin

 

[nicroq]

Re : definir un nombre de colonne

merci a vous deux pour votre aide !!! ca marche tres bien