Déplacement d'informations

Bonjour

je souhaiterai deplacer des informations d'une feuille vers une autre (feuille 1 vers feuille 2) ,laquelle dispose de champs appropriés pour recevoir ces informations , existe il un code pouvant faire cela ?

je joins à me demande d'aide le fichier excel en vous remerciant pour votre intervention

Bonjour.

Un essai par double clique.

Salut le forum

Tu veux apprendre le VBA mais a chaque ficelle, tu ne fais même par l'effort

de mettre un essai de code fait par toi même.

Rocket je te conseille fortement de lire Explications et règles à respecter en particulier le point 8

Rocket, code à copier dans le module de la Feuil1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim Col As Byte

If Not Application.Intersect(Target, Range("G2:G7")) Is Nothing Then
  For Col = 1 To 6
    Sheets("Feuil2").Range("I7").Offset((Col - 1) * 2) = Cells(Target.Row, Col)
  Next Col
End If
Cancel = True
End Sub

Mytå

Merci