[Resolu] code pour verifier que le nombre de colonne est correct

[alex53]

Bonjour le forum
Voici mon probleme:
J'ai une macro (qui fonctionne), mais j'aimerai qu'il y ait un controle avant l'activation de cette macro.
Pour etre plus clair, si j'active ma macro, je souhaite d'abord que la macro verifie qu'il y ait 4 colonne (4 titres) dans ma feuille. Si plus ou moins, alors le reste de la macro ne s'active pas.

Voici mon code actuel, qui ne marche pas🙁

Sub Intercaler()

Dim AA As Integer
AA = Range("A" & Columns.Count).End(xlUp).Column

If AA <> 4 Then
MsgBox "Error", vbExclamation, "Error"
End If

Puis la suite de ma macro (qui fonctionne)

Je ne pense pas que ce soit tres complique donc je ne joins pas de fichier (merci de me faire signe si besoin)

Merci
Alex53

 

[francedemo]

Re : code pour verifier que le nombre de colonne est correct

bonjour,

avec :
AA = Range("A" & Columns.Count).End(xlUp).Column
tu comptes le nombre de colonne puis tu prneds le numéro de la dernière
essaye avec:
AA = Columns.Count
tout simplement
à+

 

[Robert]

Re : code pour verifier que le nombre de colonne est correct

Bonjour Alex, bonjour le forum,

Rajoute juste un Exit Sub... Pour sortir de la procédure

Sub Intercaler()
Dim AA As Integer
AA = Range("A" & Columns.Count).End(xlUp).Column
If AA <> 4 Then
     MsgBox "Error", vbExclamation, "Error"
     Exit Sub
End If

 

[tototiti2008]

Re : code pour verifier que le nombre de colonne est correct

Bonjour alex, Bonjour francedemo 🙂, Bonjour Robert 🙂,

Je dirais même plus :

AA = Range("A" & Columns.Count).End(xlUp).Column

Peut se remplacer par

AA = 1

Mais je pense qu'il faudrait plutôt mettre

AA = cells(1,Columns.Count).End(xltoleft).Column

 

[alex53]

Re : code pour verifier que le nombre de colonne est correct

Re-
Merci pour toutes ces reponses ultra rapide!

tototiti2008, ta 2 eme formule marche impec, merci.

Robert , effectivement camarche mieux avec un Exit sub (en plus de la formule de tototiti)


francedemo, ca ne marche pas avec ton code, je ne sais pas pourquoi (peut etre moi qui l applique mal). Merci aussi.


Alex53