Lien automatique vers une page créée avec une même macro

[Cedric apf]

[Résolu]Lien automatique vers une page créée avec une même macro

Bonjour à tous, je suis débutant en vba et là je bloque. J'ai essayé de trouver des bidouilles avec l'enregistreur de macro, mais sans succès...

alors, j'ai une macro sur un bouton qui me permet d'ajouter des clients à une liste existante (coordonnées et autres) et créée également une nouvelle page pour chaque nouveau client. Sur cette fiche client (et ma liste) j'ai automatisé les infos avec des inputbox (même le nom de la feuille prend le nom du client), ainsi que la mise en forme.

Ces mêmes infos d'InputBox sont répertoriées aussi sur ma page de base (base clients) regroupant tous mes clients (un par ligne).

Tout ça fonctionne très bien (j'ai mis beaucoup de temps 😀), mais là je bloque car je voudrais sur ma feuille de base répertoriant tous les clients, que sur chaque nom de client, ma macro place aussi un lien vers la fiche du client concerné.

Voici la macro placée sur mon bouton :

Sub Nouvelle_fiche()
'
' Nouvelle_fiche Macro
'
Dim d1, d2, d3, d4, d5, d6, d7, d8

d1 = InputBox("Nom du Client ?")
d2 = InputBox("Code postale ?")
d3 = InputBox("Ville ?")
d4 = InputBox("N° et Rue du Client ?")
d5 = InputBox("Nom du Contact ?")
d6 = InputBox("N° de Tél ? (Sans espace ni tiret)")
d7 = InputBox("N° de Fax ? (Sans espace ni tiret)")
d8 = InputBox("adresse email ? (nc si non-communiquée)")

Range("A65536").End(xlUp).Offset(1, 0).Value = d1
Range("C65536").End(xlUp).Offset(1, 0).Value = d2
Range("D65536").End(xlUp).Offset(1, 0).Value = d3
Range("B65536").End(xlUp).Offset(1, 0).Value = d4
Range("E65536").End(xlUp).Offset(1, 0).Value = d5
Range("F65536").End(xlUp).Offset(1, 0).Value = d6
Range("G65536").End(xlUp).Offset(1, 0).Value = d7
Range("H65536").End(xlUp).Offset(1, 0).Value = d8

Sheets("Modèle fiche Client").Select
Range("A1:H6").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = d1
ActiveSheet.Paste
ActiveSheet.Move Before:=Sheets(3)

Sheets(d1).Select

Columns("A:A").ColumnWidth = 36.43
Columns("I:I").ColumnWidth = 24.57
Columns("G:G").ColumnWidth = 30.57
Columns("F:F").ColumnWidth = 30.57
Columns("E:E").ColumnWidth = 32.86
Columns("D😀").ColumnWidth = 44.71
Columns("C:C").ColumnWidth = 19.86
Columns("B:B").ColumnWidth = 30.57
Rows("1:1").RowHeight = 31.5
Rows("2:44750").Select
Selection.RowHeight = 39.75
ActiveWindow.Zoom = 62
Columns("H:H").ColumnWidth = 57.29
Range("A1").Select

Range("A1") = d1
Range("C1") = d2
Range("D1") = d3
Range("B1") = d4
Range("E2") = d5
Range("F2") = d6
Range("G2") = d7
Range("H2") = d8

Range("A6").Select
ActiveWindow.FreezePanes = True

End Sub

 

[Cedric apf]

Re : Lien automatique vers une page créée avec une même macro

Pour continuer sur mon fichier de client, est-ce qu'il y a moyen de lier lors de la création d'une fiche client, les infos de la ligne client sur la feuille Base Clients et les infos reprises sur la fiche du client. pour le moment sur la fiche client j'ai attribué comme suit les cellules qu'il faudrait lier. Quand je dis "lier" c'est que je voudrais que l'info change sur les deux feuilles dès lors que je la modifie soit depuis la Base Clients ou soit depuis la fiche du Client. Qu'elle reste égale quoi...

Au sein de la fiche client les infos sont insérées comme ça pour le moment :

Range("A1") = d1
Range("C1") = d2
Range("D1") = d3
Range("B1") = d4
Range("E2") = d5
Range("F2") = d6
Range("G2") = d7
Range("H2") = d8

Et sur la feuille base clients, c'est fait comme ça actuellement (faites pas gaffe à la mise en forme) :

Range("A65536").End(xlUp).Offset(1, 0).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
d1 & "!A1", TextToDisplay:=d1

Range("C4").Select
Selection.Copy
Range("C65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C65536").End(xlUp).Offset(1, 0).Value = d2

Range("D4").Select
Selection.Copy
Range("D65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("D65536").End(xlUp).Offset(1, 0).Value = d3

Range("B4").Select
Selection.Copy
Range("B65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B65536").End(xlUp).Offset(1, 0).Value = d4

Range("E4").Select
Selection.Copy
Range("E65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("E65536").End(xlUp).Offset(1, 0).Value = d5

Range("F4").Select
Selection.Copy
Range("F65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("F65536").End(xlUp).Offset(1, 0).Value = d6

Range("G4").Select
Selection.Copy
Range("G65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("G65536").End(xlUp).Offset(1, 0).Value = d7

Range("H4").Select
Selection.Copy
Range("H65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("H65536").End(xlUp).Offset(1, 0).Value = d8

 

[JNP]

Re : Lien automatique vers une page créée avec une même macro

Re 🙂,
Avec une événementielle derrière ta feuille modèle, tu peux surveiller les cellules qui t'intéressent et envoyer la modification dans ta feuille récapitulative, et vice et versa avec une événementielle dans la feuille récapitulative.
Bon courage 😎

 

[Cedric apf]

Re : Lien automatique vers une page créée avec une même macro

Vu que je n'ai pas trop de piste de comment faire, je vais laissé tomber cette idée...

Merci pour tout JNP, tu m'as vraiment beaucoup aidé 😉