Petite macro toute simple

[ninanani]

Bonjour a tous, le forum.

Alors voila, je narrive pas a creer une macro succeptible de repondre a mes besoins, j espere que vous pourrez m aider a resoudre ce probleme... Je pense que oui, car je ne pense pas que cela soit dure, c est juste que je ne suis pas tres douee.

Lorsque j applique ma macro, je voudrais que:
- feuille "simple invoice" G5 aille feuille "dentist" B6
- "simple invoice" B4 aille "dentist" C6
- "simple invoice" B11 aille "dentist" D6
- "simple invoice" A19:A35 aille "dentist" E6
- "simple invoice" G36 aille "dentist" F6
- "simple invoice" H36 aille "dentist" G6
- G38 aille I6
- H38 aille J6
- G39 aille L6
- H39 aille M6

Toujours dans le meme sens de "simple invoice" vers "dentist".

Puis la fois suivante ou j appliquerai cette macro, il faudrait que sur le feuille "dentist" tout descende d une ligne:
B7 C7 D7.... ainsi de suite.

Voili voilo,
Merci d avance pour votre aide!
😀

 

[porcinet82]

Re : Petite macro toute simple

Salut,

Essaye la macro suivante :

Sub test()
Dim der_lig%
der_lig = Sheets("dentist").Range("B65536").End(xlUp).Row + 1
With Sheets("simple invoice")
    Sheets("dentist").Range("B" & der_lig).Value = .Range("B4").Value
    Sheets("dentist").Range("D" & der_lig).Value = .Range("B11").Value
[COLOR=seagreen]    'reste du code[/COLOR]
End With
End Sub

Je te laisse rajouter les lignes dont tu as besoin...

@+

 

[ninanani]

Re : Petite macro toute simple

Re Porcinet82.

MAGNIFIQUE!!!
Ca marche, merci bcp a toi...