Selectionner une cellule avec vlookup en vba

Re : Selectionner une cellule avec vlookup en vba

Bonjour aeque,

VLOOKUP ne renvoie pas une plage mais une valeur (c'est recherchev dans la feuille de calcul), la valeur de la 44ème colonne de ta plage..

On ne sélectionne pas une valeur, d'où le soucis.

Re : Selectionner une cellule avec vlookup en vba

Bonjour Aeque, Tototiti, bonjour le forum,

Peut-être comme ça :

Re : Selectionner une cellule avec vlookup en vba

Merci tototiti

Mais alors comment faire?

J'ai besoin de pouvoir sélectionner une cellule en fonction d'une cellule liée (ici Sheets("STP").Range("A1" ))

C'est cette cellune qui défini où chercher dans mon tableau (ici Range("main_informations"))

Re : Selectionner une cellule avec vlookup en vba

Robert

Cela me renvoi une erreur Référence incorrecte ou non qualifiée pour

Set myRange = .Range("main_informations").Find(Sheets("STP").Range("A1"), , xlValues, xlWhole)

Re : Selectionner une cellule avec vlookup en vba

Bonjnour le fil, bonjour le forum,

il y avait une erreur en effet essaie :


Mais sans ton fichier, difficile de t'aider plus... Regarde l'aide VBA sur le mot clé Find.

Re : Selectionner une cellule avec vlookup en vba

Merci Robert ca Marche Nikel

c juste ajouté une ligne est c exactement ce que je souhaitais faire

Private Sub CheckBox22_AfterUpdate()
Dim myRange As Range
If Sheets("Formules").Range("Q2") = True Then
Set myRange = Range("main_informations").Find(Sheets("STP").Range("A1"), , xlValues, xlWhole).Offset(0, 44)
myRange.Select
ActiveCell = "X"
Else
ActiveCell.ClearContents
End If

End Sub


Merci bcp

Re : Selectionner une cellule avec vlookup en vba

Merci Robert ca Marche Nikel

c juste ajouté une ligne est c exactement ce que je souhaitais faire

Private Sub CheckBox22_AfterUpdate()
Dim myRange As Range
If Sheets("Formules").Range("Q2") = True Then
Set myRange = Range("main_informations").Find(Sheets("STP").Range("A1"), , xlValues, xlWhole).Offset(0, 44)
myRange.Select
ActiveCell = "X"
Else
ActiveCell.ClearContents
End If

End Sub


Merci bcp

Re : Selectionner une cellule avec vlookup en vba

Bonjour le fil, bonjour le forum,

tu n'étais pas obligé de sélectionner, ça marche aussi comme ça :

Re : Selectionner une cellule avec vlookup en vba

Merci pour l'info

par contre lorsque je rentre ce code

Private Sub CheckBox22_AfterUpdate()
Dim myRange As Range
If Sheets("Formules").Range("Q2") = True Then
Set myRange = Range("main_informations").Find(Sheets("STP").Range("A1"), , xlValues, xlWhole).Offset(0, 44)
myRange.Value = "X"
Else
ActiveCell.ClearContents
End If
End Sub
-----------------------------------------------------------------------
Private Sub CheckBox23_AfterUpdate()
Dim myRange As Range
If Sheets("Formules").Range("Q3") = True Then
Set myRange = Range("main_informations").Find(Sheets("STP").Range("A1"), , xlValues, xlWhole).Offset(0, 45)
myRange.Value = "X"
Else
ActiveCell.ClearContents
End If
End Sub




Je ne comprends pas pourquoi ca m'efface le X des autres cellules lorsque je clique dans les CheckBox. Je m'explique

- Je clique sur la CheckBox22 Le X se met dans la bonne case (A20)
- Je clique sur la CheckBox23 Le X de la cellule (A20) disparait puis un X se met dans la bonne case (B21)

Alors que je souhaiterai que tous restent en place ou soit supprimés si jamais la cache est cochée ou pas


Et désolé pour le fichier il est très gros dans plus de 5 MO. Si il le faut vraiment je vais tenter de recreer les macros juste nécessaire

Re : Selectionner une cellule avec vlookup en vba

non personne?