Discussion :

[gbbtt]

Bonjour,

Tout d'abord désolé pour le titre pas forcément très explicite, je vais essayer d'être plus clair ici.

Je cherche actuellement lors du click sur une checkbox à:
1-Récupérer le numéro de ligne de la cellule liée (LigneCase dans le code à suivre)
2-Récupérer la valeur de la 1ere cellule de cette ligne (NumeroCas)
3-Rechercher la cellule contenant "A.NuméroCas" et récupérer le numéro de sa ligne. (LigneAmdec)
4-Cacher ou Afficher cette ligne en fonction de la valeur de la checkbox.

J'ai fait le code suivant mais dès la 1ere ligne ça plante...
"Qualificateur incorrect" pour le LinkedCell

En cherchant cette erreur sur internet je ne vois pas de cas semblable et je n'ai pas non plus trouvé d'exemple de code pour la 1ere étape de mon processus.

Du coup je n'ai pas pu tester la suite du code donc ma question principale est la récupération du numéro de ligne de la cellule liée de ma checkbox.

[EDIT: j'ai testé la suite en mettant "à la main" le numéro de ligne et ca fonctionne.]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CheckBox1_Click()
 
Dim LigneCase As Double
Dim NumeroCas As String
Dim NumeroAmdec As String
Dim LigneAmdec As String
 
LigneCase = CheckBox1.LinkedCell.Row
 
NumeroCas = ActiveSheet.Cells(LigneCase, 1).Value
 
NumeroAmdec = "A." + NumeroCas
 
LigneAmdec = ActiveSheet.Range("A1:IV65536").Find(NumeroAmdec).Row
 
If CheckBox1.Value = True Then
 
Rows(LigneAmdec).EntireRow.Hidden = False
 
Else
 
Rows(LigneAmdec).EntireRow.Hidden = True
 
End If
 
End Sub

Je remercie d'avance tous ceux qui prendront le temps de m'aider.

gbbtt

[jfontaine]

Bonjour,

Pour récupérer l'adresse de la cellule liée à la sélection d'une combobox positionnée sur un onglet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim rg As Range
 
Set rg = Sheets(Split(ComboBox1.ListFillRange, "!")(0)).Range(Split(ComboBox1.ListFillRange, "!")(1))
 
MsgBox rg.Cells(ComboBox1.ListIndex + 1, 1).Address

EDIT : avec la feuille des cellules liées c'est mieux

[gbbtt]

Bonjour,

Merci d'avoir répondu, hélas je n'ai pas réussi à adapter ce code qui est pour moi assez incompréhensible je dois l'avouer meme en cherchant Split et ListFillRange dans l'aide j'ai du mal à comprendre ce que ca fait réellement...

Sinon j'ai simplement changé les ComboBox en CheckBox et tester simplement ce code et j'ai une erreur sur la méthode ListFillRange.

[jfontaine]

Quelques explications

- ListFillRange est une propriété d'une combobox pour l'alimenter à partir d'une liste de données positionnées dans une feuille (Plage de données)
Dans l'exemple joint ListFillRange = Feuil2!E8:E14

- Split permet de séparer des informations en spécifiant le séparateur
dans le cas de ListFillRange si on prend le séparateur "!" on trouvera a gauche (position 0) le nom de la feuille puis a droite (position 1) la plage de données qui alimente notre combobox
Sheets(Split(ComboBox1.ListFillRange, "!")(0) = Feuil2
Sheets(Split(ComboBox1.ListFillRange, "!")(1) = E8:E14

- Avec ces information il nous est ainsi possible de retrouver l'adresse de la donnée sélectionnée dans la combobox
rg.Cells(ComboBox1.ListIndex + 1, 1).Address

Je te joint le fichier
VBA - Combobox - ListFillRange.xls

[gbbtt]

Je comprends bien mieux le fonctionnement merci!
Le souci c'est que moi je cherche à retrouver l'adresse (et plus précisément la ligne) de la cellule liée d'une CheckBox et non d'une Combobox.
Et les méthodes List (Index ou FillRange) ne s'applique pas à une CheckBox...

[jfontaine]

Le souci c'est que moi je cherche à retrouver l'adresse (et plus précisément la ligne) de la cellule liée d'une CheckBox et non d'une Combobox.
Et les méthodes List (Index ou FillRange) ne s'applique pas à une CheckBox...

Ca m'apprendra à ne pas lire correctement
faut vraiment que j'aille voir un ophtalmo