Discussion :

[Marsu799]

Bonjour à tous,

Nouveau dans ce forum et ne connaissant rien en VBA j'ai besoin de votre aide pour mon petit tableau.

Je travaille avec Excel 2010 et je créé un petit tableau pour gérer mes congélateurs.

dans cette macro, je copie une ligne et la colle en dernier dans la page suivante. Ça marche bien, mais je voudrai que la ligne soit coller le nombre de fois (variable entre 1 et plus) indiqué en cellule E6 et la je cale. J'ai recherché mais ne trouve que des solutions si cellule oui/non ou bien si différent, etc. mais pas mon besoin.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 EntréProduits Macro
    Range("B6:F6").Select
    Selection.Copy
    Sheets("Congele").Select
    Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Menu").Select
    Range("C6:F6").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C6:D6").Select
End Sub

Alors merci de votre aide et j'aurai certainement d'autres besoins par la suite, mais comme disait l'autre: "chi va piano va sano" alors je règle ce problème et cherche les quatre solutions pour le moment.

Merci à tous et bonne journée.

[Theze]

Bonjour,

Une piste :

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
 
Sub Test()
 
    Dim NBFois As Integer
    Dim I As Integer
 
    NBFois = 10 'ici, récupérer la valeur de la cellule !
 
    With Sheets("Congele")
 
        For I = 1 To NBFois
            .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(1, Range("B6:F6").Columns.Count).Value = Range("B6:F6").Value
        Next I
 
    End With
 
    Sheets("Menu").Range("C6:F6").ClearContents
 
End Sub

[MarcelG]

(correctif)

Hé Theze. Désolé pour ce télescopage.


Bonjour et bienvenu sur ce forum,

Tout d'abord, retourne tout code en utilisant les balises # adéquates.

Ensuite, ôte tous ces Select qui ne font qu'alourdir ta procédure.

Une boucle For en utilisant comme entier d'arrivée la valeur de la cellule devrait convenir.
A titre d'information et/ou de formation, cet espace sur les boucles.

Enfin, ci-joint un ensemble d'espaces documentaires qui pourraient t'être utiles.

[Theze]

Hello Marcel

[Marsu799]

Bonjour,

Merci Thesé et MarcelG pour votre réponse, mais malheureusement je n'arrive pas à l'appliquer.

Sur la ligne: NBFois = tu m'indique de récupérer la valeur de la cellule E6, j'ai essayer ça: NBFois = Cells(6, 5), ca ne marche pas j'ai cherche comment récupérer cette valeur mais rien.

J'ai essayer avec juste une quantité NBFois = 5, ça marche pas, la formule copie bien la ligne et la colle, mais une seul fois.

Marcel, le lien pour l'espace documentaire ne marche pas, une seul page sur Word mais les liens ne sont pas actifs.

Merci pour votre soutient

[MarcelG]

Bonjour Marsu, Bonjour au Forum,

Une règle d'or, en VBA, est d'attacher chaque objet à l'objet parent.
Ecrire Cells(6,5) consiste à définir la cellule à la feuille active.
De plus, même si elle est tacite, mieux vaut préciser la propriété valeur.

Donc:

Code :

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

Worksheets("lawks").Cells(6,5).Value

Pour un contrôle, tu peux afficher dans la fenêtre Exécution (ctrl + G) cette ligne de code précédée d'un "?" puis actionner la touche Enter.

Nota: on peut ici utiliser l'objet Range; mieux, une cellule nommée.

[Marsu799]

Re MarcelG,

Ça marche tjr pas. Lorsque je fais un contrôle ça me dit: "erreur d'exécution".

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
Sub Test()
 
    Dim NBFois As Integer
    Dim I As Integer
 
        NBFois = Worksheets("lawks").Cells(6, 5).Value
 
    With Sheets("Congele")
 
        For I = 1 To NBFois
            .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(1, Range("B6:F6").Columns.Count).Value = Range("B6:F6").Value
        Next I
 
    End With
 
    Sheets("Menu").Range("C6:F6").ClearContents
 
End Sub

Désoler mais je suis vraiment une brelle , habituellement je fais les macro à base de l'enregistreur donc trés limité

Merci