demande d'aide sur VBA

Bonjour,

Je recherche de l’aide sur VBA !!
Etant jeune novice, je me permets de vous demander de l’aide.

Je dois prendre une ligne constituée de plusieurs cases (colonnes) dans chaque case je rentre une valeur.
Entre temps j’ai créé un bouton qui me valide la ligne et me la renvoie sur une autre feuille.

exemple de se que je voudrais faire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Macro1()   Range("B1:H1").Select Selection.Copy Sheets("Feuil2").Select Range("C9").Select ActiveSheet.Paste Sheets("Feuil1").Select Application.CutCopyMode = False Selection.Copy Sheets("Feuil2").Select Range("C10").Select ActiveSheet.Paste Sheets("Feuil1").Select …. End Sub

---

Je voudrais faire cette étape mais en incrémentant avec une boucle for avec par exemple une variable i.
En résumer écrire dans une feuille 1 sur la même ligne des valeurs puis a chaque validation effacer cette ligne et la couper dans une autre feuille2. Cela me permettrait de créer une base de donnée.

Petit plus !! Je voudrais que dans ma base de donnée pour chaque validation, que l’on ne puisse plus changer ou effacer une ligne.

Merci d’avance pour l’aide que vous allez m’apporter. :)

Bonjour

Code:

---

1 2 3

Sheets("Feuil1").range("A1:H1").copy Destination:= _ sheets("Feuil2").range("A" & sheets("Feuil2").range("A65535").end(xlup).row + 1) sheets("Feuil1").range("A1:H1").clearcontents

---

Dans la premiere ligne, il copie les cellules A1:H1 de la feuille 1 et les mets dans la feuille2 à la premiere ligne vide trouvée

La deuxieme ligne, il videe les données saisies

la saisie se fait sur feuille 1

Bonne soirée

Bonjour,

Si tu veux qu'on te réponde encore,

1. Modifie ton titre pour qu'il reflète le contenu de la discussion.
2. N'ouvre pas une nouvelle discussion pour un même problème, continue dans celle-ci.