Discussion :

[aralth]

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 :

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

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.

[wilfried_42]

Bonjour

Code :

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

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

[AlainTech]

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.