Bonjour toutes et tous
@Barachoie
j'ai un peu avancé, j'ai créé un nouvel onglet Feuil1 (Sheets3) dans ton vba afin de transférer sure cet onglet,
le truc, fonctionne ci-dessous, mais pas trouvé pour transférer sur l'onglet 'comp' de ton classeur
Fonctionnement : lorsqu'on clic sur le bouton @ de la feuille Feuil2, un message box (inputbox) s'affiche le signe @ 'arobase' est directement affiché par défaut, il ne reste plus qu'à cliquer sur ok de cet inputbox, et sélectionnera la colonne V recherchera les signes @ les lignes seront transférés si @ trouvés seront placés dans l'onglet Feuil1 (Sheets(3) de ton Vba).
ci-joint
crdlt,
André
Option Explicit
'https://forum.excel-pratique.com/viewtopic.php?f=2&t=108344
Sub recherarobase()
' déclaration des variables
Dim mot As Variant
Dim c As Object
Dim premier
On Error GoTo 0
With Sheets("feuil2").Activate
mot = InputBox("Texte ?", "Titre", "@")
If mot = "" Then Exit Sub
Columns(22).Select
Set c = Selection.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
Rows(c.Row).Copy Sheets(3).[a65000].End(xlUp).Offset(1, 0) ' ici à modifier
Set c = Selection.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
End Sub