Copier/Coller

[Hulk]

Bonjour le Forum,

J'ai déjà posé la même question sur un autre Forum, et n'ayant encore aucune réponse (p-être que je suis trop pressé), je pose la même question ici.😀

J'ai un petit souci de Copier/Coller, le mieux est de regarder le fichier joint.

Je vous remercie pour votre aide.

Hulk.

 

[Catrice]

Re : Copier/Coller

Bonsoir,

Un exemple ci-joint

De E17 à J26, il faut ecraser les formules ?

 

[Hulk]

Re : Copier/Coller

Re-bonsoir à tous,

De E17 à J26, il faut ecraser les formules ?

Non non surtout pas c'est impec comme ça un grand merci et un grand bravo.

En revanche je t'avoue que je ne comprends pas trop la macro, si tu pouvais m'éclairer... merci à toi.

Juste encore une chose:

Au lieu de cliquer sur un bouton pour que ça le copie et que ça efface la liste pour la remplir à nouveau, est-ce possible que ça le fasse directement quand je change le nom en E2 ?
C'est à dire, je choisis une autre journée et hop ça copie les colonnes adéquates et efface les autres, possible ?

En tous les cas merci pour ton aide précieuse.

Hulk.

 

[Catrice]

Re : Copier/Coller

Re,

Ci-joint, le fichier avec le code commenté.
Et une solution qui copie des qu'on change de choix dans la liste.
J'ai du prendre une autre liste car il n'est pas evident (pour moi en tous cas) de gerer l'evenement de changement sur la liste de validation de la feuille.

Mais je crois que tu va preferer le bouton 😉
En effet, la liste ne pardonne pas les erreurs...

 

[Hulk]

Re : Copier/Coller

Re bonsoir à tous,

Merci Catrice et tu as raison je préfère ta première version (elle mouline moins).

En tous cas merci encore et aussi pour tes explications.

Bon weekend à toi... ... et à tous !

Hulk.

 

[Hulk]

Re : Copier/Coller

Salut à tous et toutes,

Catrice, je coince avec ta macro, rien à faire !😕

Si tu pouvais jeter un petit coup d'oeil..😀

Merci bien.

Bon week à tous.

Hulk.

 

[Catrice]

Re : Copier/Coller

Bonsoir,

Ci-joint une version corrigée.
ActiveSheet.[K5:L14].Copy (Cells(Application.Match([Journée], ActiveSheet.Range("T:T"), 0), 26))

Il faut régler le parametre colonne de la fonction Cells

 

[Hulk]

Re : Copier/Coller

Re bonjour,

C'est bon Catrice j'ai réussi, j'ai presque compris le pourquoi du comment, juste encore que je ne comprends pas en revanche qu'est ce c'est que ce "Match" et sans s en plus ? Qu'est-ce qui est nommé "Match" ?

ActiveSheet.[K5:L14].Copy (Cells(Application.Match([Journée], ActiveSheet.Range("T:T"), 0), 26))

Tu dis : La fonction Match, correspond à la fontion equive de la feuille de calcul.

Mais dans la feuille calcul il n'y a pas de fonction Equiv ? Je ne comprends rien 😀

Enfin le principal est que ça joue et bien, mais comme j'aime bien comprendre (comme tout le monde)...

En tous cas un grand merci pour ton aide.

@+, Hulk.

 

[Catrice]

Re : Copier/Coller

Bonsoir,

La fonction Equiv (Match en anglais ou en Vba) est utilisé pour récupérer le n° de ligne où se trouve le 1er Journée1, Journée2 etc ...

La fontion n'est pas utilisée dans la feuille de calcul mais dans la macro. Mais à la base, c'est une fonction de la feuille de calcul

Ci-joint un exemple de fonctionnement de cette fonction dans la feuille de calcul.
Tu trouveras les compléments d'information sur son fonctionnement dans l'aide.

 

[Hulk]

Re : Copier/Coller

Bonsoir à tous,

Merci Catrice pour tes explications limpides.

Passe une super fin de weekend.

Hulk.

 

[Hulk]

Re : Copier/Coller

Salut le Forum et à tous,

Catrice si jamais ce message est pour toi !

Ai un petit souci avec ta formule.

Mais je ne peux joindre le fichier car trop lourd et pour que tu comprennes mon souci, il faut que le fichier soit entier.

Si tu es d'accord, je te laisse une de mes adresses e-mail et si tu as la gentillesse de m'en donner une des tiennes sur le message que tu m'envoyeras, je pourrais te joindre le fichier afin que tu puisses y jeter un coup d'oeil.

antoniom@bluewin.ch

Si tu n'es pas d'accord, pas de problème je comprends.

Merci et attends une réponse de ta part.

Bonne soirée.

Hulk.

 

[Catrice]

Re : Copier/Coller

Hello

Malheureusement pas d'adresse email ...
Mais tu peux eventuellement mettre ton fichier sur Accueil de Cjoint.com (max 500ko).
Ou bien synthetiser ton probleme le forum ou moi-meme te répondrons...

 

[Hulk]

Re : Copier/Coller

Re bonsoir à tous,

Au fait Catrice c'est bon ! Je viens de trouver le problème 😀

Mais il m'a fallu quand même 6 heures de recherche 😱

Merci quand même et au plaisir de te relire.

Bonne nuit à tous.

Hulk.