Coller une ligne sur la 1ere ligne vide d'une autre feuille
3 réponses
philwil
Une petite aide svp...
en VBA...
j'ai sélectionné (sélection relative) une ligne de la feuille F1 et je
souhaite réaliser une copie sur une feuille F2
Sur la feuille F2 je souhaite que cette ligne se place sur la première ligne
complètement vide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
j'ai sélectionné (sélection relative) une ligne Quid de sélection relative d'une ligne ????
Sub zzz_Copy_Sélection_Ligne_Entière() With Sheets("Feuil1") If Selection(1).Row <> Selection(Selection.Count).Row _ Or Selection.Count < 256 Then Exit Sub With Sheets("Feuil2") Selection.Copy (.Cells.Rows(.Cells.Find("*", , , , , xlPrevious).Row + 1)) End With End With End Sub
AV
j'ai sélectionné (sélection relative) une ligne
Quid de sélection relative d'une ligne ????
Sub zzz_Copy_Sélection_Ligne_Entière()
With Sheets("Feuil1")
If Selection(1).Row <> Selection(Selection.Count).Row _
Or Selection.Count < 256 Then Exit Sub
With Sheets("Feuil2")
Selection.Copy (.Cells.Rows(.Cells.Find("*", , , , , xlPrevious).Row +
1))
End With
End With
End Sub
j'ai sélectionné (sélection relative) une ligne Quid de sélection relative d'une ligne ????
Sub zzz_Copy_Sélection_Ligne_Entière() With Sheets("Feuil1") If Selection(1).Row <> Selection(Selection.Count).Row _ Or Selection.Count < 256 Then Exit Sub With Sheets("Feuil2") Selection.Copy (.Cells.Rows(.Cells.Find("*", , , , , xlPrevious).Row + 1)) End With End With End Sub
AV
Philippe
Merci pour votre aide...
Pour info, j'ai un blocage sur la ligne suivante :
j'ai sélectionné (sélection relative) une ligne Quid de sélection relative d'une ligne ????
Sub zzz_Copy_Sélection_Ligne_Entière() With Sheets("Feuil1") If Selection(1).Row <> Selection(Selection.Count).Row _ Or Selection.Count < 256 Then Exit Sub With Sheets("Feuil2") Selection.Copy (.Cells.Rows(.Cells.Find("*", , , , , xlPrevious).Row +
1)) End With End With End Sub
AV
Merci pour votre aide...
Pour info, j'ai un blocage sur la ligne suivante :
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
#MnfUTSxDHA.2448@TK2MSFTNGP12.phx.gbl...
j'ai sélectionné (sélection relative) une ligne
Quid de sélection relative d'une ligne ????
Sub zzz_Copy_Sélection_Ligne_Entière()
With Sheets("Feuil1")
If Selection(1).Row <> Selection(Selection.Count).Row _
Or Selection.Count < 256 Then Exit Sub
With Sheets("Feuil2")
Selection.Copy (.Cells.Rows(.Cells.Find("*", , , , ,
xlPrevious).Row +
j'ai sélectionné (sélection relative) une ligne Quid de sélection relative d'une ligne ????
Sub zzz_Copy_Sélection_Ligne_Entière() With Sheets("Feuil1") If Selection(1).Row <> Selection(Selection.Count).Row _ Or Selection.Count < 256 Then Exit Sub With Sheets("Feuil2") Selection.Copy (.Cells.Rows(.Cells.Find("*", , , , , xlPrevious).Row +
1)) End With End With End Sub
AV
AV
Pour info, j'ai un blocage sur la ligne suivante : Selection.Copy (.Cells.Rows(.Cells.Find("*", , , , , xlPrevious).Row + 1))
Il n'y a pas de raison si cette instruction est sur une seule ligne Vérifier aussi le nom des feuilles
AV
Pour info, j'ai un blocage sur la ligne suivante :
Selection.Copy (.Cells.Rows(.Cells.Find("*", , , , ,
xlPrevious).Row + 1))
Il n'y a pas de raison si cette instruction est sur une seule ligne
Vérifier aussi le nom des feuilles
