[Résolu] Transformer formule en macro

[libellule85]

Bonjour le forum,

Je cherche à transformer une formule en macro :

dans la cellule A6 je met la formule suivante =si(b6<>"";"SG";"") etc... formule qui va jusqu'à la cellule A114

Je cherche à faire fonctionner cette macro comme suit : 1 clic cela exécute la macro et un clic pour ne rien mettre.

Merci de me dire si je ne suis pas assez clair dans mes explications.

D'avance merci pour votre aide.

 

[Abel]

Re : Transformer formule en macro

Bonjour libellule85,

Pas sûr d'avoir tout bien saisi l'histoire du clic puis de l'autre clic ...

Une solution en PJ. Peut être à côté de la plaque .....

A l'ouverture du fichier, je désactive le recalcul automatique.
Tu peux changer des valeurs, rien ne se passe.
Quand tu cliques sur le bouton, ça recalcule. C'est comme si tu faisais F9.

Abel.

 

[Si...]

Re : Transformer formule en macro

salut

avec ce que j'ai compris : une évènementielle et sans formule

Private Sub Worksheet_Change(ByVal R As Range)
  If Intersect(R, Range("B6:B114")) Is Nothing Then Exit Sub
  R(1, 0) = IIf(R = "", "", "SG")
End Sub

 

[DoubleZero]

Re : Transformer formule en macro

Bonjour, libellule85, le Forum,

Voir le fichier joint... si j'ai bien compris le besoin.

A bientôt 🙂

P.S. : Bonjour, Abel 🙂, Si... 🙂.

 

[libellule85]

Bonjour Abel, Si..., DoubleZero,

Je vous remercie beaucoup pour vos réponses et surtout la rapidité de celles-ci....

Bonne journée

 

[Abel]

Re : [Résolu] Transformer formule en macro

Re, DoubleZero, Si...

Hi ! hi !
Une demande, trois approches complètement différentes.

Je crois qu'il va nous falloir quelques précisions sur le pourquoi du comment.

Abel.

 

[Lone-wolf]

Re : [Résolu] Transformer formule en macro

Bonjour à tous,

un autre exemple (un peu tard j'avoue):

Private Sub Worksheet_SelectionChange(ByVal r As Range)
If Intersect(r, Range("c6:c114")) Is Nothing Then Exit Sub
lig = Range("c65536").End(xlUp).Row
Cells(lig, 2) = "Sergent Garcia"
End Sub

Très bonne journée à tous 😎