test nom de colonne Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
e
edouard002
Membre fidèle
Membre fidèle
Messages : 168
Inscrit le : 10 mai 2010
Version d'Excel : 2003

Message par edouard002 » 12 mars 2014, 09:24

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
f
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4'341
Appréciation reçue : 1
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 12 mars 2014, 09:48

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+
e
edouard002
Membre fidèle
Membre fidèle
Messages : 168
Inscrit le : 10 mai 2010
Version d'Excel : 2003

Message par edouard002 » 12 mars 2014, 10:23

Merci beaucoup !!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message