Répeter macro sur des colonnes

Personnellement je définirais la plage concernée par la manip
Et je n'ai pas bien compris si tu voulais remettre le compteur à 1 ou l'incrémenter de 1 (comme c'est un compteur ....). A toi de choisir

Option Explicit

Const plage = "A2:K20"   ' plage concernée par la selection

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim co As Long
If Intersect(Target, Range(plage)) Is Nothing Then Exit Sub
co = Target.Column
' incremente de 1
' Cells(20, co).Value = Cells(20, co).Value + 1
' remet le compteur à 1
Cells(20, co).Value = 1
End Sub

Cdlmnt

Salut en fait ce que je compte faire réellement c'est:
J'ai codé sur la colonne C plusieurs UserForm qui se déclenche lors d'un click sur la cellule C10,C11 et C17.
Je souhaite créer une répetition de ces commandes jusqu'à la colonne M.
Ainsi je me suis dis qu'il fallait en fonction d'où je click, identifier la colonne surlaquelle je suis, puis lancer l'ensemble des UF en fonction de la colonne sur laquelle on se trouve.
La question avec le Cellule=Cellule+1 était à titre d'exemple pour que je comprenne la méthodologie (sinon ca aurait assez difficile à expliquer)
Je vais prendre ce que tu m'as donné, je te remercie. Je reposte un screen ici d'ici 10min pour montrer ce que j'ai fais.

Thomas

bonsoir ccm81,
ma question était posée à 2015-1158.
j'ai lu "cela ne marche pas".
je demande "comment fais-tu?".
ce que tu lui proposes est parfaitement clair.

Salut, je viens de regarder, c'est super cool merci beaucoup. C'est exactement ce à quoi je penser. Je suis en train de regarder ton script. J'étais pas si loin. Je vois que tu as privilégié le Cells au Range("LigCol"). En fait tu as tout débug en virant les Ranges

Peut-tu m'expliquer l'intérêt d'un module ? J'ai vu que tu as déclarer deux variables en public, la lig et la col du target cellule. Ça sert à pouvoir réutiliser les variables dans toutes la macro je suppose ?

J'ai encore eu une erreur13 avec les deux moyennes, ca vraiment l'air aléatoire:
https://mon-partage.fr/f/waWjUUJf/

MAJ1: Bon j'ai trouvé une erreur dans ma formule, ca n'a plus l'air de bugué au niveau des moyennes (Bizard d'avoir une erreur de type13 même si ma formule est fausse, je ne divise pas par 0 ou quoi que ce soit de ce genre).
Bref l'erreur à désormais basculer sur la ligne Jaune pour le calcul des dépenses.
Je te mets mon fichier, tu as juste à clicker sur la C17, puis Theorical determination, puis suivant et Erreur13 .
https://mon-partage.fr/f/Ie9bu3Pg/

Merci à toi,

Je cherche aussi de mon côté, j'up si je trouve.

MAJ2: J'ai repéré quelques Range que tu as oublié de changer en Cells (Je sais pas si c'était volontaire ?), j'ai mis des Cells.Value de partout, rien ne change.
Je suis quasi convaincu que le problème réside dans l'histoire des ".Value". Je fais des tests en supprimant des paragraphes et ca ne bug pas.

MAJ3: En ayant fait des essais, je suis convaincu que l'erreur se trouve dans ces lignes de codes car si je les enlève 0 bug. Je me relis 20 fois je ne vois pas l'erreur:

Private Sub UserForm_Initialize()
TextBox61 = Cells(2, 13).Value * (Cells(12, Col).Value - Cells(13, Col).Value) * (UserForm5.TextBox53.Value * 24 * UserForm5.TextBox56.Value + 24 * UserForm5.TextBox57.Value) * Cells(9, Col).Value
TextBox62 = (TextBox61.Value / (TextBox61.Value + Cells(17, Col).Value)) * 100
End Sub

Le UserForm5.Text... c'est normal car je dois aller cherche un textbox dans un autre UF sinon VBA me dit que la variable n'existe pas.