Choisir la ligne d'arrivee du transfert

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 zay ) .

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

 

Bonsoir Romy, bonsoir le forum,

Peut-être comme ça :

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, "A")
            .Activate
        End If
    End With
End If
End Sub

Merci ThauThème

Chez nous quand c'est bon, on dit c'est propre

merci encore

Pardon une autre chose:

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

Re,

Chez nous, quand quelqu'un ne sait pas ce qu'il veut on dit Pecaïre, il est bègue du cerveau !...

Option Explicit
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")
            D.Offset(0, 4).ClearContents
            D.Offset(0, 6).ClearContents
            .Activate
        End If
    End With
End If
End Sub