Discussion :

[TheHighFlying]

Bonjour à tous,
merci de prendre un peu de temps pour m'aider à résoudre mon problème.

Donc voila dans mon tableau Excel j'utilise la formule suivante dans casiment toutes mes cellules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=INDIRECT((ADRESSE($C$2;16;;VRAI;"priv")))

Ici la cellule "C2" de ma feuille "priv" est le numéro de client,
chaque fois que je le change,
toutes les données de ma facture changent pour récupérer les données du clients corespondants au numéro.

Je dois maintenant effectuer un tableau regroupant toutes les données comme un petit résumé.

Il y a 5 acomptes à faire pour chaques clients,
ce que je veux faire c'est rentrer le numéro de client dans ma case "C2"
Automatiquement les données s'affichent sur ma feuille
En appuyant sur un bouton VBA "Enregistrer", j'aimerai qu'il copie l'acompte calculer numéro 1 dans le tableau en 1ère case
Puis faire cela pour chaques clients

Lorsque tous les acomptes 1 sont fait, je dois rentrer les acomptes 2.

Donc en reprennant un numéro de clients quelconque, ses données doivent s'afficher; ainsi que l'acompte 1 ajouté au tableau grace à mon bouton enregistrer.

Je refait les calcul avec les nouvelles valeur, click sur mon bouton "Enregitrer" et la nouvelle valeur de l'acompte doit s'afficher juste en dessous de l'acompte 1 et ce mémoriser avec le numéro de client ...

Si quelqu'un peu m'aider pour le programme de ma macro ca serai vraiment sympa !

Pour résumer et illustrer ce que je veux faire, je joint un exemple simplifié de mon tableau

==> La cellule "C2" est le numéro de client, son nom et adresse s'affiche automatiquement grace à mon code Excel
Et en appuyant sur "Enregistrer" je voudrais que la cellule "acompte" soit copier dans la cellule acompte 1 et si je click une deuxieme fois sur "Enregistrer" que la valeur de l'acompte ce copie dans acompte 2 etc...

Tout ca doit se mémoriser pour que si je retourne sur ce client, les données du tableau soit toujours rempli !

Merci !!

[Fvandermeulen]

Salut,
Pour que ce soit plus simple j'ai travaillé sur ton fichier que j'annexe.
Pour l'explication, j'ai ajouté sur ta feuille source (la feuil1) des colonnes avec les acomptes, dans la feuille 2 j'ai aouter le principe d'index que tu as déjà utilisé.
Grâce à ça le code suivant fait le reste:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Enregistrer()
 
Dim l As Integer 'dimensionne la variable qui prendra le numéro de ligne, dans l'exemple = n° client
Dim c As Integer 'dimensionne la variable qui prendra le numéro de colonne selon les acomptes déjà renseignés
Dim ValAcompte As Integer 'Dimensionne la variable qui prendra le montant de l'acompte
 
l = Sheets("feuil2").Range("c2").Value 'dans l'exemple le n° ligne correspond au N° client
c = Sheets("feuil1").Cells(l, 256).End(xlToLeft).Column + 1 'Trouve la dernière colonne remplie de la ligne
ValAcompte = Sheets("Feuil2").Range("F10").Value 'Récupère le montant de l'acompte
 
Sheets("feuil1").Cells(l, c) = ValAcompte 'Affecte à la première cellule des acompte de la ligne la valeur de l'acompte
 
End Sub

J'imagine que le numéro de client, dans ton fichier réel ne correspond pas au numéro de ligne, il te faudra donc adapter ça pour pouvoir récupérer le numéro de ligne suivant le numéro réel du client.
Bonne continuation,

[TheHighFlying]

Je te remercie mille fois, je vais voir pour adapter tous ca cette aprem a mon tableau !!