Copier/coller entre 2 feuilles avec un bouton

[FaruSZ]

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]

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 :

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 :

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]

OK, je com

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 :

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 :

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]

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]

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]

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.