Discussion :

[tiyolx]

Bonjour à tous,

Je suis bloqué sur une macro et je sais où ça bloque mais je sais pas comment résoudre mon problème.

Voici mon code :

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
Sub ENREGISTRER()

 ENREGISTRER Macro

    Sheets("TABLE").Select
    Rows("1:1").Select
    Selection.Copy
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range("A11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("SAISIE DU CRF").Select
End Sub

Peut-on faire en sort que la sélection de la colonne A passe toujours au suivant car elle est toujours sur "A11".

Merci à tous de votre aide.

[Invité]

Bonjour,

Il semble bien évident qu'avec ce code il soit difficile de copier ailleurs que dans "A11" mais il faudrait savoir ce que vous voulez copier et jusqu'où.

Est-ce que c'est toujours la ligne 1 que vous voulez copier en "A11" puis "A12" etc ou est-ce que 1:1 doit devenir 2:2 ?

[tiyolx]

Bonjour jacques_jean,

Je crée une macro pour enregistrer la ligne 1 sur la suivante comme ton ex A11 puis A12 puis A13 puis A14 à chaque fois que j'exécute la macro.

J'attends ta réponse.

Merci de ton aide.

[Invité]

Si c'est à chaque fois que vous lancez la macro et que vous n'avez pas d'autres données que ces copies plus bas en colonne "A" :

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
23
Sub ENREGISTRER()
 
 ENREGISTRER Macro
 
    Sheets("TABLE").Select
    dl = Range("A65536").End(xlUp).Row
      If dl < 11 then
      dl = 11
      end if
 
    Rows("1:1").Select
    Selection.Copy
 
    'Je ne pense pas que les 3 lignes ci-dessous soient utiles
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range("A" & dl).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("SAISIE DU CRF").Select
End Sub

A vérifier.

[tiyolx]

Bonjour Jacques_Jean,

Je viens de testé ton code mais il me fais la même chose il copie la première ligne toujours sur la même ligne.

Je vais enlever les trois phrases que tu m'as indiqué pour voir si cela change quelque chose.

Merci.

[tiyolx]

Je suis désolé mais cela n'a rien changé.

peux-tu m'expliquer ta démarche pour que je comprenne.

merci