Récupération du résultat d'une liaison via VBA
Bonjour
Mon Problème :
J’ai un fichier excel en liaison avec un autre fichier excel pour les cellules des colonnes A B C.
Trois résultats peuvent apparaître dans la colonne B (Me, Mr, Libre)
Je voudrais que si le résultat ‘Libre’ apparaît, les données des cellules F G H de la ligne s’effacent.
Pour cela, j’ai fait un VBA.
Mais celui-ci ne fonctionne que si je tape via clavier le mot ‘Libre’ dans la case (je perds donc l’ancien contenu de la cellule qui était la liaison avec mon autre fichier)
Comment modifier ce VBA pour obtenir le même effet avec une cellule dont le résultat de la liaison est ‘Libre’, sans avoir à le taper dans la cellule ??
En gros comment récupérer la valeur de la liaison, et l’inclure dans le code pour obtenir le même effet qu’avec une valeur tapée au clavier.
Ci-joint un fichier doc plus explicite.
D'avance merci
Bonjour
Tu devrais joindre ton fichier Excel...
Bye !
Bonjour
Avec un peu retard, voici le fichier ci-joint
Qui j'espère clarifiera ma demande
Cordialement
Bonjour
Quand tu colles, ton Target n'est pas défini
Quand tu entres Libre en dur, le Target est défini.
Essaie
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
For Each Cel In Range("B2:B7")
If Cel = "Libre" Then
Range(Cel.Offset(0, 4), Cel.Offset(0, 8)).ClearContents
End If
Next Cel
End SubCordialement
Amadéus a écrit :Bonjour
Quand tu colles, ton Targrt n'est pas défini
Quand tu entres Libre en dur, le Target est défini.
Essaie
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Cel As Range For Each Cel In Range("B2:B7") If Cel = "Libre" Then Range(Cel.Offset(0, 4), Cel.Offset(0, 8)).ClearContents End If Next Cel End SubCordialement
Merci à tous d'avoir recherché mon problème.
Particulièrement à 'Amadéus' pour l'avoir résolu