XL 2016 formule avec bouton

richardlion · 30 Janvier 2024

bonjour a tous,

je cherche a conjuguer formules =si(estvide) avec une une action bouton active x.

j'ai un fichier avec des colonnes secu et capa qui se remplissent automatiquement est des colonnes securite capacite.
je souhaiterais en appuyant sur mon bouton active x qu'une formule si(estvide) fonctionne sur plusieurs cellules.
dans le e cas présent du fichier ci joint.
avec le bouton active x exportation
je souhaite que si ma cellule H8 est vide qu'elle prenne la valeur de E8 sinon H8 et si ma cellule I8 est vide quelle prenne la valeur de F8 sinon I8.

je n'arrive a pas conjuguer le bouton et la formule.

si vous pouvez m'aider.

a votre disposition pour echange

sylvanu · 4 Février 2024

C'est quoi revenir en arrière?
Remettre vide si AX= BD ?
Essayez d'être plus clair, et mettre toutes les demandes en même temps.

richardlion · 4 Février 2024

excusez moi effectivement ca manque de clartés, j'ai creer un bouton pour actionner la macro, ca fonctionne et je souhaitez avoir un bouton pour annuler la macro un bouton type (on) ca fonctionne )of) j'annule
c'est possible?

sylvanu · 4 Février 2024

1- Vous pourriez fournir une PJ "propre" et simple pour testez.
2- Vous pourriez répondre aux questions :

sylvanu à dit:
C'est quoi revenir en arrière?
Remettre vide si AX= BD ?

En PJ un truc simple avec :

VB:

Sub Annulation()
Application.ScreenUpdating = False
DL = [AH65500].End(xlUp).Row    ' dernière ligne, prendre une colonne sans erreur
For L = 18 To DL                ' Le tableau commence en 18
    If Cells(L, "BB") = Cells(L, "AX") Then Cells(L, "BB") = ""
    If Cells(L, "BD") = Cells(L, "AY") Then Cells(L, "BD") = ""
Next L
End Sub

Si une cellule de BB contient la même valeur que AX alors on efface BB. Idem pour BD et AY.

richardlion · 4 Février 2024

merci sylvanu,
je test pour voir
merci a vous

richardlion · 10 Février 2024

Bonjour Sylvanu,
j'ai testé la macro sur mon fichier, cela fonctionne comme je souhaite.
merci a vous et bonne journée
Cordialement

XL 2016 formule avec bouton

richardlion

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

richardlion

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

richardlion

XLDnaute Occasionnel

richardlion

XLDnaute Occasionnel

Discussions similaires