XL 2016 formule avec bouton

[richardlion]

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]

Bonjour Richardlion,
Un essai en PJ avec :

Private Sub ToggleButton1_Click()
    If [H8] = "" Then [H8] = [E8]
    If [I8] = "" Then [I8] = [F8]
End Sub

et si l'idée était de faire la même chose sur toute les valeurs du tableau, alors :

Sub Exportation()
Application.ScreenUpdating = False
DL = [A65500].End(xlUp).Row
For L = 8 To DL
    If Cells(L, "H") = "" Then Cells(L, "H") = Cells(L, "E")
    If Cells(L, "I") = "" Then Cells(L, "I") = Cells(L, "F")
Next L
End Sub

 

[richardlion]

Bonjour Sylvanu, désole pour le retard de ma réponse, je regarde ta réponse avec le fichier rapidement
encore merci pour ton aide.
a+

 

[richardlion]

Bonjour Sylvanu, comme mon tableau d'origine ne corresponds pas a celui de la PJ je voudrais te poser des question
if cells L le L correspond a quoi
merci a toi

 

[richardlion]

en fait mon tableau d'origine ressemble a ça

 

[richardlion]

pardon c'est ce dernier classeur qui est le bon

 

[TooFatBoy]

Bonjour,

if cells L le L correspond a quoi

Je ne sais pas si sylvanu est là alors je tente une réponse pour te débloquer : L est le numéro de ligne dans la feuille.

 

[richardlion]

Le fichier était trop lourd voici la bonne PJ
ce sont les colonnes AX ET AY qui doivent basculer en BB et BD si celle ci sont vident

 

[richardlion]

Bonjour,

Je ne sais pas si sylvanu est là alors je tente une réponse pour te débloquer : L est le numéro de ligne dans la feuille.

merci TooFatboy mais ca ne m'aide pas dans la compréhension de la macro de sylvanu pour la dupliquer sur mon fichier précédents

 

[TooFatBoy]

merci TooFatboy mais ca ne m'aide pas dans la compréhension de la macro de sylvanu pour la dupliquer sur mon fichier précédents

Au moins ça répond à la question que tu as posée. 😉

Je peux ajouter que L va de 8 jusqu'au numéro de ligne de la dernière cellule non vide de la colonne A.

 

[sylvanu]

Bonjour Richardlion, Toofatboy,
En post #2, il y avait deux ex suivant ce que vous vouliez faire. Je suppose que c'est la 2eme solution qui vous va.
Dans votre PJ la colonne A est vide donc ça ne peut pas marcher, et votre PJ est bourrée d'erreur difficile de s'en sortir? La prochaine fois donnez une PJ où il n'y a pas d'erreur.
Essayez :

Sub Exportation()
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") = "" And Not IsError(Cells(L, "AX")) Then Cells(L, "BB") = Cells(L, "AX")
    If Cells(L, "BD") = "" And Not IsError(Cells(L, "AY")) Then Cells(L, "BD") = Cells(L, "AY")
Next L
End Sub

J'ai choisi la colonne AH pour trouver la dernière ligne du tableau car cette colonne n'a pas d'erreur; Et je vérifie s'il n'y a pas d'erreur en AX AY avant de copier.
"L" est la ligne à traiter, elle va de 18 ( première ligne ), à la dernière ligne calculée par DL.

 

[richardlion]

Sylvanu,
merci pour ton aide, en fait dans ma PJ j'ai effacé toutes les données c'est pour çà qu'il ya des erreurs je suppose.
donc je dois copier ta macro dans ma vrai feuille de travail et le bouton déclenchera la macro?

 

[sylvanu]

Re,
Si la macro est copiée au même endroit avec le même nom, ça devrait marcher.

 

[richardlion]

et si je veux faire annuler ou retour en arrière pour annuler la macro quel ligne dois je ajouter 😁

 

[richardlion]

un bouton on off c'est possible