Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Liaison et affichage

Liaison et affichage

6 réponses
Avatar
SI
Bonjour

Je possède dans un classeur 2 feuilles.
L'une contenant plusieurs lignes & colonnes lisible en affichage plein
écran.
L'autre identique à la première avec des colonnes supplémentaires.

Mon souhait est qu'à partir d'un bouton de commande, je puisse lire sous la
forme d'un userform toutes les informations contenues dans la ligne de ma
2nd feuille liées à la position de mon curseur sur la 1er feuille.

Je vous en remercie par avance
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonjour,
Voici une piste de code à compléter, développer et tutti quanti, et coller dans un module :

Sub afich_voir()
'MPFE le 28/02/04 par Philippe Raulet
Dim poiNtdep As String, conTenu As String

With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

With Sheets("Feuil2")
conTenu = Range(poiNtdep).Offset(0, 2).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(2, 0).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(2, 1).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(1, 2).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(-1, -2).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(-2, -1).Value
End With
MsgBox conTenu, , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"SI" a écrit dans le message de news:403fcfc8$0$24945$
Bonjour

Je possède dans un classeur 2 feuilles.
L'une contenant plusieurs lignes & colonnes lisible en affichage plein
écran.
L'autre identique à la première avec des colonnes supplémentaires.

Mon souhait est qu'à partir d'un bouton de commande, je puisse lire sous la
forme d'un userform toutes les informations contenues dans la ligne de ma
2nd feuille liées à la position de mon curseur sur la 1er feuille.

Je vous en remercie par avance





Avatar
SI
Merci Philippe

Je teste et vous tiens au courant

"Philippe.R" a écrit dans le message de
news:O46W$sc$
Bonjour,
Voici une piste de code à compléter, développer et tutti quanti, et coller
dans un module :


Sub afich_voir()
'MPFE le 28/02/04 par Philippe Raulet
Dim poiNtdep As String, conTenu As String

With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

With Sheets("Feuil2")
conTenu = Range(poiNtdep).Offset(0, 2).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(2, 0).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(2, 1).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(1, 2).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(-1, -2).Value & " et "
conTenu = conTenu & Range(poiNtdep).Offset(-2, -1).Value
End With
MsgBox conTenu, , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"SI" a écrit dans le message de
news:403fcfc8$0$24945$

Bonjour

Je possède dans un classeur 2 feuilles.
L'une contenant plusieurs lignes & colonnes lisible en affichage plein
écran.
L'autre identique à la première avec des colonnes supplémentaires.

Mon souhait est qu'à partir d'un bouton de commande, je puisse lire sous
la


forme d'un userform toutes les informations contenues dans la ligne de
ma


2nd feuille liées à la position de mon curseur sur la 1er feuille.

Je vous en remercie par avance









Avatar
SI
Philippe,

Cette formule est parfaite mais malheureusement je n'arrive pas à
sélectionner les valeurs de la 'Feuil2'.
Ce sont les valeurs de la 'Feuil1' qui apparaissent.

Merci

Sub afich_voir()
Dim poiNtdep As String, conTenu As String
With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

With Sheets("Feuil2")
conTenu = Range(poiNtdep).Offset(0, 26).Value & Chr(13) & Chr(10) &
Chr(10)
conTenu = conTenu & "de " & Range(poiNtdep).Offset(0, 31).Value &
Chr(13) & Chr(10) & Chr(10)
conTenu = conTenu & Range(poiNtdep).Offset(0, 32).Value & Chr(13) &
Chr(10)
End With
MsgBox conTenu, , "Visualisation."
Avatar
Philippe.R
Bonjour SI,
Comme quoi on ne teste jamais assez, la bonne version semble être :

Sub afich_mieux()
'MPFE le 01/03/04 par Philippe Raulet
Dim poiNtdep As String, conTenu As String

With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

conTenu = Sheets("Feuil2").Range(poiNtdep).Offset(0, 2).Value & " et "
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(2, 0).Value & " et "
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(2, 1).Value & " et "
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(1, 2).Value & " et "
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(-1, -2).Value & " et "
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(-2, -1).Value

MsgBox conTenu, , "M.P.F.E."
End Sub

qui adaptée à ton cas donnerait :

Sub afich_voir()
Dim poiNtdep As String, conTenu As String
With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

conTenu = Sheets("Feuil2").Range(poiNtdep).Offset(0, 26).Value & Chr(13) & Chr(10) & Chr(10)
conTenu = conTenu & "de " & Sheets("Feuil2").Range(poiNtdep).Offset(0, 31).Value & Chr(13) _
& Chr(10) & Chr(10)
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(0, 32).Value & Chr(13) & Chr(10)

MsgBox conTenu, , "Visualisation."

endsub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"SI" a écrit dans le message de news:40431b12$0$28138$
Philippe,

Cette formule est parfaite mais malheureusement je n'arrive pas à
sélectionner les valeurs de la 'Feuil2'.
Ce sont les valeurs de la 'Feuil1' qui apparaissent.

Merci

Sub afich_voir()
Dim poiNtdep As String, conTenu As String
With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

With Sheets("Feuil2")
conTenu = Range(poiNtdep).Offset(0, 26).Value & Chr(13) & Chr(10) &
Chr(10)
conTenu = conTenu & "de " & Range(poiNtdep).Offset(0, 31).Value &
Chr(13) & Chr(10) & Chr(10)
conTenu = conTenu & Range(poiNtdep).Offset(0, 32).Value & Chr(13) &
Chr(10)
End With
MsgBox conTenu, , "Visualisation."




Avatar
SI
Comme quoi si je reflechissais un peu plus...

Merci beaucoup, c'est parfait.

"Philippe.R" a écrit dans le message de
news:OjIHgC4$
Bonjour SI,
Comme quoi on ne teste jamais assez, la bonne version semble être :

Sub afich_mieux()
'MPFE le 01/03/04 par Philippe Raulet
Dim poiNtdep As String, conTenu As String

With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

conTenu = Sheets("Feuil2").Range(poiNtdep).Offset(0, 2).Value & " et "
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(2,
0).Value & " et "

conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(2,
1).Value & " et "

conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(1,
2).Value & " et "

conTenu = conTenu &
Sheets("Feuil2").Range(poiNtdep).Offset(-1, -2).Value & " et "

conTenu = conTenu &
Sheets("Feuil2").Range(poiNtdep).Offset(-2, -1).Value


MsgBox conTenu, , "M.P.F.E."
End Sub

qui adaptée à ton cas donnerait :

Sub afich_voir()
Dim poiNtdep As String, conTenu As String
With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

conTenu = Sheets("Feuil2").Range(poiNtdep).Offset(0, 26).Value &
Chr(13) & Chr(10) & Chr(10)

conTenu = conTenu & "de " & Sheets("Feuil2").Range(poiNtdep).Offset(0,
31).Value & Chr(13) _

& Chr(10) & Chr(10)
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(0,
32).Value & Chr(13) & Chr(10)


MsgBox conTenu, , "Visualisation."

endsub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"SI" a écrit dans le message de
news:40431b12$0$28138$

Philippe,

Cette formule est parfaite mais malheureusement je n'arrive pas à
sélectionner les valeurs de la 'Feuil2'.
Ce sont les valeurs de la 'Feuil1' qui apparaissent.

Merci

Sub afich_voir()
Dim poiNtdep As String, conTenu As String
With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

With Sheets("Feuil2")
conTenu = Range(poiNtdep).Offset(0, 26).Value & Chr(13) & Chr(10) &
Chr(10)
conTenu = conTenu & "de " & Range(poiNtdep).Offset(0, 31).Value &
Chr(13) & Chr(10) & Chr(10)
conTenu = conTenu & Range(poiNtdep).Offset(0, 32).Value & Chr(13) &
Chr(10)
End With
MsgBox conTenu, , "Visualisation."








Avatar
Philippe.R
C'était avec plaisir !
--
Amicales Salutations

"SI" a écrit dans le message de news:40432f2b$0$28122$
Comme quoi si je reflechissais un peu plus...

Merci beaucoup, c'est parfait.

"Philippe.R" a écrit dans le message de
news:OjIHgC4$
Bonjour SI,
Comme quoi on ne teste jamais assez, la bonne version semble être :

Sub afich_mieux()
'MPFE le 01/03/04 par Philippe Raulet
Dim poiNtdep As String, conTenu As String

With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

conTenu = Sheets("Feuil2").Range(poiNtdep).Offset(0, 2).Value & " et "
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(2,
0).Value & " et "

conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(2,
1).Value & " et "

conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(1,
2).Value & " et "

conTenu = conTenu &
Sheets("Feuil2").Range(poiNtdep).Offset(-1, -2).Value & " et "

conTenu = conTenu &
Sheets("Feuil2").Range(poiNtdep).Offset(-2, -1).Value


MsgBox conTenu, , "M.P.F.E."
End Sub

qui adaptée à ton cas donnerait :

Sub afich_voir()
Dim poiNtdep As String, conTenu As String
With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

conTenu = Sheets("Feuil2").Range(poiNtdep).Offset(0, 26).Value &
Chr(13) & Chr(10) & Chr(10)

conTenu = conTenu & "de " & Sheets("Feuil2").Range(poiNtdep).Offset(0,
31).Value & Chr(13) _

& Chr(10) & Chr(10)
conTenu = conTenu & Sheets("Feuil2").Range(poiNtdep).Offset(0,
32).Value & Chr(13) & Chr(10)


MsgBox conTenu, , "Visualisation."

endsub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"SI" a écrit dans le message de
news:40431b12$0$28138$

Philippe,

Cette formule est parfaite mais malheureusement je n'arrive pas à
sélectionner les valeurs de la 'Feuil2'.
Ce sont les valeurs de la 'Feuil1' qui apparaissent.

Merci

Sub afich_voir()
Dim poiNtdep As String, conTenu As String
With Sheets("Feuil1")
poiNtdep = ActiveCell.Address
End With

With Sheets("Feuil2")
conTenu = Range(poiNtdep).Offset(0, 26).Value & Chr(13) & Chr(10) &
Chr(10)
conTenu = conTenu & "de " & Range(poiNtdep).Offset(0, 31).Value &
Chr(13) & Chr(10) & Chr(10)
conTenu = conTenu & Range(poiNtdep).Offset(0, 32).Value & Chr(13) &
Chr(10)
End With
MsgBox conTenu, , "Visualisation."