XL 2010 Macro sélection bouton d'option

[whiteshark]

Bonjour à tous,
Je commence tout juste à me plonger dans le VBA
J'ai ce code si :
Private Sub OptionButton1_Click() ' Client 1
If OptionButton1 = True Then
Range("D16").Select
Application.CutCopyMode = False
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C16").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E16").Select
Application.CutCopyMode = False
Selection.Copy
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F16").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub

Pour faire simple lorsque je sélection un bouton d'option en début de ligne, les information du client (qui son sur cette ligne, dans cette exemple la ligne 16) sont affichées dans mon en-tête (dans l'exemple ce sont les cellules D1, D2, D3 et C6)
Cela marche très bien mais mon problème c'est que j'ai 100 clients dans ce ficher et je ne me vois mal copier cette macro 100 fois et changer mes coordonnées de cellules à la main. Les cellules d'en-tête ne change pas (D1, D2, D3 et C6 sont fixes) mais la ligne des info client si (client 1 -> ligne 16, client 2 ->17, client 3 ->18, etc).
Je pense que mon problème peut être résolu avec la commande dim mais je ne sais pas l'utiliser et je n'arrive pas à comprendre comment elle marche.
Pour l'instant une immense formule excel dans chaque case d'en-tête qui me permet de faire ça mais je voudrait passer par une macro pour faire plus simple.
J'espère que j'ai été suffisamment clair et que vous pourrez m'aider.

 

[herve62]

Bonjour
Je suppose que ce code n'est pas écrit dans un fichier WOrd ?? 😉
Ici un fichier Excel est toujours le bienvenu dans des cas comme ça !!!
Alors ... on attend avec explication de ce que tu attends, car en incluant une boucle dans la sub ton Pb devrait être vite résolu !!

 

[whiteshark]

Pardon, il me fallait un peu de temps pour simplifier le fichier. Mais du coup les cellules que j'avais donné dans mon premier exemple ne sont plus bonne 😱.
Donc j'ai mon tableau dont les premières colonnes correspondent à l'identité du client. Ce que je souhaiterais c'est que lorsque je coche un bouton d'option en début de ligne, l'identité du client correspondant s'affiche dans les case d'en-tête en jaune. Pour l'instant il a des formules dans ces cases qui remplissent ce rôle mais je voudrais remplacer tout ça par une macro. Il s'avère que la macro que j'ai tenté de faire ne marche pas du tout en fait donc je ne l'ai pas mise dans le fichier d'exemple.
Voilà j'espère que j'ai été un peu claire.

 

[whiteshark]

J'ai oublié de préciser que dans l'exemple il n'y a que 25 lignes, en réalité il y en 4 fois plus et ce nombre peut être amené à changer. C'est pour cette raison je voudrais une macro pour me simplifier les choses parce que modifier la formule à chaque fois devient rébarbatif.

 

[herve62]

Du coup on voit plus clair , je ne vois pas trop l'intérêt de juste mettre des infos dans ces cases du haut ??? mais bon c'est ton sujet
Trop lourd ta méthode , donc j'ai tout changé , plus de formule , plus de bouton, juste une macro selec_change qui se rapporte à la zone en saumon à adapter
Tu cliques dans une case

 

[whiteshark]

Merci ! C'est exactement ce que je cherchais.
Peux-tu m'expliquer la macro pour que je puisse la comprendre et l'adapter au besoin ?

 

[herve62]

Commentaires dans la macro

 

[whiteshark]

Merci beaucoup !! Je vais pouvoir faire ce que je veux maintenant.