Test nom de colonne

Bonjour,

si vous avez une idée je suis preneur, sur mon problème

je veux tester si la première cellule de collone A est "tata", si la colonne b est "toto" j'ai 15-20 colonne à tester ...

mon idée

If Cells(1, 1) <> "a" Then MsgBox ("erreur") Else

If Cells(1, 2) <> "b" Then MsgBox ("erreue")

End If

End Sub

je sais que mon code est faux mais je ne suis pas fort pour les boucles, j'avais l"idée de faire un for i mais vu que mes nom son variables je préfère le codé en dur

merci par avance

cdt

Bonjour,

Un exemple de code pour 4 colonnes

Option Explicit
Option Base 1
Sub Test()
Dim F
Dim Msg As String
Dim i As Integer
    F = Array("Toto", "Tutu", "Tata", "Titi")
    For i = 1 To UBound(F)
        If Cells(1, i) <> F(i) Then Msg = Msg & Cells(1, i) & " à la place de " & F(i) & Chr(10)
    Next i
    If Msg <> "" Then
        MsgBox "En-tête érroné :" & Chr(10) & Msg
    Else
        MsgBox "Aucune erreur relevée."
    End If
End Sub

A+

Merci beaucoup !!