Discussion :

[jfk15]

Bonjour,

je vais créer un userform avec

- un textbox1 : on devra renseigner une ligne Excel de la feuille active à copier (par exemple la ligne 16)
- un textbox2 : on devra renseigner une ligne Excel de la feuille active à copier (une autre)
- un textbox3 : idem
- un textbox4 : idem
- un textbox 5 : idem

Une fois que ces textbox seront remplis (pas obligatoire de les remplir tous), les lignes seront donc copiés et seront collés dans une cellule (prédéfinie: a11 probablement) d'une autre feuille (à l'aide d'un bouton de commande intitulé "coller")

Créer le userform ne me posera pas de pb mais le code qui va copier les lignes Excel inscrites dans les textbox puis les coller dans une cellule d'une autre feuille grâce à un clic sur un bouton de commande me posera bcp bcp plus de problèmes

Si une âme charitable peut m'écrire ce code. J'imagine qu'il n'est pas super difficile mais encore trop pour moi (même si je progresse grâce à toutes les propositions que vous faites dans les autres topics).

Merci à vous et bonne journée

[Gado2600]

Bonjour,

Le code en soit n'est pas complexe.
Tu as besoin de :

Code :

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

1
2
me.textbox1 ' Pour lire le contenu de ta textbox dans ton userform (textbox1 étant le nom que tu peux changer de ta textbox ciblée)
thisworkbook.sheets("NomDeLaSheet").range("A1") ' Pour lire/écrire le contenu d'une cellule sur Excel

Pour utiliser une variable dans une range, tu peux faire comme ceci : Range("A" & numeroligne)

Selon la quantité d'informations que tu dois copier-coller, tu as la possibilité de faire ceci (tu copies les cellules dont tu as besoin vers l'endroit où tu souhaites les coller):

thisworkbook.sheets("NomDeLaSheetSource").range("A1:C1").copy thisworkbook.sheets("NomDeLaSheetDestination").range("A1")

Normalement, tu as tout ce qu'il faut pour

Cordialement,

[jfk15]

Bonjour

je pensais à un code comme celui ci-dessous mais il ne me satisfait pas car avec cette méthode c'est toujours les lignes 6 à 10 qui sont copiées et collées dans la cellule A11 de la feuille 2.
Je souhaiterais que sur un userform (que je pense savoir faire), il y ait 4 ou 5 textbox où l'utilisateur indique le numéro des lignes qu'ils souhaitent coller (par exemple la ligne 14 ; 18 ; 20 ; 22)
Une fois les text box renseignées (pas obligé qu'elles le soient toutes), l'utilisateur clique sur valider et cela copie les numéros de lignes qu'il y a dans les textbox et va coller ces lignes dans la cellule A11 de la feuille suivante.
Exactement comme le code ci-dessous mais que les informations proviennent des textbox du userform.

Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub essai()
'
' essai Macro
'
    Rows("6:10").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A11").Select
    ActiveSheet.Paste
End Sub