Collage dans un ROW choisi manuellement - VB/VBA/VBS - Programmation
Marsh Posté le 09-10-2008 à 16:22:25
Essaye ceci :
- d'abord, le code du bouton pour activer la macro :
Code :
|
- ensuite, le userform :
créé un userform avec une textbox et un bouton.
Dans le code du userform tu mets
Code :
|
- Enfin, tu créé une fonction collage_données :
Code :
|
Voila voila, j'espere que ca pourra t'aider... n'hesite pas a reposter si ce code n'est pas clair, ou s'il faut des precisions / amelioration (voir tout refaire )
Marsh Posté le 09-10-2008 à 16:28:22
Merci Mooschild, je regarde ça et je te réponds dans l'heure, merci en tout cas!
Marsh Posté le 09-10-2008 à 16:32:58
J'ai un doute, vu le titre du post : tu veux entrer la valeur de la ligne a copier, ou de la ligne de destination?
Parce si c'est la ligne a copier, c'est bon sinon, il faudra remplacer
Code :
|
par
Code :
|
Edit : Faut vraiment que j'me relise
Marsh Posté le 09-10-2008 à 16:47:22
Reprenons au début: mon but est de copier un tableau à partir d'une feuille appelée "work" et de pouvoir choisir à l'aide d'une textbox et d'un bouton l'emplacement du ROW dans lequel je vais coller ce tableau dans ma feuille "Results".
Marsh Posté le 09-10-2008 à 16:48:40
So -> Deuxieme choix, fait l'echange de code
Marsh Posté le 09-10-2008 à 16:48:49
Je suis un peu perdu dans toutes les lignes de codes entre les miennes et les tiennes, est-ce que tu pourrais recompiler le tout? Sorry mais je n'ai pas un très bon niveau.
Marsh Posté le 09-10-2008 à 17:01:09
Ouais, recommençons, histoire de faire plus simple... Si tu veux juste copier, comme tu le dis, un tableau et le coller a la ligne inscrit dans le userform, il te faut donc creer ton userform, sur le userform, mettre un bouton et une textbox, puis, dans le code du userform (donc en double cliquant sur le userform) tu mets
Code :
|
et ensuite, tu n'as plus qu'a creer un bouton sur une des feuilles, avec comme code
Code :
|
Et enfin tu remplaces les nom d'userform, textbox, bouton, et puis les cellules delimitant ton tableau
Marsh Posté le 09-10-2008 à 17:59:04
Merci beaucoup!!
Encore un dernier truc: Excel me mets des erreurs "REF! car il veut copier les références, comment puis-je lui dire de ne copier que les valeurs?
Marsh Posté le 09-10-2008 à 18:22:55
Je suis désolé, je dois partir de mon travail, je te recontact demain si j'trouve la solution (je dois avouer que je n'ai jamais fais de copie de cellule contenant des formules, donc je ne sais pas comment faire encore, mais j'vais chercher, t'inquiete )
Désolé pour ton boss... dis lui que tu regles juste un petit detail et que ca fonctionnera apres
Marsh Posté le 10-10-2008 à 09:14:19
J'ai resolu ton probleme, bon faut dire que d'un autre coté, t'as des pb de ref dans ta page work aussi (ca c'est un pb de selection de colonne de calcul), mais effectivement, en cas de valeur existantes, il n'arrivait tout de meme pas a copier la valeur dans la feuille Results, il ne prenait que le calcul...
Donc, pour arranger ca, vas dans le code de ton userform2, et replace tout le code par ca (j'ai tout mis, que t'ai pas a te demander où mettre le bout de code qu'a changé) :
Code :
|
Marsh Posté le 10-10-2008 à 11:01:12
Tant mieux, comme ca tu pourras te la jouer devant ton patron...
"Vous n'avez pas fait ce que je vous avais demandé, je ne vois pas de bouton"
"Pff les boutons s'pour les low, go ctrl+F1"
Tu sais d'un ton "p'tit c**, reflechis avant de dire que j'ai rien foutu + branleur staÿle "
Marsh Posté le 09-10-2008 à 15:34:42
Bonjour,
Je cherche à faire un copier-coller un peu plus sophistiqué.
Dans mon opération de collage, je voudrais créer un user form avec un champ et un bouton. L'utilisateur inscrirait un numéro dans le champ, ce numéro correspondrait au ROW (à la ligne) sur laquelle mes données vont être copiées dans la page de résultat. Le bouton effectuerait cette opération de collage en fonction du numéro de ligne indiqué par l'utilisateur dans ce champ.
Voici le code que j'ai déjà:
Ici j'ai besoin du code pour le champ, qui indiquerait que je peux rentrer des numéros de lignes
Private Sub CommandButton1_Click()
Sheets("Work" ).Select 'activer feuille "work"
Range("B10000:DX10007" ).Select 'selectionner les données désirées
Selection.Copy 'copier la sélection
Sheets("Results" ).Select 'sélectionner la feuilles de résultats
Range("B12" ).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'copier les valeurs
Range("C2" ).Select 'copie le nom du facteur
Selection.Copy
Range("B11" ).Select 'copie le nom du facteur dans la cellule B11
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Font.Bold = True 'police gras
Range("B11:DX19" ).Select 'selctionne le tableau
Selection.Cut 'copier la sélection
Ici j'ai besoin du code pour coller sur la ligne spécifiée dans le champ indiqué au début
End Sub
Merci d'avance de votre précieuse aide!