Discussion :

[Skangell]

Bonjour à tous !

Je gère dans mon programme excel des CheckBox, dès qu'une case est cochée, j'aimerais récupérer la valeur de la cellule qui la précède

J'ai réussi à récupérer le nom de la cellule mais je n'arrive pas récupérer la valeur de la cellule d'avant :

Code :

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

1
2
3
4
5
6
7
8
9
 
For i = 1 To 70
   ' Si la checkbox est cochée on récupère la cellule dans laquel elle se trouve
   If ActiveSheet.OLEObjects("checkbox" & i).Object.Value = True Then
      CelluleAssociee = Sheets("Feuil1").Shapes("checkbox" & i).TopLeftCell.Address
      ' Ici à la place de CelluleAssociee = G11 j'aimerais avoir F11 !
      TabInfosSPIE(ChangeL, i) = Workbooks(1).Worksheets(1).Range(CelluleAssociee)
   End If
Next

J'espère que quelqu'un pourra m'aider ! Merci d'avance et bonne fin de journée !

[mayekeul]

bonjour,

je ne suis pas sur d'avoir compris mais..
c'est ça que tu veux faire?

Code :

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

TabInfosSPIE(ChangeL, i) = Workbooks(1).Worksheets(1).Range(CelluleAssociee).Offset(0,-1)

[Skangell]

Bonjour et merci pour ta réponse rapide !!

Je ne connaissais pas cette méthode, je suis novice dans le domaine !

Code :

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

1
2
3
4
5
6
7
 
For i = 1 To 69
   If ActiveSheet.OLEObjects("checkbox" & i).Object.Value = True Then
        CelluleAssociee = Sheets("Feuil1").Shapes("checkbox" & i).TopLeftCell.Address
        TabInfosSPIE(ChangeL, i) = Workbooks(1).Worksheets(1).Range(CelluleAssociee).Offset(0, -1)
      End If                 
Next

Comment puis-je vérifier la valeur de Workbooks(1).Worksheets(1).Range(CelluleAssociee).Offset(0, -1) ?
J'ai essayé d'afficher la valeur du tableau TabInfosSPIE(0,3) qui devrait contenir la valeur F11, mais cela ne fonctionne pas !

[mayekeul]

tu veux vérifier quoi exactement?
tu peux simplement mette la valeur de la cellule dans une variable

Code :

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

A=Workbooks(1).Worksheets(1).Range(CelluleAssociee).Offset(0, -1)

[Skangell]

Je veux vérifier que la valeur de Workbooks(1).Worksheets(1).Range(CelluleAssociee).Offset(0, -1) est bien égale à F11...

Mais j'ai déjà essayé cette solution !

[mayekeul]

Code :

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

1
2
3
 
with Workbooks(1).Worksheets(1)
.Range(CelluleAssociee).Offset(0, -1)

Code :

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

1
2
3
4
5
6
 
with Workbooks(1).Worksheets(1)
    if .Range(CelluleAssociee).Offset(0, -1)=.range("F11") then
        '... ton code
    end if
end with

[Skangell]

Pk with ???

[mayekeul]

c'est juste pour ne pas a chaque fois devoir retaper

Code :

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

Workbooks(1).Worksheets(1)

comme ça les objets se trouvant dans cette feuille peuvent être appelé directement pas un point
comme tu peux le voir dans la ligne du 'IF'

[Skangell]

Parfait !!! Au moins maintenant je sais que ça marche ! Merci pour ta rapidité et ta patience !

Bonne fin de journée :-)

[mayekeul]

avec plaisir

bonne fin de journée également

[Skangell]

Oups euh ... J'ai déclaré victoire trop vite !
La condition if passe tout le temps !! Et puis bon E13 n'est pas égal à F11

[mayekeul]

est ce que tu dois bien comparer deux valeur sur une même feuille?

[Skangell]

Je ne dois pas comparer 2 valeurs sur une même feuille ^^ Du coup oui je me suis mal exprimée !

Je veux juste récupérer la valeur de la cellule qui précède la checkbox (exemple en pièce jointe)

[mayekeul]

bon alors du coup tu dois faire ceci

Code :

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

1
2
3
4
 
with Workbooks(1).Worksheets(1)
    if .Range(CelluleAssociee).Offset(0, -1)=workbooks(tonbook).worksheets(tafeuille).range("F11") then
...

[Skangell]

Aïe ... Me suis encore mal exprimée ... Les cellules sont bien sur une même feuille ! Et je veux récupérer la valeur de la cellule à gauche de la CheckBox si celle-ci elle est cochée...

Je déteste faire perdre du temps au gens comme ça !!!! Désolé ...

[mayekeul]

et bien c'est ici

Code :

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

TabInfosSPIE(ChangeL, i) = Workbooks(1).Worksheets(1).Range(CelluleAssociee).Offset(0, -1)

mais je dois t'avouer que je ne te suis plus

[Skangell]

A la base je voulais récupérer la valeur de la cellule qui précède la cellule qui contient la CheckBox... (Comme dans la pièce jointe que j'ai ajouté à un de mes posts).
Que je récupère Range("F11"), F11 ou "Fibro" peut importe...

Ensuite après que tu m'ai donné la réponse, je voulais simplement vérifier quelle était la valeur de :

Code :

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

Workbooks(1).Worksheets(1).Range(CelluleAssociee).Offset(0, -1)

En l'affichant soit en MsgBox, soit dans une cellule pour être sûre que c'est bien l'instruction que je recherchais ...

Je ne sais pas si c'est plus clair, en tout cas j'suis vraiment désolé de te faire perdre du temps comme ça ! Merci !

[mayekeul]

Code :

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

1
2
3
4
5
6
7
8
 
 
For i = 1 To 69
   If ActiveSheet.OLEObjects("checkbox" & i).Object.Value = True Then
        TabInfosSPIE(ChangeL, i) =  Sheets("Feuil1").Shapes("checkbox" & i).TopLeftCell.offset(0,-1)
    msgbox tabinfosspie(changel,i)
     End If                 
Next

[Skangell]

Juste nickel ... Désolé pour cette perte de temps mais alors tu me sauves la vie !

Bonne fin de journée et en espérant que je ne t'ai pas trop déprimé ^^

[mayekeul]

tu es sure??

non non ne t'inquiétes pas lol

bonne journée a toi aussi