Problème dans une macro

Version imprimable

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:

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.

11/08/2008, 11h10
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 ?
11/08/2008, 11h15
tiyolx

précision

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.

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:

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.

11/08/2008, 13h19
tiyolx

retour de test

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.
11/08/2008, 13h24
tiyolx

re

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

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

merci

solution du problème

Bonjour à tous,

un grand merci jacques_jean qui m'a aidé dans mon problème.

voici le code de la solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub enregistrer()
'
' enregistrer Macro
'
 
'
    Sheets("TABLE").Select
    derniere_ligne = Range("A65536").End(xlUp).Row
    nouvelle_ligne = derniere_ligne + 1
    Rows("1:1").Select
    Selection.Copy
    Range("A" & nouvelle_ligne).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("SAISIE DU CRF").Select
End Sub

Merci développez.com et merci à tous.

PS: ne lachez pas du courage.

Ok, c'est de ma faute.

Petite rectification :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub ENREGISTRER()
 
 'ENREGISTRER Macro
 
    Sheets("TABLE").Select
    'recherche de la dernière ligne non vide en colonne "A"
    dl = Range("A65536").End(xlUp).Row
    'si la dernière ligne vide est < à 11 on l'initialise à la valeur 10
    'en effet lors de la copie la variable "dl" sera augmentée de 1
    'voir la ligne "Range("A" & dl + 1).Select" 
      If dl < 11 Then
      dl = 10
      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 + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("SAISIE DU CRF").Select
End Sub

J'ai fait un essai et cela doit fonctionner.

11/08/2008, 14h22
Invité

Je n'avais pas vu votre solution lorsque je vous ai adressé ma rectification.

Donc vous avez raison votre solution fonctionne aussi si la dernière ligne trouvée n'est jamais inférieure à 10.

Or vous dîtes bien que vous voulez copier à partir de la ligne 11 et si cette dernière ligne peut être, par exemple la ligne 7, vous allez faire la 1ère copie en ligne 8.

Mais ce n'est qu'une hypothèse, vous connaissez mieux que moi la structure de fichier.
11/08/2008, 14h40
tiyolx

re

Jacques_jean

je ne t'avais pas précisez que "A11" était un chiffre sans importance.

En fait les enregistrements commencent à partir de "A8".

Merci de ton aide car sans toi je n'aurais pas trouvé car je connais pas la manière de faire des raisonnement avec le code VBA, n'y les synthaxes.