Comparer contenu d'une cellule avec nom colonne

Bonjour à tous,

Je vous sollicite pour un coup de main car mes recherches sont demeurées infructueuses.

Il faut dire que j'ai du mal à formuler la requête lors de la recherche.

Je précise que je suis sous excel 2019.

Je souhaite rédiger une macro qui compare le contenu d'une cellule avec les entêtes des colonne pour rajouter +1 à la valeur en dessous de l'entête.

Je joints un fichier d'exemple, ce sera plus facile:

sur la feuille, je choisis une zone (Zone 1 ou Zone 2) du menu déroulant et j'appuie sur le bouton "Valider".

Je souhaite alors que +1 soit rajouté dans la colonne de la zone choisie dans le tableau en dessous.

J'ai bricolé une solution avec IF:

Sub Essai()

    If Cells(13, 2) = Cells(3,2)  Then
        Cells(14, 2) = Cells(14,2) + 1
    Else
        Cells(14,2) = Cells(14,2) + 0
End If     
     If Cells(13, 3) = Cells(3,2) Then
        Cells(14, 3) = Cells(14,3) + 1
    Else  
        Cells(14,3) = Cells(14,3) + 0
    End If
End Sub

Mais je vais avoir beaucoup de Zones et ce sera très laborieux.

Voyez-vous une solution plus efficace pour mettre la valeur dans la bonne colonne?

Merci d'avance pour votre aide.

5exemple.xlsm (17.13 Ko)

Bonjour,

à tester,

Sub Essai()
col = Application.Match(Cells(3, 2), Rows(13), 0)
Cells(14, col) = Cells(14, col) + 1
End Sub

Merci I20100 pour ta réponse si rapide !

C'est parfait!

Merci Isabelle!

Quelle rapidité, et c'est parfait!

Bonne soirée.

Rechercher des sujets similaires à "comparer contenu nom colonne"