Discussion :

[STEFLOU]

Bonjour à Tous,

j'ai un fichier facturation comprenant une macro
dans le fichier, j'ai 4 sheet

"Data" comprenant mes textes label d'article
"Offer" comprenant mon editeur de facture
"Records" comprenant mon journal de facturation
"Subcon" comprenant mes coordonnées de clients

la macro que je possède est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton1_QuandClic() 
' 
' Bouton1_QuandClic Macro 
Sheets("Records").Select 
num = Range("A65536").End(xlUp).Value 
Lieu = Range("A65536").End(xlUp).Address 
num = num + 1 
Range(Lieu).Offset(1, 0) = num 
Range(Lieu).Offset(1, 1) = Date 
Range(Lieu).Offset(1, 2) = Time 
Sheets("Offer").Select 
Range("f4").Value = num 
End Sub

j'aimerais ajouter des fonctions a cette macro, mais je suis un peu perdu.
y-a-t'il une âme charitable qui voudrait bien m'aider à complèter ma macro pour les points suivants
j'aimerais qu'aprés validation du boutons, il me complète dans le sheet "Records" comme il le fait automatiquement avec le Num de facture , date, time
en colonne 4 "soit D" la valeur de la cellule "E9" du Sheet "Offre" (pour info cette celulle contient une fomule de rechercheV) et il doit suivre les autres données sans écraser les données existantes dans le fichier
en colonne 5 "soit E" la valeur de la cellule "G37" du Sheet "Offre" (pour info cette celulle contient une fomule de somme) et il doit suivre les autres données sans écraser les données existantes dans le fichier


attention suis débutant si possible de me corriger la macro directement, je ferais un copy/paste directement.
d'avance merci pour votre aide et votre temps.

stef.

[redstoff]

Bonjour,

Je pense que ta solution et rapidement faisable.
Cependant pour répondre au mieux a ton besoin, peux tu mettre a disposition ton fichier pour travailler dessus directement? ^^

[STEFLOU]

voila merci pour aide et ton temps.

stef

[redstoff]

voila ce que je te propose

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton1_QuandClic()
'
' Bouton1_QuandClic Macro
 
    num = Feuil2.Range("A65536").End(xlUp).Value
    Lieu = Feuil2.Range("A65536").End(xlUp).Address
    num = num + 1
    Feuil2.Range(Lieu).Offset(1, 0) = num
    Feuil2.Range(Lieu).Offset(1, 1) = Date
    Feuil2.Range(Lieu).Offset(1, 2) = Time
    Feuil2.Range(Lieu).Offset(1, 3) = Feuil1.Range("E9")
    Feuil2.Range(Lieu).Offset(1, 4) = Feuil1.Range("G37")
    Feuil1.Range("f4").Value = num
End Sub

tu remplaces ce qui tu avais par ce nouveau code et normalement ça doit répondre à ce que tu veux faire^^.

j'ai volontairement remplacé des choses ^^

[STEFLOU]

redstoff,

je te remercie pour ton temps et ton aide cela fonction super merci t'es un chef.

bonne fin de journée.

stef.