Microsoft 365 CHOISIR LA LIGNE D'ARRIVEE DU TRANSFERT

[ROMY007]

Salut la famille!!

Je voudrais transférer des données d'un onglet à un autre en étant à mesure de choisir la ligne de départ dans le 1er onglet (là ça marche) et la ligne d'arrivée dans le 2eme onglet (là ça zahi) .

voici le code que j'ai bidouillé mais je suis bloqué. j'ai besoin d'aide

Merci d'avance pour la bouée de sauvetage


Option Explicit
Sub Test()
Dim Valeur1, Valeur2 As String
Dim C, D As Range
Valeur1 = InputBox("Veuillez saisir le Numero de la ligne à copier.", "RECHERCHE LIGNE DE DEPART") 'ligne de depart(ca marche)
Set C = Worksheets("Feuil1").Columns(1).Find(Valeur1, , xlValues, xlWhole)
If Not C Is Nothing Then
With Worksheets("Feuil2")
Valeur2 = InputBox("Veuillez saisir le numéro de la ligne d'arrivée.", "RECHERCHE LIGNE D'ARRIVEE") 'ligne d'arrivée (ca marche pas)
Set D = Worksheets("Feuil2").Columns(1).Find(Valeur2, , xlValues, xlWhole)
If Not D Is Nothing Then
C.Resize(1, 7).Copy .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row).Offset(1)
.Activate
End If
End With
End If
End Sub

 

[ROMY007]

Salut !

j'ai trouvé une possibilité mais un détail me bloque

y aurait-il possibilité d'exclure les cellules des colones E et G de l'onglet "Feuil1" pendant le transfert. De sorte à ne pas les retrouver à l'arrivée dans dans l'onglet "Feuil2" sans modifier le contenu initial de de ceux-ci

Sub Test()
Dim Valeur1 As String, Valeur2  As String
Dim C As Range, D As Range

Valeur1 = InputBox("Veuillez saisir le Numero de la ligne à copier.", "RECHERCHE LIGNE DE DEPART") 'ligne de depart(ca marche)
Set C = Worksheets("Feuil1").Columns(1).Find(Valeur1, , xlValues, xlWhole)
If Not C Is Nothing Then
    With Worksheets("Feuil2")
        Valeur2 = InputBox("Veuillez saisir le numéro de la ligne d'arrivée.", "RECHERCHE LIGNE D'ARRIVEE") 'ligne d'arrivée (ca marche pas)
        Set D = Worksheets("Feuil2").Columns(1).Find(Valeur2, , xlValues, xlWhole)
        If Not D Is Nothing Then
            C.Resize(1, 7).Copy .Cells(D.Row, "B")
            .Activate
        End If
    End With
End If
End Sub

 

[James007]

Bonjour,

A priori ... au risque de me tromper ... je crois bien que tu as pu résoudre ton problème ...