Fdaga

[Fdaga]

Bonjour et grand merci pour les solutions proposées dans ce forum.
Ma question : comment remplacer dans la ligne 4 ("A12:L18") par la valeur de la cellule ("B2") variable et permettant de sélectionner les codes attribués à des plages de cellules stockées dans la feuille Liste, puis accessoirement la recopier à sa place dans la feuille Liste

Sub ListeASaisie()
1 Dim Code As String
2 Code = Range("B2").Value
3 Sheets("LISTE").Select
4 Range("A12:L18").Select
5 Selection.Copy
6 Sheets("Saisie").Select
7 Range("A4").Select
8 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
10 Sheets("Saisie").Select
11 End Sub

 

[VIARD]

Bonjour Fdaga

Bienvenue sur XLD, tous ici sont prêts à t'aider.
Il faut bien sur lire la charte, ceci ne prend que quelques minutes.
De plus ici tu es sur "Présentation des nouveaux membres"
Réédite ta demande sur "Forum excel".

Ne pas oublié pour une demande de joindre un fichier exposant le problème le plus clairement possible.
ici ton exposé risque de partir aux oubliettes.
Tu auras plus de chance sur le "Forum excel" et toute l'aide souhaitée.
Peut-être trouveras-tu la personne qui t'as aidé ?
Amicalement

 

[dysorthographie]

bonsoir,
avec tous ces select l'utilisateur risque une crise d'épilepsie

Sheets("LISTE").Range("A12:L18").Copy
 Sheets("Saisie").Range("A4").PasteSpecial Paste:=xlPasteValues,Transpose:=False