Discussion :

[sebeni]

Bonjour,
Je début en VBA et cette erreur 91 me fait tourner en bourrique je ne trouve pas l'erreur. Surtout que pendant un moment mon programme à fonctionné.

Voici mon CODE:

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
Dim cellvide    As Long
Dim celldepart  As Range

Worksheets("Buffer").Activate
Set celldepart = [A1]
cellvide = PremiereLigneVide(celldepart, xlByRows, xlNext)

Function PremiereLigneVide(CelluleDepart As Range, MonOrdre As XlSearchOrder, MaDirection As XlSearchDirection) As Long

Dim tmpPremLigne    As Long


    If MonOrdre = xlByRows Then
        tmpPremLigne = Columns(CelluleDepart.Column).Find("", CelluleDepart, , , MonOrdre, MaDirection).Row
        If (tmpPremLigne = 2) And IsEmpty(CelluleDepart(1, 1)) _
        Then
            PremiereLigneVide = 1
        Else
            PremiereLigneVide = tmpPremLigne
        End If
    Else
        tmpPremLigne = Columns(CelluleDepart.Column).Find("", After:=CelluleDepart, SearchOrder:=MonOrdre, SearchDirection:=MaDirection).Column
    End If
End Function

L'erreur apparait à la ligne en gras..
Qu'est ce qui se passe.

[SfJ5Rpw8]

moi j'ai du mal à comprendre ce que tu cherche ... avec ton instruction find("" ...

[ouskel'n'or]

Tu n'as pas plus compliqué pour connaître la première ligne vide ?

Code :

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

1
2
3
4
5
6
7
8
9
10
    DernièreLigne = ActiveSheet.UsedRange.Row
    DerniereLigne = Range("A1").CurrentRegion.End(xlDown).Row
    DerniereLigne = Range("A65535").End(xlUp).Row
    DerniereLigne = Range("A1").End(xlDown).Row
    DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
 
    DerniereColonne = ActiveSheet.UsedRange.Column
    DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
    DerniereColonne = Range("A1").End(xlToRight).Column
    DernièreColonne = Selection.CurrentRegion.End(xlToRight).Column

Et pour avoir la première ligne ou la première colonne vide, tu fais + 1
Edit
Allons, bbil, tu ne comprends pas un code aussi simple

[sebeni]

En fait je veux simplement chercher la premierère ligne vide en partant du haut de mon fichier.
Je veux pourvoir importer deux fichiers dans une feuille excel, l'un en dessous de l'autre.
Un des problème de recherche de ligne vide est que ça commence toujour pas la ligne "après la première" donc la première ligne reste vide. C'est pourquoi j'avais fais une usine a GAZ pour pas grand chose. Si vous avez des solutions avec explication si possible "car je débute pour rappel" c'est avec grand plaisir.

Merci