Discussion :

[boulser]

Bonjour à Tous,

J'ai une macro qui fonctionne bien. Le seul petit problème, est que les données d'une feuille que je veux copier dans une autre se copie toujours en A1:C1. Je voudrais qu'elles se copient dans la première ligne vide mais je n'arrive pas à adapter la ligne de code: Sheets("Vus").Range("A1:C1") = Selection.Value.

Voici le code complet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub TrouverVoisinNonVus()
    Dim Cellule As Range
    Dim Art As String
    Art = InputBox("Article à rechercher")
    With ActiveSheet.Range("A1:A" & [A65000].End(xlUp).Row)
        Set Cellule = .Find(Art, Lookat:=xlWhole)
        If Not Cellule Is Nothing Then
            firstAddress = Cellule.Address
            Do
                Cellule.Offset(0, 0).Select
                Selection.Resize(Selection.Rows.Count, _
                    Selection.Columns.Count + 3).Select
                Selection.Copy
                Sheets("Vus").Range("A1:C1") = Selection.Value
                Selection.Delete Shift:=xlUp
                Exit Sub
                Set Cellule = .FindNext(Cellule)
            Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
        End If
    End With
    MsgBox "Rien trouvé"
End Sub

Quelqu'un peut-il m'aider, Merci

[mikhaelN]

Hello

Ca devrait marcher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub TrouverVoisinNonVus()
    Dim Cellule As Range
    Dim Art As String
    Art = InputBox("Article ? rechercher")
    With ActiveSheet.Range("A1:A" & [A65000].End(xlUp).Row)
     ' cellule = contient l'article recherche
    Set Cellule = .Find(Art, Lookat:=xlWhole)
        If Not Cellule Is Nothing Then
            'firstAddress = 1ere ligne vierge dans feuille "Vus"
            firstaddress = Sheets("Vus").Range("A65000").End(xlUp).Row + 1
            'Copy  colonnes "A:D"  dans feuille vus (1ere ligne vierge"          
            Cellule.Resize(Cellule.Rows.Count, _
            Cellule.Columns.Count + 3).Copy Sheets("Vus").Cells(firstaddress, 1)
        Else
            'Si article non trouve
            MsgBox "Article non trouv?"
 
        End If
    End With
End Sub

[jerome.vaussenat]

Salut boulser

Voici une proposition de code.

Pour ne pas trop modifier ton code, je suis passé par une fonction qui détermine la première ligne vide de la feuille "Vus".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub TrouverVoisinNonVus()
    Dim Cellule As Range
    Dim Art As String
    Dim ligne_insert As Integer
    Art = InputBox("Article à rechercher")
    With ActiveSheet.Range("A1:A" & [A65000].End(xlUp).Row)
        Set Cellule = .Find(Art, Lookat:=xlWhole)
        If Not Cellule Is Nothing Then
            firstAddress = Cellule.Address
            Do
                Cellule.Offset(0, 0).Select
                Selection.Resize(Selection.Rows.Count, _
                    Selection.Columns.Count + 3).Select
                Selection.Copy
 
                'avec cette ligne on va déterminer la première ligne vide de la feuille "Vus
                ligne_insert = trouve_vide()
                With Sheets("Vus")
                    .Range(.Cells(ligne_insert, 1), .Cells(ligne_insert, 4)) = Selection.Value
                End With
                Selection.Delete Shift:=xlUp
                Exit Sub
                Set Cellule = .FindNext(Cellule)
            Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
        End If
    End With
    MsgBox "Rien trouvé"
End Sub
 
 
Function trouve_vide()
    'cette fonction permet de parcourir le tableau "Vus" pour trouver la première ligne vide.
    'Pour savoir si une ligne est vide le code regarde la 4 premières colonnes
    Dim ligne As Integer
    Dim nb_données As Integer
 
    ligne = 1
 
    nb_données = 1
    Do Until nb_données = 0
        With Sheets("Vus")
            nb_données = Application.WorksheetFunction.CountA(.Range(.Cells(ligne, 1), .Cells(ligne, 4)))
        End With
        ligne = ligne + 1
    Loop
    trouve_vide = ligne - 1
    End Function

En espérant que cela fasse ce que tu veux.

Edit : mais je n'ai pas été le plus rapide ...

[boulser]

Grand merci, avec la function, tout fonctionne à merveille