VBA problème dernière ligne copier/coller

[fleur2touraine]

Bonjour,

Je suis totalement incompétent en VBA, cependant je dois rédiger une macro pour le boulot...
J'ai deux documents, un document source sur lequel apparait des résultats.
Un document pour le suivi métrologique d'un instrument.

Je veux transférer deux plages de données d'une feuille du document source vers le document de suivi métrologique.
J'arrive à copier la plage, sélectionner ma destination mais les lignes ne se mettent pas où je souhaite.

       
blabla bla définition variables + code avant ....
             
Workbooks("méthode B en cours.xlsm").Activate
                    Sheets("Controle").Activate
                    nombreAl = Application.WorksheetFunction.CountA(Range("F21:F45"))
                    Range("F21:F45").Select
                    selection.Copy
                    Workbooks("Carte de controle Méthode B.xlsm").Activate
                    Sheets("Al").Activate
                    Range("D" & Rows.Count).End(xlUp).Offset(1).Select
                    selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False

Je lance la macro, la première fois ma sélection se colle sous ma cellulé souhaitée,
dès le deuxième essai j'ai un décalage de près de 30 lignes.....

Auriez vous une idée?

Merci
-----

[cherbe]

Bonjour
essaie en insérant la ligne en rouge :

       
Workbooks("méthode B en cours.xlsm").Activate
                    Sheets("Controle").Activate
                    nombreAl = Application.WorksheetFunction.CountA(Range("F21:F45"))
                    Range("F21:F45").Select
                    selection.Copy
                    Workbooks("Carte de controle Méthode B.xlsm").Activate
                    Sheets("Al").Activate
                    Range("D1").Select
                    'A la place de ligne suivante, j'aurais écrit : Cells.Find("*", [D1], , , xlByRows, xlPrevious).Select puis Cells(1,0).Select 
                    Range("D" & Rows.Count).End(xlUp).Offset(1).Select
                    selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False

[fleur2touraine]

Ca me colle tout en colonne Q ...
c'est un cauchemar ce truc

[cherbe]

Quel est le code utilisé après la ligne Sheets("Al").Activate ?

[A voir en vidéo sur Futura]

[fleur2touraine]

Cells.Find("*", [D1], , , xlByRows, xlPrevious).Select
 selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False

[cherbe]

A remplacer par ceci, à condition qu'il n'y aie pas de cellule vide avant la dernière ligne :

Range("D1").Select
ActiveCell.End(xlDown).Select
cells(1,0).Select
 selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False

[fleur2touraine]

J'ai une erreur à

cells(1,0).Select

[cherbe]

A remplacer par :
Activecell.Offset(1,0).select

[fleur2touraine]

Ca fonctionne mais ça colle toujours à la même place et non sous la dernière ligne utilisée.
Si j'active plusieurs fois la macro ça écrase au lieu d'incrémenter.
De plus j'ai un graph qui se remplit automatiquement avec les valeurs que j'importe, il ne se met pas à jour ..

[cherbe]

Quand tu exécutes le code pas à pas (touche F8 du clavier), quelle est la cellule active après exécution de ces lignes :

Range("D1").Select
ActiveCell.End(xlDown).Select
Activecell.Offset(1,0).select

?

[fleur2touraine]

Mon code:

                    Workbooks("méthode B en cours.xlsm").Activate
                    Sheets("Controle").Activate
                    nombreAl = Application.WorksheetFunction.CountA(Range("F21:F45"))
                    Range("F21:F45").Select
                    selection.Copy
                    Workbooks("Carte de controle Méthode B.xlsm").Activate
                    Sheets("Al").Activate
                     Range("D4").Select
                    ActiveCell.End(xlDown).Select
                    ActiveCell.Offset(1, 0).Select
                    selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False

La cellule active est la D1048576 et la macro bug,
J'ai une cellule pleine en D4, je voudrais simplement coller mes résultats à la suite de D4 ... exemple de D5 à D8.
Puis prochaine importation de D9 à Dn, puis Dn+1 à Dx .... etc

[cherbe]

J'ai une cellule pleine en D4, je voudrais simplement coller mes résultats à la suite de D4

Je t'avais dit de mettre Range("D1").Select et non D4
les méthodes de sélection utilisées ne fonctionnent pas à partir de la dernière cellule remplie !
D'autre part, il faudra mettre cette partie dans un IF pour prévoir le cas d'une colonne entièrement vide :

     Range("D1").Select
     if activecell.offset(1,0).value<>"" then
           ActiveCell.End(xlDown).Select
           ActiveCell.Offset(1, 0).Select
     End If

[fleur2touraine]

Donc il faut que je mette ma cellule remplie en D1?
En gros j'importe une date et une valeur au format nombre.

[cherbe]

Donc il faut que je mette ma cellule remplie en D1?

Non
Dans l'avant dernier message que tu as publié, ton code contient ;

Range("D4").Select

C'est ça qui pose problème
remplace par :

Range("D1").Select

[fleur2touraine]

Ok j'ai compris, merci
Par contre si j’exécute plusieurs fois la macro ça écrase, j'aimerais que ça colle sous la dernière valeur importée.
Désolé je suis débutant ...

[cherbe]

non cela n'écrasera rien puisque tu as les instructions

ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

qui sélectionnent la première cellule vide dans la colonne.
Quand tu exécutes la macro et que tu as 10 valeurs en D, la macro commencera à écrire dans la cellule 11

[fleur2touraine]

ça réécrit toujours au meme endroit

[cherbe]

Si tu exécutes le code suivant et qu'il n'y a pas de cellule vide au milieu des données, ça doit écrire sous les données existantes.

Range("D1").Select
ActiveCell.End(xlDown).Select
cells(1,0).Select
 selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False

Tu devrais exécuter la macro pas à pas (touche F8) pour voir ce qui se passe.

[fleur2touraine]

quand c'est à

ActiveCell.Offset(1, 0).Select

il selectionne D28.

J'ai l'impression que lorsqu'il copie, il copie les formules.
En gros sur ma feuille de destination rien n'apparait mais il doit voir quelque chose, je sais pas si c'est très clair ce que je dis

[fleur2touraine]

Je veux copier ça:
a copier.JPG


Je veux le coller là:
a coller la.JPG

Ca fait ça:
selec.JPG

[cherbe]

il selectionne D28.

C'est le cas de figure dont je parlais au message #12
fais ça :

                    Workbooks("méthode B en cours.xlsm").Activate
                    Sheets("Controle").Activate
                    nombreAl = Application.WorksheetFunction.CountA(Range("F21:F45"))
                    Range("F21:F45").Select
                    selection.Copy
                    Workbooks("Carte de controle Méthode B.xlsm").Activate
                    Sheets("Al").Activate
                     Range("D1").Select
                     If(ActiveCell.value<>"" Then
                             ActiveCell.End(xlDown).Select
                             ActiveCell.Offset(1, 0).Select
                   End If
                    selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False

[fleur2touraine]

ça m'écrase tout et lorsque j'execute la macro une 2eme fois ça colle en D32 .... j'ai l'impression qu'il colle "du vide" entre D4 et D31 ....


1.JPG
2.JPG
3.JPG
4.JPG
5.JPG

[fleur2touraine]

Je pense savoir d'ou vient le problème,
Si j'ai deux valeurs à importer (sur ma feuille de données), par exemple une valeur en G21 et une G22,
Je sélectionne ma range G21:G45 (automatique), du coup il colle la range G21:G45 dans ma feuille de destination. On ne VOIT que deux cellules pleines et 22 cellules qu'on voit vide.
Problème, on les voit vide mais lui voit quelque chose à l'intérieur ....

[fleur2touraine]

Si quelqu'un a une idée...

[cherbe]

Si j'ai deux valeurs à importer (sur ma feuille de données), par exemple une valeur en G21 et une G22,
Je sélectionne ma range G21:G45 (automatique), du coup il colle la range G21:G45 dans ma feuille de destination.

Pourquoi sélectionner toute cette plage alors que seulement 2 cellules suffiraient ?

[fleur2touraine]

Car j'ai entre 2 et 20 valeurs à importer,c'est assez aléatoire

[cherbe]

A chaque import, il faut prendre toutes les données à partir de G21 ?
Si oui, donne le code qui sélectionne cette plage de données.

[fleur2touraine]

Oui c'est ça,

j'ai mis:

Range("g21:g45").Select

[cherbe]

Range("g21:g45").Select

Remplace par :

Range("g21").Select
If(ActiveCell.Offset(1,0).value<>"" Then
       ActiveCell.End(xlDown).Select
End If

[fleur2touraine]

ça ne selectionne que ma 2eme ligne ... (la G22)