Une cellule est vide meme si elle contient un bouton ? Résolu/Fermé

Question

Bonjour, J'aimerais faire une condition qui dirait : Si la case D3 est differente de vide et si la case D4 est vide (ne contient pas déjà un bouton) alors créer un bouton. Au début j'ai fais une condition de type If cells(i, 4).Value <> " " And cells(i, 5).Value = " " then ActiveSheet.Buttons.Add(BLeft, BTop, BWidth, BHeight).Select Mais cela ne fonctionne pas, j'ai donc essayé If cells(i, 4).Value <> " " And IsEmpty(cells(i, 5)) then J'ai aussi testé If cells(i, 4).Value <> " " And IsEmpty(cells(i, 5)) = true then J'ai l'impression que même s'il y a déjà un bouton il pense que la case est vide ! Comment pourrais-je remédier à ce problème ? Merci de votre aide.

prunetyves · Accepted Answer

Hello,
C'est normal, un bouton n'est pas une données stockée dans une cellule mais un objet posé sur la feuille. donc tu ne peut pas tester la présence ou non d'un bouton par le test d'une valeur.

A+

siamens_duj · Answer

Du coup, comme solution, dès que je construis un bouton je lui dis de mettre "ok" dans la cellule derriere le bouton comme ça pour lui la case est maintenant plus vide.

Mon code est donc :

Option ExplicitPrivate Sub CommandButton3_click()i = 3BLeft = 320BTop = 50.75BWidth = 72BHeight = 24Do While i < 900 If Cells(i, 4).Value <> "" And Cells(i, 5).Value = "" Then  Cells(i, 5).Value = "ok"  ActiveSheet.Buttons.Add(BLeft, BTop, BWidth, BHeight).Select  BTop = BTop + 26  i = i + 1  Else   MsgBox ("On est à la fin")   GoTo Fin:   End If      LoopFin:End Sub

J'ai essayé avec le Exit Do comme conseillé plus haut mais cela me donne le même résultat.

Avec ce code, les boutons ne se créés pas quand il y a déjà un bouton.
Seul problème, quand je rajoute une ligne en fin de tableau il ne créé pas le dernier bouton et n'écrit pas non plus "ok". Sauriez vous pourquoi ?

Une cellule est vide meme si elle contient un bouton ?

2 réponses

Discussions similaires