Copier la 1er cellule en étant n'importe ou sur la ligne
Bonjour à tous,
Je suis en galère, je trouve plein de sujet annexe mais n'arrive pas à transposer.
Mon but : être n'importe où sur une ligne et en cliquant sur un bouton, cela sélectionne une cellule définie (en l’occurrence la 1er celle colonne A) et que cela la colle dans la cellule D3 d'une autre feuille (du même claseur).
J'espère être assez clair.
A votre bon cœur..
à disposition pour des compléments
A besoin je peux mettre le fichier à dispo
J.P
Bonsoir,
première cellule de la même ligne que la cellule active lors du clic sur le bouton ?
Ou bien la cellule A1 ?
@ bientôt
LouReeD
LouReed,
la première cellule de la ligne.
Exemple:
si je suis sur O177, cela copie A177 pour la coller dans l'autre feuille en D3
ou
Si je suis sur K34, cela copie A34 pour la coller dans l'autre feuille en D3
pour le moment j'ai trouvé une parade :
Sheets("TABLEAU TRAVAUX").Select
Range("A" & ActiveCell.Row & ":BM" & ActiveCell.Row).Select
Selection.Copy
Sheets("GIE").Select
Range("A19").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A2").Select
mais cela m'oblige à avoir une ligne complète de coller dans la 2ième feuille nommé ici GIE
Bonsoir,
première cellule de la même ligne que la cellule active lors du clic sur le bouton ?
Ou bien la cellule A1 ?
@ bientôt
LouReeD
LouReeD,
c'st cette partie de code sur laquelle je bloque:
Range("A" & ActiveCell.Row & ":BM" & ActiveCell.Row).Select
je voudrais juste la cellule colonne A ... et je veux garder le fait d'être n'importe où. pas obligé d'être sur la cellule.
Si c'est récupérer la cellule de la ligne de la cellule active mais en colonne A, alors vous simplifiez votre code pour ne plus prendre une plage mais juste une cellule :
Range("A" & ActiveCell.Row).Copy Destination:=Sheets("GIE").Range("A19")Par contre cela copie toute la cellule je crois ainsi que la mise en forme.
Sinon :
Sheets("GIE").Range("A19").Value = Range("A" & ActiveCell.Row).Value@ bientôt
LouReeD
Bingoo
LouReed , merci !!!
je ne fait que rarement du VB et c'est pourtant si cool de pouvoir effectuer quelques "passe-passe" afin de facilité l'utilisation d'un tableau !!!
A+
Merci @ vous pour ce retour et ces remerciements !
@ bientôt
LouReeD