pb code pour copiage cellules, help Résolu/Fermé

Question

Bonjour, 

j'ai écrit un code qui ne donne une erreur et je n'arrive pas à détecter où cela bloque.
j'ai des données d'une liste qui doivent (lorsque je les sélectionne) se copier dans un groupe ou dans un autre
ex : donnée sélectionnée bouton copie dans groupe A de B33:B39
ou autre données dans groupe B de K33:K39

or qd je fait fonctionner le bouton du groupe A, il me copie toujours la donnée en B2 ???????
pourquoi mon code ne fonctionne pas ? merci d'avance pour le coup de main

ceci pour le groupe A

Sub vers_A()


Dim sel As Byte, grAmo As Byte
Dim livi As Byte

Application.ScreenUpdating = False 
sel = ActiveWindow.RangeSelection.Count
grAmo = WorksheetFunction.CountA(Range("B33:B38")
If (5 - grAmo) >= sel Then 
livi = Cells(39, 2).End(xlUp).Offset(1, 0).Row 
ActiveWindow.RangeSelection.Copy 
Cells(livi, 2).Select 
Selection.PasteSpecial (xlPasteValues) 
Else
MsgBox "Le groupe est complet" 
End If

End Sub


PS d'habitude ça fonctionne bien ??????

Configuration: Windows Vista / Firefox 3.6.12

Le Pingou · Answer

Bonjour,  
Votre code fonctionne correctement selon votre explication. 
Pouvez-vous mettre une copie du fichier sur http://www.cijoint.fr/ et poster le lien ! 
Salutations.  
Le Pingou

Yingyang · Answer

http://www.cijoint.fr/cjlink.php?file=cj201011/cijutfzHG8.xlsm

Bonjour, voici une copie "épurée" de mon travail.
je vous remercie par avance de l'aide que vous m'apportez.
si vous avez besoin d'autres renseignements, n'hésitez pas.
merci

Le Pingou · Answer

Bonjour,
Je comprends ceci :
Dans la plage [P4 :P22] je crée le groupe et ensuite la liste est envoyé vers  [vers A] ou [vers B] OUI / NON ?
Problème, si le nombre dépasse le nombre de place en [Gp A] ou [Gp B], alors ne rien faire !
Alors  si votre liste dépasse 5 valeurs, jamais vous arriverai à remplir les 2 groupes ?

Yinyang · Answer

re bonjour,

en effet le groupe se crée dans la plage :P4P22, puis je choisis des noms que j'envoie sois dans la groupe A, soit dans le groupe B.
en fait pour l'instant vous voyez 2 groupes seulement, mais ils seront vidés à un moment et remplacer par d'autres noms (toujours en gardant groupe A et groupe B).
la liste d'origine restera, mais le nom des participants pourra changer.
il se pourra donc qu'un nom soit utilisé deux fois et de toute façon il n'y aura jamais plus de 5 par groupe.

suis-je clair ?
merci pour votre aide, je suis toujours là

Le Pingou · Answer

Bonjour,
Ma proposition pour les 2 groupes ( voir le code)  https://www.cjoint.com/?0ldqkXDjka
Merci pour l'information que je viens de voir.

Yingyang · Answer

Bonjour,
bon eh bien tout fonctionne parfaitement sur votre travail.......mais sur le mien non ! 
j'ai fait attention pourtant de tout recopier en faisant copier coller et en créant vos macros, pourtant ça bloque au niveau des macros vers_gpA et vers_gpB.
de fait rien ne se produit?????

pourtant votre travail est super génial
tout ceci vient bien sur de moi

pouvez vous encore m'apporter votre aide ?
merci d'avance

Yingyang · Answer

Bonjour,

j' ai affecté le bouton groupe A à la macro sub vers_gpA
et idem pour le B.
par contre je ne comprends pas votre 3e macro
vers_groupes(AB) ?
elle ne semble reliée à aucun bouton ?
comme toujours, il y a des choses qui m'échappent !
merci d' avance pour vos lumières
Yingyang

Le Pingou · Answer

Bonjour,
par contre je ne comprends pas votre 3e macro 
vers_groupes(AB) ?
C'est la procédure principale avec l'argument (AB) qui doit être le numéro de la colonne  du groupe concerné (A ou B).
Elle est déclenchée par l'instruction [vers_groupe 2] ou [vers_groupe 11] de la procédure [vers_gpA] ou [vers_gpB] qui sont affectées aux boutons de commande.

Yingyang · Answer

re,
OHLala ! je suis tout de même dans le flou !
là je cale
que se passe-t-il alors ? pourquoi ça ne fonctionne pas?
j'ai l'impression de rester dos au mur sans avancer :)

j'ai pourtant tout fait.........;;enfin je crois
les voix de l'informatique sont impénétrables pour moi :)

yingyang

Yingyang · Answer

Bonjour,

en fait j'ai essayé sur mon application "maitre" et comme je vous l'ai dit, cela ne fonctionne pas.

par contre j'ai essayé sur le fichier "épuré" que je vous ai envoyé la 1ère fois et ça fonctionne très bien            ????????????

il faut donc que je revois la chose !
en ce qui concerne le fait de vous l'envoyer, je ne préfère pas mettre "à la vue de tout le monde" mon travail.
j'espère que je ne vous choque pas, mais j'ai déjà eu des surprises par très agréables et je ne veux pas recommencer.

si vous me permettez je vous tiens au courant mais si vous avez une autre solution je suis tout ouïe.
merci de votre indulgence et de votre compréhension
cordialement

Pb code pour copiage cellules, help

10 réponses

Discussions similaires