Voila j'ai un souci, je n'arrive pas à faire apparaitre des checkbox sur mon fichier.
J'ai une liste déroulante qui me fait apparaitre des résultats dans 2, 3 ou 4 cellules.
Ces résultats apparaissent grace à la fonction rechercheV dans les cellules.
De ce fait, comme il y a une formule dans les cellules elles ne sont jamais vides et je ne sais pas comment faire.
En pièce jointe, le fichier en question.
Re : Faire apparaitre des checkbox si la cellule voisine est "non vide"
Salut Icedarts, le Forum
Cela devrait être facilement réalisable mais avant une petite question
Et après? que veux tu en faire de ces checkboxes?
Si ce n'est que pour voir si il y a quelque chose (hors Formule représentant rien) essaye cette Formule en B2 et à incrémenter vers le bas (Col B en Symbole Wingdings)
Re : Faire apparaitre des checkbox si la cellule voisine est "non vide"
Non non il y aura 2 possibilités, soit les gens imprimeront la feuille et cocheront les joueurs qui seront présents.
Parfois il y a 4 joueurs dans une doublette avec les remplacants mais seulement 2 sont présents pour jouer.
Soit il le feront directement sur le fichier qu'ils me renveront par mail, en fonction des moyens de chacun.
Dull la formule je l'avais déjà essayé en mettant un O mais chez moi cette formule renvoyait toujours O...
Et sur la version excel pour cocher un O c'est pas pratique
Re : Faire apparaitre des checkbox si la cellule voisine est "non vide" [RESOLU]
Ah ben tiens j'ai un petit soucis.
Pour l'exemple j'avais mis ça en haut du classeur mais en réalité c'est un peu plus bas mais sur les mêmes colonnes.
Du coup j'ai voulu changer le:
For i = 2 To 5
Par:
For i = 16 To 19
Mais ça ne fonctionne pas...
Mon dieu ce que c'est désagréable d'être nul comme ça!
Re : Faire apparaitre des checkbox si la cellule voisine est "non vide" [EN COURS]
RE :
Dans ce cas, tu dois modifier la valeur défalquée à la variable i pour adapter à l'indice du CheckBox :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For i = 16 To 19
Me.OLEObjects("CheckBox" & i - 15).Visible = IIf(Cells(i, 3).Value > 0, True, False)
Next
End Sub
Re : Faire apparaitre des checkbox si la cellule voisine est "non vide" [EN COURS]
Ah oui ok je comprends.
Oui oui ça s'affiche bien en B2:B5 mais ça vient du fait que la liste déroulante est elle aussi plus basse.
C'est le bloc complet qui est plus bas.
Re : Faire apparaitre des checkbox si la cellule voisine est "non vide" [EN COURS]
Bon bon bon,
quand ça veut pas ça veut pas comme on dit...
Ben la ça ne veut vraiment pas...
J'ai déplacé les checkbox dans les bonnes cases, j'ai modifié le code mais rien n'y fait maintenant les 4 checkbox restent toujours visibles...
Et la c'est sur ton fichier quand il va falloir que je remette ça sur le mien je sens que je vais rigoler encore...
Re : Faire apparaitre des checkbox si la cellule voisine est "non vide" [RESOLU]
RE
Mais si, ça veut. La preuve en pièce jointe.
J'ai modifié la macro pour qu'elle calcule automatiquement la position des CheckBox en fonction de la position des cellules. Pour ce faire, on commence par récupérer l'adresse de la cellule qui contient "Doublettes:", puis le calcul se fait par décalage par rapport à cette cellule (fonction Offset).
Je te propose donc de modifier l'emplacement des données sur la feuille pour constater le résultat. Je ne pense pas que l'on puisse faire beaucoup mieux dans l'ergonomie. Tu ne devrais donc plus avoir de problème pour adapter sur ton application finale.