Excel Bouton/copier/coller feuille1 à 2
léa
-
Ankhsuamon Messages postés 50 Statut Membre -
Ankhsuamon Messages postés 50 Statut Membre -
Bonjour,
J'aimerais savoir si possible copier/coller cellules d'une feuille1 Excel à une feuille 2 Excel.
Ci-joint Structure du fichier.
https://www.cjoint.com/?jyrvAHJtR0
J'aimerais qu'en cochant Colonne I cela déclenche copier de la ligne+coller en feuille 2
UNiquement copier/coller des éléments suivant (nom émetteur,montant,gestion,compte) pour copie de la feuille 1
et collage sur feuille 2 en (libellé,montant,gestion,compte)
Est-ce réalisable?
Peut-on copier/coller plusieurs lignes les unes sous les autres.
Merci pr tte info susceptible de m'aider.
Cordialement
J'aimerais savoir si possible copier/coller cellules d'une feuille1 Excel à une feuille 2 Excel.
Ci-joint Structure du fichier.
https://www.cjoint.com/?jyrvAHJtR0
J'aimerais qu'en cochant Colonne I cela déclenche copier de la ligne+coller en feuille 2
UNiquement copier/coller des éléments suivant (nom émetteur,montant,gestion,compte) pour copie de la feuille 1
et collage sur feuille 2 en (libellé,montant,gestion,compte)
Est-ce réalisable?
Peut-on copier/coller plusieurs lignes les unes sous les autres.
Merci pr tte info susceptible de m'aider.
Cordialement
Configuration: Windows XP Internet Explorer 7.0
4 réponses
-
Re bonjour,
Ecoute je vais essayer, mais je t'avoue que je débute complètement en Programmation.
Mais merci pour t infos, je vais tester.
Cordialement -
-
Hello Lea,
Vois plutot avec ca :
Dim lRow As Long
lRow = Selection.Row
If Selection.Row > 6 And Selection.Row <= Range("B65536").End(xlUp).Row Then
If UCase(Range("I" & Selection.Row)) = "X" Then
If MsgBox("Attention ligne deja copiée" & vbCrLf & vbCrLf & "Voulez-vous la copier encore une fois ?", vbYesNo) = vbNo Then Exit Sub
End If
ActiveWorkbook.Sheets(2).Select
Sheets(2).Range("C3").Select
ActiveCell.Offset(0, -2) = Sheets(1).Range("G" & lRow)
ActiveCell.Offset(0, -1) = Sheets(1).Range("H" & lRow)
ActiveCell = Sheets(1).Range("C" & lRow)
ActiveCell.Offset(0, 1) = Sheets(1).Range("D" & lRow)
End If
Il ne te reste plus qu'a recuperer tes dernieres lignes pour continuer le chargement de ta feuille 1 vers 2.
A+
-
-
Hello,
La reponse est oui, c'est possible en VBA. Choisis par exemple l'evenement Change de ta feuille 1. Utilises le code suivant (il repond en partie a ta reponse):
' Si valeur de la cellule est X
If Target = "X" Then
'Se positionner sur cellule
Range("G19").Select
'Copier
Selection.Copy
'Selectionner Feuil2
Sheets("Feuil2").Select
'Activer la cellule
ActiveSheet.Range("A3").Select
'Coller
ActiveSheet.Paste
End If
Autre information, ce que tu veux faire manuellement peut se programmer simplement en utilisant le menu Tools\Macro\Record macro
A+, tu devrais t'en sortir -
Re ,
Voilà, j'ai testé quelque chose, malheureusement le résultat c'est pas trop ca.
https://www.cjoint.com/?jBmxBPALd1
Le collage est en décallé, et je n'arrive pas à comprendre et je n'arrive pas à copier/coller lignes différentes
Si qulq'un peut m'aider.
Par avance.
Merci
