Bonjour,
Adhérent d'associations, j'ai beaucoup bénéficié des échanges et des solutions proposées et grâce à tous les personnes qui contribuent à résoudre les questions et difficultés rencontrées lors de l'élaboration d'outils de gestion j'ai pu mettre en place des outils adaptés au fonctionnement de ces structures. Grand merci à chacun-e.
Mais voici que je suis en demande.
Je souhaite mettre en place, avec la procédure VBA ci dessous, un système de mise à jour d'un fichier d'associations constitué de trois feuilles : La feuille "Saisie" serait la seule visible, les deux autres "Liste" (constituée de plages référencées avec un code confidentiel pour chaque asso) et "Compil" seront masquées. :
Objectif : à partir de la feuille "Saisie", copier chercher et copier dans la feuille "Liste" la plage d'asso répondant au code entré dans la cellule "B2" et la coller (le texte seulement) dans la feuille "Saisie" pour être visualisée et ou modifiée
N° de ligne
0 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
Mon problème : 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
Je ne sais pas si je sélectionne la bon mot clé.
D'avance merci pour vos éclairages
Adhérent d'associations, j'ai beaucoup bénéficié des échanges et des solutions proposées et grâce à tous les personnes qui contribuent à résoudre les questions et difficultés rencontrées lors de l'élaboration d'outils de gestion j'ai pu mettre en place des outils adaptés au fonctionnement de ces structures. Grand merci à chacun-e.
Mais voici que je suis en demande.
Je souhaite mettre en place, avec la procédure VBA ci dessous, un système de mise à jour d'un fichier d'associations constitué de trois feuilles : La feuille "Saisie" serait la seule visible, les deux autres "Liste" (constituée de plages référencées avec un code confidentiel pour chaque asso) et "Compil" seront masquées. :
Objectif : à partir de la feuille "Saisie", copier chercher et copier dans la feuille "Liste" la plage d'asso répondant au code entré dans la cellule "B2" et la coller (le texte seulement) dans la feuille "Saisie" pour être visualisée et ou modifiée
N° de ligne
0 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
Mon problème : 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
Je ne sais pas si je sélectionne la bon mot clé.
D'avance merci pour vos éclairages
