Syntaxe pour copie cellules ligne active

Question

Bonjour le forum

J'aurais besoin d'un coup de main pour corriger la syntaxe d'une macro.

Je cherche, dans un premier temps via VB, à copier certaines cellules de la ligne active d'une feuille F1 vers d'autres cellules une autre feuille F2 (sur la première ligne vide).

Voici la macro qui fonctionne :

Sub COPY() 'copie en cellule fixe :Dim lig As Longlig = Selection.RowApplication.ScreenUpdating = False Sheets("F2").Range("G10").Value = Sheets("F1").Cells(lig, 25) Sheets("F2").Range("H10").Value = Sheets("F1").Cells(lig, 19) & " - " & Sheets("F1").Cells(lig, 18).ValueWith Application    .ScreenUpdating = False    .CutCopyMode = FalseEnd WithEnd Sub

... là il me prend bien la ligne active, mais il copie dans une cellule précise.
Ça se gâte lorsque j'essaie de copier vers la première ligne non-vide.
Il me réclame "Référence incorrecte ou non qualifiée, visiblement parce que je n'utilise pas de With.
Mais je ne sais comment l'utiliser (j'aurais voulu m'en passer, j'aime bien les formules en 1 ligne !).
Dans le fond, je crois que j'ai du mal à comprendre la différence d'utilisation entre Range et Cells :

Sub COPY2() 'copie avec recherche première ligne non vide :Dim lig As Longlig = Selection.RowApplication.ScreenUpdating = False Sheets("F2").Range(("G" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)).Value = Sheets("F1").Cells(lig, 25) Sheets("F2").Range(("H" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)).Value = Sheets("F1").Cells(lig, 19) & " - " & Sheets("F1").Cells(lig, 18).ValueWith Application    .ScreenUpdating = False    .CutCopyMode = FalseEnd WithEnd Sub

Mon fichier d'exemple : 
 https://www.cjoint.com/c/JEEkaFlydyF

Pouvez-vous m'expliquer svp ce que je fais de travers ? :)

Merci par avance pour votre aide






Configuration: Windows 10 / Excel 2016

via55 · Answer

Bonjour

Essaie ainsi :
Sub COPY2() 'copie avec recherche première ligne non vide :
Dim lig As Long
lig = Selection.Row
 ligne = Sheets("F2").Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row + 1 '1ere ligne vide
Application.ScreenUpdating = False
 Sheets("F2").Range("G" & ligne) = Sheets("F1").Cells(lig, 25)
 Sheets("F2").Range("H" & ligne) = Sheets("F1").Cells(lig, 19) & " - " & Sheets("F1").Cells(lig, 18).Value

With Application
    .ScreenUpdating = False
    .CutCopyMode = False
End With
End Sub
Le With n'a rien à y voir, d'ailleurs tu l'as correctement utilisé

Dans Range on donne l'adresse d'une cellule :
Range("A1")  ou Range("A" & n) utilisation d'une variable

Avec Cells on indique les coordonnées de la cellule
Cells(1,1) pour la cellule A1 ou Cells(1,n)  ou Cells (x,y) avec variables

Cdlmnt
Via

touroul · Answer

Bonjour Via

Effectivement, ça fonctionne ainsi, j'ai pu adapter. Et merci aussi pour les explications.
En fait, j'étais loin du compte, je suis déçu ...

J'avais une deuxième étape, mais je voulais y aller molo.
Je souhaitais boucler sur cette macro.
A savoir, l'exécuter non pas sur la ligne active, mais sur toutes les lignes actives (les lignes des cellules sélectionnées en F1)

Mais en rédigeant ma question, ... je l'ai résolue ! MDR !


Un grand merci pour ton aide.
Bonne journée

touroul · Answer

Oups Via ..
J'ai été un peu vite.
Lorsque je sélectionne plusieurs lignes (par exemple 4), il me recopie 4 fois la première.
Je remets un fichiers d'exemple en ayant numéroté mes champs pour que ce soit plus clair :
 https://www.cjoint.com/c/JEEkP13imcF

Merci encore ...

via55 · Answer

Re

Il faut boucler sur les lignes sélectionnées
Pour cela détecter d'abord le nombre de lignes sélectionnées avec Rows.Count 
Sub COPY2() 'copie avec recherche première ligne non vide :
Dim lig As Long
lig = Selection.Row
nbl = Selection.Rows.Count
For n = lig To lig + nbl - 1
 ligne = Sheets("F2").Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row + 1 '1ere ligne vide
Application.ScreenUpdating = False
 Sheets("F2").Range("G" & ligne) = Sheets("F1").Cells(n, 25)
 Sheets("F2").Range("H" & ligne) = Sheets("F1").Cells(n, 19) & " - " & Sheets("F1").Cells(n, 18).Value
Next
With Application
    .ScreenUpdating = False
    .CutCopyMode = False
End With
End Sub
Par contre ce que ne comprend pas dans ta macro c'est qu'il y a 2 fois .ScreenUpdating = False, un est donc superfétatoire, mais que jamais il n'est remis à True

eriiic · Answer

Bonjour à tous,

pour t'éclairer sur ton 1er message d'erreur.
Tu mets :
Sheets("F2").Range(("G" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)).Value = ...

avec le . de .Cells(Rows.Count, 1) tu lui dis de se référer au précédent With qui n'existe pas.
Il fallait écrire :
With Sheets("F2")
   .Range(("G" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)).Value = ...
end With
le .Range et le .Cells se référeront à Sheets("F2")
eric

touroul · Answer

Cette fois c'est parfait, mille mercis.
C'était plus complexe que j'avais imaginé.

Pour le ScreenUpdating c'est juste une erreur de recopie depuis mon fichier source, pardon.
Je mets bien évidemment en résolu en t'adressant tous mes remerciements.

Bonne journée à toi

touroul · Answer

Bonsoir

Je reviens sur mon post, car j'ai encore un souci.
D'ailleurs je doute que ce soit le dernier.

Lorsque j'utilise la macro avec plusieurs lignes sélectionnées, ça fonctionne à présent, il me recopie bien toutes les cellules sur la feuille F2.
Par contre, mon tableau comporte un très grand nombre de lignes, et lorsque je lance la macro, j'ai appliqué auparavant un filtre sur mes colonnes (en F1).
Du coup, il me recopie les données de toutes les cellules masquées par le filtre, entre les 2 lignes sélectionnées.
Y a-t-il un autre moyen de boucler que :
For n = lig To lig + nbl - 1 ?

Je ne sais pas si c'est possible, mais ça rend ma macro inutile.

Merci pour votre soutien.

touroul · Answer

Michel, il y a plus de 1000 lignes, mais ce n'est pas le problème car le comportement est le même dans mon fichier exemple :

https://mon-partage.fr/f/CdYbEMOU/

As-tu une idée ?
A plus

eriiic · Answer

Bonjour à tous,

exemple :
    Dim pl As Range, ar As Range, datas
    ' je prend le titre car SpecialCells(xlCellTypeVisible)
    ' retourne n'importe quoi si 1 seule cellule passée (visible)
    Set pl = [Y5].Resize(Cells(Rows.Count, "Y").End(xlUp).Row - 4)
    Set pl = pl.SpecialCells(xlCellTypeVisible)
    If Not pl Is Nothing Then
        For Each ar In pl.Areas
            ' attention que la 1ère ligne du 1er Area est le titre...
            datas = ar.Value     ' tableau ou valeur unique
            ' traitement qu'on ignore...
        Next ar
    End If
eric

touroul · Answer

Bonjour Eric

Merci, mais ... malgré le fait que je ne comprenne pas la macro, j'ai essayé d'adapter, sans succès.
J'ai fait ça, supposant que tu n'avais pas mis mon code de départ :
Sub TOUTLIG3()

Dim pl As Range, ar As Range, datas    ' je prend le titre car SpecialCells(xlCellTypeVisible)    ' retourne n'importe quoi si 1 seule cellule passée (visible)    Set pl = [Y5].Resize(Cells(Rows.Count, "Y").End(xlUp).Row - 4)    Set pl = pl.SpecialCells(xlCellTypeVisible)    If Not pl Is Nothing Then        For Each ar In pl.Areas            ' attention que la 1ère ligne du 1er Area est le titre...            datas = ar.Value     ' tableau ou valeur unique Sheets("F2").Range("G" & pl) = Sheets("F1").Cells(n, 25) Sheets("F2").Range("H" & pl) = Sheets("F1").Cells(n, 19) & " - " & Sheets("F1").Cells(n, 18).Value        Next ar    End IfEnd Sub

Peux-tu expliquer stp ? Ca me paraît intéressant mais il faut que je comprenne ...

https://mon-partage.fr/f/HhbH5X4E/

Merci par avance !

Syntaxe pour copie cellules ligne active

10 réponses

Discussions similaires

Newsletters