VBA - copier coller avec msgbox pour cell
Résolu
mcou
-
mcou -
mcou -
Bonjour,
Je cherche à intégrer ce bout de code dans une macro.
Mon objectif : inviter l'utilisateur à copier une celulle et à ce que le contenu de cette cellule soit coller dans une autre. Je veux que ça passe par une macro, afin de supprimer la ligne de la cellule qui a été copiée. Je ne sais pas si je suis très claire.
Sub copiecom() 'Permet de copier le commentaire dans la bonne cellule
Dim Plage, Plage2 As Range
Set Plage = Application.InputBox("Veuillez sélectionner la cellule à copier correspondant au commentaire initiale de la ligne (colonne J). ", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionné est : " & Plage.Address)
Range(Plage.Address).Copy
Set Plage2 = Application.InputBox("Veuillez sélectionner la cellule à coller correspondant à la ligne à solder (colonne J). ", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionné est : " & Plage2.Address)
Range(Plage2.Address).Paste
End Sub
Ma macro ici bug sur le range(plage2.adress).paste
Merci de l'aide que vous pourrez m'apporter.
Je cherche à intégrer ce bout de code dans une macro.
Mon objectif : inviter l'utilisateur à copier une celulle et à ce que le contenu de cette cellule soit coller dans une autre. Je veux que ça passe par une macro, afin de supprimer la ligne de la cellule qui a été copiée. Je ne sais pas si je suis très claire.
Sub copiecom() 'Permet de copier le commentaire dans la bonne cellule
Dim Plage, Plage2 As Range
Set Plage = Application.InputBox("Veuillez sélectionner la cellule à copier correspondant au commentaire initiale de la ligne (colonne J). ", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionné est : " & Plage.Address)
Range(Plage.Address).Copy
Set Plage2 = Application.InputBox("Veuillez sélectionner la cellule à coller correspondant à la ligne à solder (colonne J). ", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionné est : " & Plage2.Address)
Range(Plage2.Address).Paste
End Sub
Ma macro ici bug sur le range(plage2.adress).paste
Merci de l'aide que vous pourrez m'apporter.
A voir également:
- VBA - copier coller avec msgbox pour cell
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
Mais j'ai trouvé une solution :
Sub copiecom() 'Permet de copier le commentaire dans la bonne cellule
Set Plage = Application.InputBox("Veuillez sélectionner la cellule à copier correspondant au commentaire initiale de la ligne (colonne J). ", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez sélectionné est : " & Plage.Address)
Range(Plage.Address).Copy
ActiveSheet.Paste
Range(Plage.Address).Select
Selection.EntireRow.Delete
End Sub
Merci de ton aide