Recherche valeur

Je fait un tableau pour cumuler des données.

Le but est que lorsque, je clic sur le bouton il ajoute 1 à l'endroit présélectionné (M49) . Les données à sélectionner AH40 à BK40.

L'endroit ou ça se cumule de AH50 à BK50.

Sub BRUT04()

If Range("M49") = Est recherché dans la ligne Range("AH40:BK40") Then

S'il se trouve en AJ40

Range("AJ50").Value = Range("AJ50").Value + 1

S'il se trouve en BK40

Range("BK50").Value = Range("BK50").Value + 1

End If

End Sub

pouvez vous m'aider ??

Bonjour et bienvenu

Bonjour à tous le forum,

Peux-tu s'il te plait joindre un fichier avec les données afin de répondre rapidement et efficacement à ta requête.

Merci à tous et toutes

Air_2 a écrit :

Bonjour à tous le forum,

Peux-tu s'il te plait joindre un fichier avec les données afin de répondre rapidement et efficacement à ta requête.

Merci à tous et toutes

Voici un exemple: https://www.excel-pratique.com/~files/doc2/OP7JzExemple.xls

J'espère que c'est compréhensible.

Merci!

Bonsoir au forume

Tu trouveras ci-joint une première proposition qui sera améliorer par les maitres qui officient sur cet excellent site.

https://www.excel-pratique.com/~files/doc2/8jxUZOP7JzExemple.xls

Bonne soirée

Amitié

Air_2

Bonsoir à tous,

à mettre dans VBE de la feuille

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Cl As Byte
''Macros par Claude Dubois pour "M Nicoll" Excel-Pratique le 31 Oct 09
        If Not Application.Intersect(Target, Range("e7")) Is Nothing Then
            Cl = [MATCH(e7,g3:aj3,0)] + 6
            Cells(4, Cl) = Cells(4, Cl) + 1
        End If
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/Nicoll_Cumul.xls

Amicalement

Claude.

Air_2 a écrit :

Bonsoir au forume

Tu trouveras ci-joint une première proposition qui sera améliorer par les maitres qui officient sur cet excellent site.

https://www.excel-pratique.com/~files/doc2/8jxUZOP7JzExemple.xls

Bonne soirée

Amitié

Air_2

C'est exactement ce que je voulais.

Merci Beaucoup!!

Salutations !!!

dubois a écrit :

Bonsoir à tous,

à mettre dans VBE de la feuille

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Cl As Byte
''Macros par Claude Dubois pour "M Nicoll" Excel-Pratique le 31 Oct 09
        If Not Application.Intersect(Target, Range("e7")) Is Nothing Then
            Cl = [MATCH(e7,g3:aj3,0)] + 6
            Cells(4, Cl) = Cells(4, Cl) + 1
        End If
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/Nicoll_Cumul.xls

Amicalement

Claude.

Pour une ligne ça fonctionne , mais comme dans mon exemple, j'ai plusieurs lignes pour une colonne, donc besoin de plusieurs Bouton +1

Merci

Saluts !!

Bonjour,

Comme tu es nouveau, je te rappelle la petite formalité quand le poste est soldé:

en bas à gauche et en étant connecté.

prend le réflexe pour l'avenir

à+..... Claude.