Remplir un Tableau en fonction d'une cellule

[sand13]

[Presque Résolu]Remplir un Tableau en fonction d'une cellule

Salut le forum j'ai encore une fois besoin de vous !)
J'ai une feuille excel dans laquelle j'ai crée un bouton permettant de reporter des données sur la deuxieme feuimme (recap_distri)
Comment faire pour que celles-ci se reportent sur la bonne colonne (qui correspond au numéro d'une période) ??
J'ai fais une programmation peu intuitive et lourde, alors que je pense qu'il y a un autre moyen, par une définition de variables etc ... mai je ne sais comment faire

Ce sont les cellules D8, jusqu'a D12, et la cellule D98 qui doivent se reporter sur le tableau de la deuxieme feuille (le numéro de la période que rentre l'utilisateur se situe en U4

Je vous joins le fichier avec la programmation que j'ai fais
Merci par avance !!



NB: je cherche également une formule par VBA pour supprimer des données contenues dans une colonne, ou dans une ligne

 

[Staple1600]

Re : Remplir un Tableau en fonction d'une cellule

Bonsoir

Un exemple de traitement ( à adapter)

Sub test()
Dim y As Integer
Dim x As Integer
y = [vPeriode] 'cellule nommée (avec Insertion/Noms)
x = Sheets("recap_distri").Columns(y).Column 'pour obtenir le numéro de colonne
Dim P As Range
Dim D As Range
Set P = Sheets("distri").Range("D8:D12") 'plage source
Set D = Sheets("recap_distri").Cells(9, x + 3) 'plage destination
P.Copy D 'copie des données dans la colonne correspondant à la période renseignée
End Sub

 

[sand13]

Re : Remplir un Tableau en fonction d'une cellule

Merci beaucoup ca marche tres bien
Seulement Lorsque je copie une cellule vers ce tableau comment faut-il faire pour qu'il ne copisse que les valeurs et non les formules ??

 

[Staple1600]

Re : Remplir un Tableau en fonction d'une cellule

Re

Version 2

Sub testII()
Dim y As Integer
Dim x As Integer
y = [vPeriode] 'cellule nommée (avec Insertion/Noms)
x = Sheets("recap_distri").Columns(y).Column 'pour obtenir le numéro de colonne
Dim P As Range
Dim D As Range
Set P = Sheets("distri").Range("D8:D12") 'plage source
Set D = Sheets("recap_distri").Cells(9, x + 3) 'plage destination
P.Copy
D.PasteSpecial xlValues, xlNone, False, False
Application.CutCopyMode = False
End Sub