Pb code pour copiage cellules, help
Résolu
yingyang
-
Le Pingou Messages postés 12273 Date d'inscription Statut Non membre Dernière intervention -
Le Pingou Messages postés 12273 Date d'inscription Statut Non membre Dernière intervention -
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 ??????
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 ??????
A voir également:
- Pb code pour copiage cellules, help
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Formule excel pour additionner plusieurs cellules - Guide
10 réponses
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
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
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
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
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 ?
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 ?
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à
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à
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Ma proposition pour les 2 groupes ( voir le code) https://www.cjoint.com/?0ldqkXDjka
Merci pour l'information que je viens de voir.
Ma proposition pour les 2 groupes ( voir le code) https://www.cjoint.com/?0ldqkXDjka
Merci pour l'information que je viens de voir.
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
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
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
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
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.
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.
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
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
Bonjour,
Mettre votre fichier sur https://www.cjoint.com/ et poster le lien !
Salutations.
Le Pingou
Mettre votre fichier sur https://www.cjoint.com/ et poster le lien !
Salutations.
Le Pingou
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
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
re
j'ai fait autrement et le miracle est arrivé : tout fonctionne PARFAITEMENT !
j'avais dû faire une erreur quelque part .
encore merci de votre aide inestimable ;
si vous me permettez je continue à avancer (parfois je recule un peu, mais bon !) et si je coince de nouveau de posterais de nouveau.
bonne continuation
cordialement
j'ai fait autrement et le miracle est arrivé : tout fonctionne PARFAITEMENT !
j'avais dû faire une erreur quelque part .
encore merci de votre aide inestimable ;
si vous me permettez je continue à avancer (parfois je recule un peu, mais bon !) et si je coince de nouveau de posterais de nouveau.
bonne continuation
cordialement
