En cliquant sur une cellule j'affiche une calculette pour des saisies

Question

Bonjour , j'ai une formule que je n'arrive pas à modifier correctement est-ce que quelqu'un peut m'aider, en cliquant sur une cellule j'affiche une calculette pour des saisies, je voudrais le faire sur plusieurs colonnes mais je n'y arrive pas je suis bloqué que sur une seule colonne

Voici la formule que je tape

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

'On travaille sur la colonne 18

If Target.Count = 1 And Target.Column = 18 Then

If Calculette.Visible = True Then

Calculette.Top = ActiveWindow.Height / 2

Else

Calculette.Show

End If

Else

Unload Calculette

End If
End Sub

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Invité · Answer

Une petite présentation ICI serait la bienvenue Si vous ne l'avez pas encore fait, je vous invite à lire : - La charte du forum - Quelques fonctionnalités du forum à connaître qui vous aideront dans vos demandes et réponses sur ce forum. Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui : - vous permettent de poster un code ( &lt;/&gt; ) - ou de clôturer un fil lorsque vous avez terminé ( V ) De plus merci de mettre dans votre profil, une version correcte de ce que vous utilisez comme Excel (2013 Fr, 2016 En, Etc...) Merci pour votre participation Concernant votre demande, si vous ne savez pas faire la différence entre une formule et du code VBA je vous conseille vivement de vous former : https://www.excel-pratique.com/fr/vba Sinon, il faut supprimer le "Target.Column = 18" Cordialement...