Gestion automatique d'informations entre deux feuilles

Résolu
Boukistyle10 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
Boukistyle10 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous :)

J'ai un petit problème sur lequel je bloque depuis quelques temps déjà.

Je m'explique , j'ai deux feuilles qui contiennent respectivement :
- un tableau avec certaines informations sur la colonne A, B, C , et sur la colonne E des liens vers la deuxième feuille ( de la 1ére ligne jusqu'à la dernière ligne du tableau)
- et un formulaire qui "devrait" se remplir automatiquement avec les colonnes A, B et C avec la formule : =Feuil1!A7 ... ect.

Mon problème est le suivant, je souhaiterai que lorsque je clique sur la ligne par exemple E15 de ma première feuille les informations des colonnes A, B, C se copie et se colle sur la deuxième feuille contenant le formulaire (Sans avoir plusieurs formulaires.. juste un seul qui s'incrémenterait en fonction de la ligne du lien sur lequel je viens de cliquer)

Merci d'avance pour vos réponses,
Je m'excuse d'avance si mes propos n'ont pas été suffisamment clair,

Bien à vous,

3 réponses

Réponse 1 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour,

Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l'attente

0
Boukistyle10 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour Michel,

Merci de votre réponse aussi rapide.
Voici le lien du document (J'ai supprimé quelques mises en forme du document par soucis de confidentialité : http://www.cjoint.com/c/EIrioUL7TFo

Bien à vous,
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

macro dans module feuil1 gestion immo 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Byte, Ligvid As Byte

If Not Intersect(Target, Range("E1:E20")) Is Nothing Then
    Lig = Target.Row
    With Sheets("mise en rébut")
       Ligvid= .Columns("B").Find("", .Range("B6"), xlValues).Row
        .Cells(Derlig, "B") = Cells(Lig, "C") 'désignation
        .Cells(Derlig, "C") = Cells(Lig, "D") 'distinction
        .Cells(Derlig, "D") = Cells(Lig, "A") ' numéro immo
        .Range(.Cells(Derlig, "B"), .Cells(Derlig, "E")).Borders.Weight = xlThin
        .Activate
    End With
End If
End Sub


IMPORTANT: SUPPRIMER LES LIENS HYPERTEXTE DANS LA FEUILLE "gestion immo"

manquait l'année d'achat

Michel
0
Boukistyle10 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   2
 
Tout d'abord merci pour ce macro, cela peut sembler bête mais où le placer ?
Je viens juste de supprimer les liens hypertextes de la première feuille

Encore merci Michel, une fois le macro placé je vous tiendrais au courant du bon fonctionnement du document,

Bien à vous,
0
Réponse 3 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
j'avais oublié le classeur avec les changements de disposition dans "mise au rébut"
http://www.cjoint.com/c/EIrjckNRZGb
0
Boukistyle10 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   2
 
Je test votre document et vous tien informé . Merci pour l'upload :)
0
Boukistyle10 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   2
 
Le code marche parfaitement et je vous en remercie :) .
J'aurais une petite questiontconcernant la ligne de code suivante : " If Not Intersect(Target, Range("E1:E40")) Is Nothing Then "
En sachant que j'ai 600 lignes j'a remplacé E40 par E600, un problème est survenu avec un code erreur "6" m'indiquant : "Dépassement de capacité" en mode débogage ... auriez-vous une idée du problème ? Je cherche de mon côté ;)

Merci encore Michel,

Bonne journée,

Bien à vous
0
Boukistyle10 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   2
 
J'ai trouvé .. le type de variable n'était pas bon, il fallait déclarer un "Integer" et non pas un "Byte"... ! Merci :)

Problème résolu !
0