Discussion :

[Lyndils]

Bonjour,

Je suis bloqué lors de la selection de celulle.

Il faut que je sélectionne l'ensemble des valeur colonnes en enlevant la première lignes.

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
Sub RecuperationDesDonnees()
        Dim Chemin As String, Fichier As String, Nom As String
        Dim NewLig As Long, N As Long
        Dim Repertoire As FileDialog
        Dim Wb As Workbook
        Dim Plage
         
        Application.ScreenUpdating = False
        Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
        Repertoire.Show
        Chemin = Repertoire.SelectedItems(1)
         
        Fichier = Dir(Chemin & "\" & "*.xls")
        Do While Fichier <> ""
            Set Wb = Workbooks.Open(Chemin & "\" & Fichier)
            With Wb.Worksheets(1)
                ActiveSheet.UsedRange.Select
                N = .Cells(.Rows.Count, 1).End(xlUp).Row
                Plage = .Range("A1").Resize(N, 7)
            End With
         
            Nom = Wb.Name
            Wb.Close False
            Set Wb = Nothing
         
            With ThisWorkbook.Worksheets("Feuil1")
                NewLig = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
                .Range("D" & NewLig).Resize(N, 7).Value = Plage
                .Range("A" & NewLig).Resize(N) = Mid(Nom, 1, 14)
                .Range("B" & NewLig).Resize(N) = Mid(Nom, 16, 8)
                .Range("C" & NewLig).Resize(N) = Mid(Nom, 27, 2)
            End With
            Fichier = Dir()
        Loop
        Set Repertoire = Nothing
        MsgBox "Terminé"
        End Sub

Je pense que le problème ce situe dans:

Code :

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

N = .Cells(.Rows.Count, 1).End(xlUp).Row

Comment lui dire d'enlever la première ligne.

Merci d'avance pour vos réponses.

Lyndils

[Quentin77170]

Salut à toi,

Je n'ai pas vraiment le temps de regarder dans le détail, mais je pense que tu as un problème au niveau de :

Code :

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

Plage = .Range("A1").Resize(N, 7)

Ta plage étant une Range (donc un objet), pour lui assigner une range il faut utiliser :

Code :

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

Set Plage = .Range("A1").Resize(N, 7)

Quentin

[joe.levrai]

Bonjour,

sans entrer dans le débat du "pourquoi tu veux sélectionner"

quand tu as besoin de retirer la ligne supérieur d'une plage "Resizée", le principe est :

- de diminuer le resize d'une ligne
- de prendre cette plage resizée, décalée d'une ligne

essaye ça pour comprendre

Code :

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

1
2
3
4
' A1:B10
MsgBox Cells(1, 1).Resize(10, 2).Address
' A2:B10
MsgBox Cells(1, 1).Resize(9, 2).Offset(1, 0).Address

[Lyndils]

Oh! Merci ça fonctionne!


On peut mettre en résolu!

Merci encore!

Lyndils

[joe.levrai]

C'est à toi de marquer ton sujet à résolu ce sujet t'appartient