XL 2010 renvoi à plusieurs colonnes( résolu )

[Kael_88]

Le forum,

Voilà, j'utilise ce code pour retrouver et me positionner sur une valeur dans la feuille 1 en double-cliquant sur la même valeur en feuille 2.

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
    Dim Feuil1 As Worksheet

    Set Feuil1 = Sheets("Feuil1") 'Feuil destination
    Set v = Feuil1.Cells.Find(R.Text, Feuil1.Cells(1, 1))
    Feuil1.Visible = True

On Error Resume Next
    Application.Goto Feuil1.Range(v.Address)
    Selection.Copy
End Sub

Merci @Staple1600

Si possible, maintenant il faudrait que si je double-clic sur une valeur de la colonne 2 en feuille 2 ,j'arrive à la même chose, et que si je double-clic sur la valeur en colonne 5 feuillle 2 j'ai la même chose en feuille 3, et si je double-clic sur la valeur en colonne 14 feuille 2 idem en feuille 1.

je ne pense pas qu'il faille un fichier. cordialement

 

[Staple1600]

Bonsoir le fil, le forum

@Kael_88
De rien

Mais pourquoi diable ne pas voir ici continuer ?
https://www.excel-downloads.com/thr...me-valeurs-après-double-clic-résolu.20024304/

 

[Kael_88]

le forum, @Staple1600 ,

Bien évidement, j'y suis allé, vu que c'est un de mes fils mais, je n'arrive pas à comprendre les codes pour pouvoir les adapter à mon vouloir.(et que mon programme évoluant, il y a plus de besoin qu'à ce moment)

je ne suis qu'un simple débutant en quête de savoir dans la programmation VBA.

cordialement

 

[Staple1600]

Re

@Kael_88
Je voulais dire que l'usage est de relancer une question (en y faisant un up*) plutôt que d'ouvrir une seconde discussion.

*:faire un up: se répondre à soi-même dans sa discussion ( ce qui a pour résultat d'afficher la discussion en tête de liste)
(et accessoirement de connaitre l'historique du fil, d'y déjà trouver des fichiers exemple)

 

[Kael_88]

le forum, @Staple1600 ,

dsl, je ne savais pas que l'on pouvais faire ça, vu qu'à l’époque je l'avais mis résolu.

et comment fait on pour ce renvoi ?

cordialement

 

[Staple1600]

Re

Bah, tu retournes dans le premier fil et tu cliques sur Répondre
(Mais bon, c'est peut-être un peu tard désormais , vu que les deux fils désormais existent)

 

[job75]

Bonjour Kael_88, JM, le forum,

Pas bien d'accord avec toi JM car il y a cette règle dans la Charte :

3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.

La question posée ici n'est pas très claire mais on peut toujours mettre tout ce code dans ThisWorkbook :

Dim texte$ 'mémorise la variable

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
texte = Target(1).Text
If texte <> "" Then MsgBox "Activez la feuille où vous voulez chercher '" & texte & "'..."
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If texte = "" Then Exit Sub
On Error Resume Next
Cells.Find(texte, , xlValues, xlWhole).Select
If ActiveCell.Text <> texte Then MsgBox "'" & texte & "' n'existe pas dans cette feuille..."
End Sub

Bonne journée.

 

[job75]

Re,

Tout le monde fait la sieste ? Une variante pour quand vous vous réveillerez :

Dim texte$ 'mémorise la variable

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
texte = Target(1).Text
If texte <> "" Then MsgBox "Activez la feuille où vous voulez chercher '" & texte & "'..."
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If texte = "" Then Exit Sub
On Error Resume Next
Cells.Find(texte, , xlValues, xlWhole).Select
If ActiveCell.Text <> texte Then
    Cells.Find(texte, , xlValues, xlPart).Select
    MsgBox IIf(Application.CountIf(ActiveCell, "*" & texte & "*"), _
        "Recherche partielle OK...", "'" & texte & "' n'existe pas dans cette feuille...")
End If
End Sub

A+

 

[Kael_88]

le forum, @Staple1600 ,@job75
bonjour, désolé du retard, voyage à l'etranger oblige, merci en tout cas pour tes propositions,
une fois adapté, la première m'a suffit.

merci encore

Cordialement