XL 2016 Copie de ligne suivant cellule active et colonne

[Goose]

Bonjour, suivant le code ci-dessous,
j'aimerai couper cette ligne dans une autre ligne a fonction de la cellule active et d'une colonne définie (pour éviter un décalage par mégarde) ?

Sub Copy1()
Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 10)).Cut
End Sub

Possible ou pas ?
bye

 

[vgendron]

Bonjour
c'est possible de faire un effort d'explication??
"couper cette ligne dans une autre ligne".... ca ne veut rien dire

 

[Goose]

Copier si tu préfère mais dans l'absolue c'est du "cut"

 

[vgendron]

non désolé
Cut: c'est Ctrl + X
Copier Ctrl + C
Coller Ctrl +V

dans l'absolu, tu demandes à faire un Cut (couper)
ton code fait .cut
donc voila.. rien à ajouter puisque tu fais déjà ce qui est demandé.

 

[Phil69970]

Bonjour à tous

Vu que tes explications ne sont pas claires sauf pour toi, un fichier serait le bienvenu.

@phil69

 

[Goose]

Voici le fichier explicatif (enfin je l'espère) !!
bye

 

[Phil69970]

@Goose

Finalement même avec le fichier ce n'est clair que pour toi. 😵

Ré explication avec attendu s'impose 😉

@Phil69970

 

[Goose]

Bjr,
le souci que je rencontre c'est que je suis obliger systématiquement de positionner la cellule active dans la colonne (C5:C9) pour copier les dossards de la plage (C15:G18) !!
si, par exemple, cette cellule active se trouve en D6 par mégarde, tout se décale d'une case !! je veux donc éviter cette erreur.
d’où ma question:
comment obliger la macro a copier (les dossards) de la ligne du bas vers la ligne du haut ? (quelque soit la position la cellule active sur les lignes du haut choisie)

 

[Phil69970]

@Goose

Tu veux copier C15:G18 vers C5:G8 ?

Remarques :
1) Tu as 4 lignes d'un côté et 5 de l'autre !

2) Tu veux copier ligne par ligne ou tout d'un bloc ?

3) Une fois copier on vide la zone C15:G18 ?

4) Tu copies suivant un critère exemple des que les 4 joueurs d'une ligne sont remplis ?
etc ....

Tu vois d'une question qui te semble simple tes explications ne me permettent pas de savoir ce que tu veux précisément !!!!

@Phil69970

 

[vgendron]

Hello

je pressens que tu ignores qu'on peut copier coller une ligne (ou couper coller) une plage d'un endroit à un autre SANS selectionner la destination

exemple

range("B5:C6").copy destination:= range("E8:F9")
quelque soit ta cellule active, B5:C6 sera copié en E8:F9

 

[Goose]

la procédure actuelle est la suivante:
je positionne ma cellule active en (C5 ou C6 ou C7 ou C8 ou C9) suivant une table dispo de la plage (b5:b9), puis je clique sur la "macro d'une ligne du bas" suivant le statut de la cellule (B15 ou B16 ou B17 ou B18)
Les numéros de dossards sont ainsi copier à la table choisie !!
mais je dois toujours respecter la position de la cellule active en C sinon ça décale la position des dossards voir cela supprime certaines formules de la plage H5:K9 !!

 

[Phil69970]

Le fil

J'ai posé des questions claires et j'ai aucune explication que je comprends ...
Désolé j'abandonne je comprends rien à ce que tu veux faire et plus tu expliques moins je comprends 🤔

Bonne chance

@Phil69970

 

[vgendron]

Hello
idem, c'est vraiment pas clair.. je pense qu'il y a un problème de vocabulaire et qu'il y a des confusions du fait que tu as mis en entetes des mots comme Table, Tablo qui en excel sont déjà des mots qui définissent des tableaux.
ensuite tu parles de copier un dossard.. mais nulle part tu n'explique ce qu'est un Dossard..

tu sembles vouloir selectionner la LIGNE dans lasquelle les infos sont copiées
la lgine d'origine est ensuite effacée selon un critère que je ne comprend pas.. si en colonne I, i y a quelque chose???

comme expliqué plus haut: tu n'as pas besoin de sélectionner une ligne pour désigner la destination: la macro peut trouver toute seule une ligne (entre 5 et 9) disponible)

en attendant:

Sub Selection5()
Dim R As Object

Set R = ActiveSheet.Shapes(Application.Caller).TopLeftCell
Set CelDest = Range("C" & ActiveCell.Row) 'pour définir la cellule de destination en colonne C de la ligne selectionnée

Range(R.Offset(0, 2).Address, R.Offset(0, 6).Address).Copy Destination:=CelDest
If CelDest.Offset(0, 6) <> "" Then
    Range(R.Offset(0, 2).Address, R.Offset(0, 6).Address).ClearContents
End If
End Sub

 

[Goose]

Ok merci je vais voir avec ça !!
Bye