Discussion :

[Fadafana]

Bonjour a tous !

J'ai un tableau dans une feuille qui commence à la ligne 10 et se termine à la ligne 60 et va de la colonne D à la colonne M. J'aurais souhaité à l'aide d'un userform copier les données des colonnes D à G dans un autre tableau qui commencerait aussi ligne 10 et qui irait de la colonne D à la colonne G.

J'aurais besoin d (une grande^^) aide pour ce code


Merci d'avance

[Bigalo]

Bonjour,

Un UserForm, pour quoi faire ?

Code :

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

1
2
3
Sub Report()
    Sheets("Feuil2").Range("D10:G60").Value = Sheets("Feuil1").Range("D10:G60").Value
End Sub

suffit, moyennant l’adaptation du nom des feuilles.

La Sub précédente implique que les 2 feuilles appartiennent au classeur actif. Sinon :

Code :

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

1
2
3
Sub Reportbis()
    Workbooks("Destination.xls").Sheets("Feuil2").Range("D10:G60").Value = Workbooks("Source.xls").Sheets("Feuil1").Range("D10:G60").Value
End Sub

Voilà,

[Fadafana]

Un UserForm, pour quoi faire ?

Juste en macro donc? (je débute vraiment)

La Sub précédente implique que les 2 feuilles appartiennent au classeur actif.

Je comprend pas ce que tu entends par classeur actif en tout cas ces deux feuilles sont dans le meme fichier


En tout cas merci pour ta réactivité

[Fadafana]

J'arrive pas


Je dois bien saisir les deux dans la macro ou juste l'une des deux ?



Sinon lorsqu'il il n'y a plus de données à copier est-il possible d'avoir une message box "il n'y a plus de données à copier" du genre

If Text = ""
MsbBox ??

[Bigalo]

Si tu entres quelque chose au clavier et que tu valides avec Retour, ce que tu as saisi entre dans une cellule.

• Cette cellule est la cellule active.
• La feuille qui la contient est la feuille active.
• Le classeur qui la contient est le classeur actif.

En VBA, on peut faire référence à ces 3 objets avec, ActiveCell, ActiveSheet et ActiveWorkbook.

NB - Rappel peut-être superflu : un fichier Excel s’appelle un classeur depuis la version 5, pour indiquer qu’il peut contenir pulsieurs feuilles.

Je t'ai indiqué 2 versions du traitement. La seconde est pour le cas où les 2 feuilles auraient appartenu à 2 classeurs (fichiers si tu préfères) distincts.

Puisque ce n’est pas le cas, la première version suffit.

Tu n’arrives pas à quoi ? Tu as bien remplacé les noms des feuilles par les bons ?

Le traitement est immédiat, il traite TOUTES les cellules en 1 opération. Un message paraît donc superflu.

[canichon]

salut a vous 2,

Si c'est juste un copier/coller, ce que Bigalo te suggere est super.

Pour lancer ce "copier/coller", tu peux mettre un bouton sur ta feuille de départ. - tu dessines le bouton sur ta feuille
- tu double-cliques sur le bouton, tu rentres donc dans l'interface de programmation
- tu colles le bout de prog de Bigalo

ET LE TOUR EST JOUE...

[Fadafana]

Ben le truc c'est que les données sont couper au lieu d'être copier et ne sont pas collé ... mystere ? ^^

EDIT : je precise que c'est bien un classeur actif

[Bigalo]

Fadafana,

Indique le code que tu utilises pour ton test, pas celui que je t’ai donné, celui que tu as adapté.

[Fadafana]

Code :

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

1
2
3
Sub importcandidats()
    Sheets("candidats").Range("D10:G60").Value = Sheets("resultats").Range("D10:G60").Value
End Sub

Voila j'ai juste changer les noms des deux feuilles (qui sont bons bien sur lol)


Veux-tu le fichier par email sinon?


Pour rappel : ce qui ce passe c'est que ca ne copie colle pas les données mais les coupe sans les coller

[Fadafana]

Oups la ptite boulette que j'avais faite ... merci bigalo ce code est EXTRA !!!

[Bigalo]

De rien

C'était quoi la boulette, par curiosité ? Tu avais inversé les 2 feuilles, et tu remplaçais le contenu de la feuille renseignée par celui d’une feuille vide ?

[Fadafana]

Exactement