[XL-2007] Recherche et copier

[rider18]

Bonjour , J'ai un petit souci pour créer un code.
Je voudrais réaliser une recherche et une copie .

Quand je double clic sur A2 , je voudrais copier A1/A2/A3/A4 et faire une recherche dans ma copie . Si dans ma sélection j'ai op-78 je copie mes cellules et je les colle dans ma feuille choisie par mon double clic et les collés de G à H.
j'ai commencer un faire un code mais ça marche!

Quelqu'un pourrais regarder mon fichier ou mon code?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:A500")) Is Nothing Then
Dim C As Range, DerLig As Integer
 Dim Var As String
 Var = Target.Value
 Sheets(Var).Activate
 
With Worksheets(3).Range(Target.Offset(0, 3).Address & ":" & Target.Address)
        Set C = .Find(op - 78, LookIn:=xlValues)
    If Not C Is Nothing Then
    End If
        DerLig = Sheets(Var).Range("A65536").End(xlUp).Row + 1
        C.Range(Target.Offset(0, 3).Address & ":" & Target.Address).Copy _
        Destination:=Sheets(Var).Range("A" & DerLig)
 
 
        End With
 
        MsgBox "copie réussie"
 
 End If
 
End Sub

A+

[Golonne]

Bonjour,

Ce que tu recherche (op-78) c'est une chaîne de caractères ?

Cordialement,

Guillaume

[rider18]

Bonsoir , j'ai commencé a créer le code avec une boucle, pour le moment ça marche maintenant il me reste a créer plusieurs bouches pour trouver "OP-75" ect.. .on va voir si ça fonctionne!!
Je me trompe peut-être?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B1:B500")) Is Nothing Then
Dim Var As String
 Var = Target.Value
 Sheets(Var).Activate
 Dim C As Range, DerLig As Integer
With Worksheets(1).Range(Target.Offset(0, 3).Address & ":" & Target.Address)
    Set C = .Find(OP - 78, LookIn:=xlValues)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
            DerLig = Sheets(Var).Range("D65536").End(xlUp).Row + 1
            Range(Target.Offset(0, 3).Address & ":" & Target.Address).Copy _
            destination:=Sheets(Var).Range("D" & DerLig)
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
    End With
    End If
End Sub

Si tu as une idée, je suis preneur?
A+

[jfontaine]

Bonjour,

Ce que tu recherche (op-78) c'est une chaîne de caractères ?

Tu n'as pas répondu à la question de Golonne

Code :

Set C = .Find(OP - 78, LookIn:=xlValues)

dans cette ligne code, tu recherches le résultat de l'opération :OP - 78 (où OP est une variable)
Je ne suis pas sur que ce soit ce que tu cherches à faire.

[rider18]

Re, Merci de m'aider.
Je pense que je doit faire une chaîne de caractère.

Si ce code"Set C = .Find(OP - 78, LookIn:=xlValues)" recherche un résultat je fais comment pour faire une recherche d'un texte?

[jfontaine]

pour du texte

Code :

Set C = .Find("OP - 78", LookIn:=xlValues)

[rider18]

Bonsoir, donc ce code est bon pour ce que je faire.
Mon code marche bien pour une recherche, mais je veux faire plusieurs recherches et copier-coller dans une autre plage.
Comment faire plusieurs recherches?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B1:B500")) Is Nothing Then
Dim Var As String
 Var = Target.Value
 Sheets(Var).Activate
 Dim C As Range, DerLig As Integer
With Worksheets(1).Range(Target.Offset(0, 3).Address & ":" & Target.Address)
    Set C = .Find(OP - 78, LookIn:=xlValues)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
            DerLig = Sheets(Var).Range("D65536").End(xlUp).Row + 1
            Range(Target.Offset(0, 3).Address & ":" & Target.Address).Copy _
            destination:=Sheets(Var).Range("D" & DerLig)
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
    End With
    End If
End Sub