• Initiateur de la discussion Initiateur de la discussion houmok
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

H

houmok

Guest
bonjour,
je ne suis pas tres doue avec cet outil je vous demande donc de l aide !
j'ai donc une feuille ou je fait mes bons de commande et j'enregistre certaines cellule dans une autre feuille mais lorsque j'efface ma feuille de bon de commande(grace a un bouton macro effacer) et que je rempli mon second bdc et lorsque je veux enregistrer ça enregistre sur l autre feuille mais ça l enregistre a la place de mes info du bdc1 alors que je voudrais que ça s'enregistre en plus en dessous . merci de m aider !
voila le code:
Sub enregistrer()
'
' enregistrer Macro

Sheets("liste bdc").Range("A2") = Sheets("bdc").Range("B6")
Sheets("liste bdc").Range("B2") = Sheets("bdc").Range("B7")
Sheets("liste bdc").Range("C2") = Sheets("bdc").Range("C30")
Sheets("liste bdc").Range("D2") = Sheets("bdc").Range("C31")
Sheets("liste bdc").Range("E2") = Sheets("bdc").Range("D25")
Sheets("liste bdc").Select

Sheets("dispo").Select

End Sub
 
Re : Aide vba

Bonsoir Houmok, JeanPierre

Juste rapidos pour encourager Houmok

C'est assez simple il suffit de faire une base comme ceci :

Code:
Sub enregistrer()
Dim LaDerniereLigne As Long
'
' enregistrer Macro
 
[COLOR=green][B]'Ici on trouve la dernière ligne Non-Vide en partant du bas et on ajoute +1
[/B][/COLOR]LaDerniereLigne = Sheets("liste bdc").Range("A65536").End(xlUp).Row + 1
 

Sheets("liste bdc").Range("A" & LaDerniereLigne) = Sheets("bdc").Range("B6")
Sheets("liste bdc").Range("B" & LaDerniereLigne) = Sheets("bdc").Range("B7")
Sheets("liste bdc").Range("C" & LaDerniereLigne) = Sheets("bdc").Range("C30")
Sheets("liste bdc").Range("D" & LaDerniereLigne) = Sheets("bdc").Range("C31")
Sheets("liste bdc").Range("E" & LaDerniereLigne) = Sheets("bdc").Range("D25")
Sheets("liste bdc").Select
Sheets("dispo").Select
End Sub

Il est clair que ce code peut être largement optimisé, mais si tu as déjà peur en ne pensant pas être doué (Personne n'est doué, c'est juste de l'expérience), il vaut mieux commencer tout petit pour comprendre.

Bonne Soirée

@+Thierry
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
746
Réponses
4
Affichages
756
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
1 K
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
589
Réponses
10
Affichages
1 K
Retour