Discussion :

[Laïnea]

Bonsoir,

Je suis débutante en VBA, et je me pose quelques questions.

Mon souhait, aujourd'hui, est de couper des lignes entières d'une feuille 1 vers une feuille 2. Seul hic : ça fonctionne pour un couper coller, mais pas pour plusieurs d'affilé...!

Voici le décor :

Code :

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

1
2
3
4
5
6
7
8
Sub couper_coller()
    Sheets("Comptes").Columns(1).Find(What:="07/2017").Select
    ActiveCell.EntireRow.Select
    Selection.Cut
    Sheets("07.17").Paste
    Sheets("07.17").Select
    Selection.Offset(1, 0).Select
End Sub

Je suis sur mes comptes bancaires, et je souhaite, sur la feuille "Comptes", récupérer dans la colonne 1 (A), toutes les lignes dont la cellule contient "07/17".
Je coupe la ligne entière et colle le tout sur une autre feuille, "07.17", créée au préalable.
Je resélectionne ce que j'ai collé.

Si mon "coller" a atterri sur la plage "A2: D7", j'aimerais (ce n'est pas ce que j'obtiens, malheureusement) que la nouvelle cellule active soit en dessous de la cellule active actuelle.
La cellule active actuelle est la "A2" (qui va des lignes 2 à 7) : j'aimerais que la nouvelle cellule active soit la "A8".
Et ainsi, en me faisant une petite boucle, toutes mes lignes contenant des débits / crédits effectués en "07/17" iraient toutes seules sur la nouvelle feuille "07.17"

Mais, en l'état, le coup du "offset" ne fait qu'augmenter d'une ligne ma sélection...

Sur ce, auriez-vous une super bonne idée à me transmettre ?
(j'ai bien tenté de créer une macro correspondante via le créateur de macro, en m'inspirant du code ainsi créé, mais que ce soit une sélection manuelle via la souris de la cellule m'intéressant ou un clic sur la flèche vers le bas du clavier... j'ai rien vu...!)

Merci d'avance

[Laïnea]

Bon, vous expliquer mon problème en français a fini par payer : j'ai pu comprendre une partie de mon problème.

Voici mon nouveau code :

Code :

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

1
2
3
4
5
6
7
8
Sub couper_coller()
    Sheets("Comptes").Columns(1).Find(What:="07/2017").Select
    ActiveCell.EntireRow.Select
    Selection.Cut
    Sheets("07.17").Paste
    ActiveCell.Select
    Selection.Offset(1, 0).Select
End Sub

Nouveau problème : si je suis pas à pas ce code avec F8, et que au moment du "ActiveCell.Select", je pars manuellement dans la feuille concernée, le code se déroule parfaitement comme je le pensais.
Mais, grande surprise, si je fais un F5 depuis la feuille "Comptes", les lignes

Code :

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

1
2
ActiveCell.Select
    Selection.Offset(1, 0).Select

s'adaptent selon la feuille "Comptes"...
Et si je précise dans le code :

Code :

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

1
2
Sheets("07.17").ActiveCell.Select
    Sheets("07.17").Selection.Offset(1, 0).Select

Je me prends un "erreur 438" dans la figure, même en regardant le code via F8...

Je vais continuer à farfouiller de mon côté, en attendant de comprendre ce qu'il se passe

Merci beaucoup d'avance !

[unparia]

Bonjour
tes "malheurs" trouvent leur source dans ta manière de travailler à coups de select, selection, etc ...
Et que dire des lignes de code :

Code :

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

ActiveCell.Select

que j'assimile à appeler Paul au téléphone pour lui demander son numéro de téléphone !

Travaille directement avec les objets Excel
Ainsi (exemple)

Code :

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

Worksheets("toto").range("A1").value = 10

et non

Code :

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

1
2
Worksheets("toto").range("A1").select
selection.value = 10

et tes malheurs s'estomperont.

[Laïnea]

Bonsoir unparia, merci d'avoir pris le temps de me répondre
Pour ta remarque sur mon usage (un peu hasardeux) des Select et Selection : je viens de tenter un mix, afin d'alléger mon code.

Voici mon nouveau code :

Code :

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

1
2
    Sheets("Comptes").Columns(1).Find(What:="07/2017").Select
    ActiveCell.EntireRow.Cut

Pour information, erreur 1004, ne marche pas sur des cellules fusionnées... (étrange, si j'utilise le Select puis Selection, fonctionne bien sans m'embêter car c'est une cellule fusionnée !)

Effectivement, j'avais tilté entre temps que je prenais trop de chemins intermédiaires et que je pouvais aller plus vite.

Voici ce que j'ai écris entre temps :

Code :

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

1
2
    Sheets("07.17").Paste
    ActiveCell.Offset(1, 0).Select

Et voici ce que je réécris en me basant sur ton écriture :

Code :

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

1
2
    Sheets("07.17").Paste
    Worksheets("07.17").ActiveCell.Offset(1, 0).Select

Mais, scregneugneu, mon problème demeure...
Erreur 438 quand je fais un F5, et aucune erreur si je fais un F8 et que "j'accompagne" le code en allant moi-même dans l'onglet voulu...
Du coup, j'avoue avoir du mal à comprendre le problème.
J'ai tenté ça :

Code :

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

1
2
3
4
With Sheets("07.17")
.Paste
.ActiveCell.Offset(1, 0).Select
End With

Merci d'avance...!

[unparia]

Ni

Code :

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

1
2
 Sheets("Comptes").Columns(1).Find(What:="07/2017").Select
    ActiveCell.EntireRow.Cut

ni

Code :

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

ActiveCell.Offset(1, 0).Select

ni

Code :

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

Worksheets("07.17").ActiveCell.Offset(1, 0).Select

ne respectent la discipline que je t'ai conviée à observer ...

[Laïnea]

Mea culpa, unparia ! c'est bien involontaire de ma part : il s'agit pour moi d'un nouveau langage.
Je prends une petite pause histoire de penser à autre chose, je relis ton message, je cherche plus d'infos pour mieux comprendre tes propos, et je réapplique

Merci en tout cas de me donner des pistes, je pense que les pistes me seront plus bénéfiques que la réponse toute cuite dans le bec

[unparia]

me seront plus bénéfiques que la réponse toute cuite dans le bec

Tout-à-fait, Laïnea. Tout-à-fait
Et cela colle à ma "religion".

[Laïnea]

Bonjour unparia, j'ai pu avancer dans mon idée.
Malheureusement, je ne semble toujours pas pouvoir respecter tes propos... (éviter les Select / Selection, par exemple)

Voici mon code final :

Code :

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

1
2
3
4
5
6
7
8
Sub couper_coller()
    Worksheets("Comptes").Activate
    Columns(1).Find(What:="07/2017").EntireRow.Select
    Selection.Cut
    Worksheets("07.17").Activate
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
End Sub

→ pour le Selection.Cut : je n'ai pas pu, pour mon fichier Excel, faire "EntireRow.Cut" puis directement coller à l'endroit voulu.
Effectivement, mes cellules étant fusionnées, je reçois un message d'erreur.
Toutefois, pour un autre fichier où il n'existe aucune cellule fusionnée, le "EntireRow.Cut" fonctionne et j'évite le "Selection.Cut" → le problème vient désormais de mon fichier Excel et non plus de mon code, j'ai compris tes propos

Pour les Activate et Offset.Select : vu ce que j'attends, je ne crois pas pouvoir m'en passer, fichier ou pas fichier.

Unparia, j'essaie de m'améliorer : s'il te plaît, vu le code que j'ai créé, y a-t-il encore un axe d'amélioration...? un mot clé, un principe que je devrais creuser un peu plus...?

Je te remercie d'avance

(pour les personnes comme moi se posant la question que je me posais il y a quelques jours : le code indiqué dans ce post, est désormais fonctionnel, même s'il est certainement améliorable !!)