Gestion automatique d'informations entre deux feuilles

Résolu/Fermé
Boukistyle10 Messages postés 24 Date d'inscription jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 - 17 sept. 2015 à 09:46
Boukistyle10 Messages postés 24 Date d'inscription jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 - 17 sept. 2015 à 14:17
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,
A voir également:

3 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
17 sept. 2015 à 09:50
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 jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 2
17 sept. 2015 à 10:16
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
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 17/09/2015 à 10:56
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 jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 2
17 sept. 2015 à 11:03
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
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
17 sept. 2015 à 11:02
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 jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 2
17 sept. 2015 à 11:08
Je test votre document et vous tien informé . Merci pour l'upload :)
0
Boukistyle10 Messages postés 24 Date d'inscription jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 2
17 sept. 2015 à 14:04
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 jeudi 17 septembre 2015 Statut Membre Dernière intervention 30 octobre 2015 2
17 sept. 2015 à 14:17
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