Discussion :

[MrYoYo]

Bonjour,

Je souhaite copier dans une ligne d'un fichier excel une ligne d'un deuxième fichier, mais j'ai besoin de l'intervention de l'utilisateur qui doit me dire sur quelle ligne aller chercher les données.

Pour cela, je souhaite lui demander de pointer sur une des cellule de la ligne de provenance. Une fois que je sais où aller chercher les données, je les recopie dans le fichier destination dans l'ordre voulu.

Quelqu'un aurait-il une solution pour demander à l'utilisateur de selectionner la cellule souhaitée ?

Merci pour vos future réponse.

MrYoYo.

[Chewi]

Bonjour MrYoYo,

Tu peux utiliser le contrôle RefEdit dans les UserForms.
Dans ton code, tu fais apparaître au moment voulu ton UserForm dans lequel tu place un RefEdit.

Lorsque l'utilisateur clique sur le bouton de commande de ton Uf, tu mets derrière la 2ème partie de ton code (dépendant de la valeur de RefEdit).

P.S. pour ton transfert, tu peux éventuellement t'inspiré de ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub transfert()
 
x = ActiveCell.Row
Dim iDerLigne As Variable
iDerLigne = Range("a65536").End(xlUp).Row+1
Rows(x).Select
 
Selection.Cut
Sheets("poubelle").Select
Rows(iDerLigne).Select
ActiveSheet.Paste
cells(iDerLigne,"H") = Date
Sheets("Projet").Select
Rows(x).Delete Shift:=xlUp
 
End Sub

Cordialement,

Chewi

[Invité]

Bonjour

Regarde du coté de InputBox, pas la fonction VB comme msgbox mais celle fourni avec Excel, elle permet la sélection d'une plage ou d'une cellule

Starec

[MrYoYo]

Merci à vous deux, j'ai opté pour la solution de Starec qui me semble la plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub zzzz()
Dim plg As Range
Set plg = Application.InputBox _
("Sélectionner une cellule", , , , , , , 8)
MaVariable= plg.Address
End Sub

ça convient tout à fait à ce que je recherche.

Encore merci.

[ouskel'n'or]

Tu avais ça ici
Une simple recherche sur le forum VBA

Edit
Et ici