cherche code pour remplir des colonnes en fonction de la valeur d'une cellule

[alfazoulou]

bonjour à toutes et à tous.
voila mon problème:
je doit saisir un nom dans la cellule A1, et un chiffre dans la cellule B1
j'ai 10 colonnes de K à T dont les titres se trouvent à la ligne 7
Ces titres correspondants aux noms que j'aurais à saisir en A1, je voudrais que le chiffre soit recopier dans la colonne dont le titre correspond au nom.
Le but est d'avoir un tableau avec des colonnes et un total pour chaque colonne.

Excusez moi mais je suis débutant et je n'est peut etre pas été tré clair.
Je vous remercie d'avance pour vos réponses.

 

[Bebere]

Re : cherche code pour remplir des colonnes en fonction de la valeur d'une cellule

bonjour AlfaZoulou
un bout de fichier nous faciliterait la vie,- de 50k extension .zip ou .xls
en formule ou en vba
à bientôt

 

[alfazoulou]

Re : cherche code pour remplir des colonnes en fonction de la valeur d'une cellule

Merci Bebere de t'intéresser à mon cas qui je pense doit être facile à résoudre pour les habitués de ce forum.
je joint un fichier d'exemple

 

[Banzai64]

Re : cherche code pour remplir des colonnes en fonction de la valeur d'une cellule

Bonjour

Une idée et du VBA

 

[alfazoulou]

Re : cherche code pour remplir des colonnes en fonction de la valeur d'une cellule

Merci Banzai64.
ton code semble correspondre à mon projet mais autant que je comprenne a peu pres le mécanisme.
Je ne comprends pas ou se trouve l'instruction qui fait réference à la somme à cpier dans les cellules du tableau soit B2.
peut tu m'expliquer.
s'agissant d'un petit programme de budget perso la case B2 fait réference à des débit, mais il y aura aussi une autre case à renseigner pour les crédits.
Je nommerai ces deux case "débit" et "crédit".
Si je veux continuer il faut que je comprenne/
Merci

 

[alfazoulou]

Re : cherche code pour remplir des colonnes en fonction de la valeur d'une cellule

Sub Recopie()
Dim Cel As Range
Dim Derlig As Long

With Sheets("Feuil1")
Set Cel = .Range("K7:T7").Find(.Range("A1"), LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
If .Cells(8, Cel.Column) = "" Then
Derlig = 8
Else
Derlig = .Cells(7, Cel.Column).End(xlDown).Row + 1
End If
If Derlig > 38 Then
MsgBox "Limite du tableau atteinte"
Exit Sub
End If
.Cells(Derlig, Cel.Column) = Range("débits")
End If
End With

End Sub

Merci encore pour ton code.
J'ai compris ce qui faisait réference à ma cellule B1 , mais pourquoi "With Sheets("Feuil1")"
comment faire si je désire par une macro copier la feuil1 nommée Janvier pour créer une 2eme feuille pour février et etc...
je vais etre bloqué par cette instruction.

est ce que je peux marquer par exemple quelque chose dans le genre:

"With Sheets("Feuil1:Feuil12")"