Sélectionner une ligne
Bonjour à tous,
Avant tout, Bonne année, meilleurs voeux à tous, que cette vous apporte encore plus de connaissance sur EXCEL !!!!!
En espérant qu'il y ait quelqu'un n'ayant pas trop la gueule de bois pouvant me répondre, voici mon petit problème
J'ai fais une macro qui me permet d'envoyer une ligne d'une feuille vers une autre feuille.
Le problème est qu'au préalable, il faut que je sélectionne la ligne avant d'exécuter la macro.
Serait il possible de faire fonctionner la macro mais qu'en ne sélectionnant qu'une cellule?
Je précise:
Actuellement:
Je sélectionne dans la feuille A la ligne 50 et la macro va m'envoyer la ligne 50 dans la feuille B
Ce que je souhaite:
Je sélectionne dans la feuille A la cellule B50 (ou la cellule C50 ou D50...) et la macro va m'envoyer la ligne 50 dans la feuille B
Merci !!!
Cordialement
El Boyoo
Salut,
C'est bien ca l'idée, mais je ne voudrais pas le faire avec une private sub car ca ne fonctionne pas en mode partage
Voilà la macro que j'ai :
Sub FAIT()
'Déplace la ligne à faire dans la feuille fait
'Pour cela il faut au prélable sélectionne la ligne à déplacer
Selection.Copy
Sheets("FAIT").Select
ligne = Range("B" & Rows.Count).End(xlUp).Row + 1
Rows(ligne).Select
ActiveSheet.Paste
Sheets("A FAIRE").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Je ne sais pas comment faire pour que la macro s'applique en ne sélectionnant qu'une seule cellulle...
Bonjour Boyoo, M12,
je te propose ce fichier Excel :
* à l'ouverture du fichier, tu peux voir que la feuille "FAIT" est entièrement vide
* va sur la 1ère feuille "A FAIRE" ; sélectionne n'importe quelle cellule de la ligne à déplacer ;
exemple : si tu veux déplacer la ligne 6, sélectionne par exemple D6 ; Ctrl e ➯ c'est fait
Alt F11 pour voir le code VBA, puis revenir sur Excel
si besoin, tu peux demander une adaptation.
merci de me dire si ça te convient.
dhany
Salut tout le monde,
Excellente année!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
With Worksheets("FAIT")
Rows(Selection.Row).Cut .Rows(.Range("B" & Rows.Count).End(xlUp).Row + 1)
End With
'
End SubA+
Bonjour Boyoo, M12,
je te propose ce fichier Excel :
Exo Boyoo974.xlsm
* à l'ouverture du fichier, tu peux voir que la feuille "FAIT" est entièrement vide
* va sur la 1ère feuille "A FAIRE" ; sélectionne n'importe quelle cellule de la ligne à déplacer ;
exemple : si tu veux déplacer la ligne 6, sélectionne par exemple D6 ; Ctrl e ➯ c'est fait
Alt F11 pour voir le code VBA, puis revenir sur Excel
si besoin, tu peux demander une adaptation.
merci de me dire si ça te convient.
dhany
Salut!
Comme d'habitude, merci à toi
Bonne soirée à tous ! !
merci pour ton retour, et pour avoir passé le sujet en résolu !
bonne continuation, et bonne année 2019 !
dhany