Copier/coller entre 2 feuilles avec un bouton

FaruSZ · 14 Juillet 2020

Bonjour,
j'ai 2 feuilles Excel, ou j'ai des données que je dois copier de la 2eme feuille vers la 1ere feuille avec quelques conditions.
mes donnes a copies de la 2eme feuille sont les test: (par ex la ligne 3 colonne B)

Je dois les copier dans la 1ere feuille par exemple : (l’année 2020 semaine S10)

et ceci après avoir sélectionner l’année, la semaine et le test a partir d'un Userform et on valide avec un button click:

Jai commence a rédiger un code qui est dans mon fichier joint mais j'ai pas su comment ajouter la ligne qui me permet de faire le copier coller.
Merci pour vos propositions

_Thierry · 15 Juillet 2020

Re
Pas de mal, mais donc non, l'algo est construit sur la base du Référence Type (par le UserForm en prime)

Ici du Côté Source :

VB:

For Each CellSourceR In RngSourceR
    If Trim(CellSourceR) = Me.ComboBox_Test Then
        SR = CellSourceR.Row
    Exit For
    End If
Next CellSourceR

Et de l'autre coté Cible ici :

VB:

For Each CellCibleR In RngCibleR
    If Me.ComboBox_Num_Test.ListIndex = -1 Then
        If Trim(CellCibleR) = Me.ComboBox_Test Then
            CR = CellCibleR.Row
        Exit For
        End If
    Else
        If Trim(CellCibleR) = Me.ComboBox_Test & Me.ComboBox_Num_Test Then
            CR = CellCibleR.Row
        Exit For
        End If
    End If
Next CellCibleR

Il trouve ainsi SR (Source Row) et CR (Cible Row) en plus dès qu'il trouve il sort (Exit For)...
Donc ces ajouts à la dernière minute de "O", "T", "I" sur une autre colonne ne peuvent absolument pas être pris en considération...

Non, là il faut tout mettre à la poubelle !
Bon courage
@+Thierry

FaruSZ · 15 Juillet 2020

OK, je com

_Thierry à dit:
Re
Pas de mal, mais donc non, l'algo est construit sur la base du Référence Type (par le UserForm en prime)

Ici du Côté Source :

VB:

For Each CellSourceR In RngSourceR If Trim(CellSourceR) = Me.ComboBox_Test Then SR = CellSourceR.Row Exit For End If Next CellSourceR

Et de l'autre coté Cible ici :

VB:

For Each CellCibleR In RngCibleR If Me.ComboBox_Num_Test.ListIndex = -1 Then If Trim(CellCibleR) = Me.ComboBox_Test Then CR = CellCibleR.Row Exit For End If Else If Trim(CellCibleR) = Me.ComboBox_Test & Me.ComboBox_Num_Test Then CR = CellCibleR.Row Exit For End If End If Next CellCibleR

Il trouve ainsi SR (Source Row) et CR (Cible Row) en plus dès qu'il trouve il sort (Exit For)...
Donc ces ajouts à la dernière minute de "O", "T", "I" sur une autre colonne ne peuvent absolument pas être pris en considération...

Non, là il faut tout mettre à la poubelle !
Bon courage
@+Thierry

OK, je comprends merciiii

FaruSZ · 17 Juillet 2020

_Thierry à dit:
Bonsoir ou bonjour @FaruSZ , le Forum

Merci pour cette précision :

Ok voici une autre version, je pense avoir compris cette fois ci....

Bonne nuit/journée
@+Thierry

Re,
Comment preserver les couleurs des cellules de la feuille source ?
Merci

_Thierry · 17 Juillet 2020

Bonjour @FaruSZ , le Forum

Voilà une v02 qui le fait, ce n'était pas trop compliqué à modifier, au lieu de passer uniquement les valeur de la Range comme en v01 (plus rapide), j'ai transformé pour faire un Copy/Paste, du coup il reprend tout (Couleur Cellule ou Caratères, Bold ou Italique, Commentaires... et Même les Formats Conditionnels)

Bonne journée
@+Thierry

FaruSZ · 17 Juillet 2020

_Thierry à dit:
Bonjour @FaruSZ , le Forum

Voilà une v02 qui le fait, ce n'était pas trop compliqué à modifier, au lieu de passer uniquement les valeur de la Range comme en v01 (plus rapide), j'ai transformé pour faire un Copy/Paste, du coup il reprend tout (Couleur Cellule ou Caratères, Bold ou Italique, Commentaires... et Même les Formats Conditionnels)

Bonne journée
@+Thierry

Ah c'est simple lol, merci bcp.

Copier/coller entre 2 feuilles avec un bouton

FaruSZ

XLDnaute Occasionnel

Pièces jointes

_Thierry

XLDnaute Barbatruc

FaruSZ

XLDnaute Occasionnel

FaruSZ

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

Pièces jointes

FaruSZ

XLDnaute Occasionnel

Discussions similaires