Bonjour,
merci pour votre aide
J'ai un problème concernant les chekbox.
Pour être claire, je veux créer des chekbox sur une 10 lignes au niveau d'excel (cela ne pose pas de problème).
Ensuite l'utilisateur pourra cocher les chekbox et réaliser des filtres sur les lignes (Filtra automatique dans excel).
Le problème est le suivant : J'ai un déphasage des chekbox si l'utiliasteur réalise plusieurs filtres. Par exemple la chekbox 1 situer à la base sur la première ligne (avec la lettre A en colonne C) se trouve après le filtre sur la 5 lignes (Avec la lettre P). Nous avans donc perdu le lien entre le chekbox et la ligne à laquelle elle était liée.
merci pour votre aide
J'ai un problème concernant les chekbox.
Pour être claire, je veux créer des chekbox sur une 10 lignes au niveau d'excel (cela ne pose pas de problème).
Ensuite l'utilisateur pourra cocher les chekbox et réaliser des filtres sur les lignes (Filtra automatique dans excel).
Le problème est le suivant : J'ai un déphasage des chekbox si l'utiliasteur réalise plusieurs filtres. Par exemple la chekbox 1 situer à la base sur la première ligne (avec la lettre A en colonne C) se trouve après le filtre sur la 5 lignes (Avec la lettre P). Nous avans donc perdu le lien entre le chekbox et la ligne à laquelle elle était liée.
Code:
Dim Chekbox As OLEObject
Dim i As Integer
Dim Target As Range
For i = 10 To 14
Set Target = ActiveSheet.Range("B" & i)
Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
With Chekbox
.LinkedCell = Target.Offset(0, 1).Address(0, 0)
.Object.Value = False
End With
Next