Discussion :

[Etienne.b]

Bonjour à tous,

Je me trouve sur un problème , j'ai réalisé la semaine dernière un fichier avec le même type de programme VBA, et il fonctionne très bien. Je veux reproduire la même manipulation et ici le programme fonctionne différemment. Le but du programme et de copier-coller les informations de l'onglet saisi sur l'onglet base de la cellule A2 à la cellule AJ2. Je n'arrive pas à comprendre pourquoi. Merci pour votre aide. Je vous transmets le fichier ci-dessous.

Merci à tous.
bonne journée,
EB

[Invité]

Bonjour,

A tester :

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
17
18
19
20
21
22
 
Sub Saisie_Entree2()
 
Dim ListeCellules As Variant
Dim I As Integer, J As Integer
 
 
    Application.ScreenUpdating = False
 
    ListeCellules = Array("d4", "d6", "d8", "d10", "d12", "d14", "d16", "d18", "d20", "d22", "d24", "d26", "g4", "g6", "g8", "g10", "g12", "g14", "g16", "g18", "g20", "g22", "g24", "g26", "j4", "j6", "j8", "j10", "j12", "j14", "j16", "j18", "j20", "j22", "j24", "j26")
 
    Sheets("Base").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    J = 1
    For I = LBound(ListeCellules) To UBound(ListeCellules)
        Sheets("Base").Cells(2, J) = Sheets("Saisie").Range(ListeCellules(I)).Value
        Sheets("Saisie").Range(ListeCellules(I)).ClearContents
        J = J + 1
    Next I
 
    Application.ScreenUpdating = True
 
End Sub

[Etienne.b]

Bonjour,

Le fonctionnement correspond à mes besoins. Mais je souhaiterais que l'insertion se face non pas sur la ligne 2 mais sur la ligne 4.

Ceci me permettra de mettre des informations pour les utilisateurs.

Je vous remercie pour votre disponibilité. Bonne journée et bon confinement.

E B

[Invité]

Bonjour,

J'avoue que votre réponse m'interpelle un peu . Les valeurs sont à changer sur les lignes 12 et 15.

[Etienne.b]

Excusez-moi, je n'avais pas changé la ligne 15. Je vous remercie. J'ai la solution à mon problème.


Bonne journée,

EB