VBA - Fonction qui ne marche plus du jour au lendemain ?

G

Guest

Guest

• 18 Janvier 2014

• #2

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

Bonjour,

Si tu fais référence à un classeur qui n'est pas actif, et une feuille non active, il faut d'une manière ou d'une autre que VBA sache sur quelle plage de quelle feuille de quel Classeur travailler.

Code:

    With Workbooks("FICHIER.xlsx").Sheets("NomFeuille")
        Dim LigneVide As Long
        LigneVide = .Columns("B").Find("*", .Range("B1"), , , xlByRows, xlPrevious).Row + 1
    End With

Ne pas oublier les points (.) devant Columns et Range

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Janvier 2014

• #3

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

Bonjour.
À tout hasard, ajouter les 3ième et 4ième paramètres xlValues, xlWhole.
Peuvent avoir été changés manuellement dans la boîte Rechercher.

 

Vote positif 0 Vote négatif

P

PoOoOoZ

Guest

• 18 Janvier 2014

• #4

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

Merci pour vos réponses si rapides !

Hasco -> Je préfère ne pas rajouter le nom de la feuille car j'en recrée une pour chaque nouveau mois, ça prend en compte la page ouverte dans le fichier en question. Quand je rajoute les points devant Range ou Columns j'ai une erreur 438 "Propriété ou méthode non gérée par cet objet". (J'ai Excel 2011 Mac pour info).

Dranred -> C'était effectivement un problème venant de la recherche ! Quand "Classeur" est sélectionné dans le formulaire de recherche, c'est la que ça bug... Que devrais-je mettre en paramètre "xlValues" & "xlWhole" ?

Merci encore.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 18 Janvier 2014

• #5

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

Bonjour et bienvenue sur XLD

comme ceci peut-être

Sub test()
With ThisWorkbook
Dim LigneVide As Long
'LigneVide = Sheets(1).Columns("B").Find("*", Range("B1"), , , xlByRows, xlPrevious).Row + 1
LigneVide = Sheets(1).Columns("B").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row + 1
End With
MsgBox LigneVide
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Janvier 2014

• #6

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

xlValues, xlWhole sont les valeurs à mettre, non les noms des paramètres. Leurs noms sont LookIn et LookAt

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Janvier 2014

• #7

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

Re,

Quand je rajoute les points devant Range ou Columns j'ai une erreur 438 "Propriété ou méthode non gérée par cet objet". (J'ai Excel 2011 Mac pour info).

Cliquez pour agrandir...

Pour sûr, si tu ne spécifie pas de feuille.

Et si tu ne mets pas les . alors ta Structure With Workbooks("FICHIER.XLSX")...END WITH ne sert à rien pour la méthode FIND.

La recherche se fera sur la feuille Active du classeur Actif.

A+

 

Vote positif 0 Vote négatif

P

PoOoOoZ

Guest

• 18 Janvier 2014

• #8

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

Donc je peux retirer mes WITH sans que cela influe sur ma fonction ?
Merci Dranreb & gilbert_RGI je testerais ça.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Janvier 2014

• #9

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

Re,

Donc je peux retirer mes WITH sans que cela influe sur ma fonction

Cliquez pour agrandir...

Si ton FIND se fait toujours sur la feuille active du classeur actif alors la réponse est OUI
A moins que tu aies d'autres actions sur le classeur concerné par le WITH...END WITH.

A+

 

Vote positif 0 Vote négatif

P

PoOoOoZ

Guest

• 18 Janvier 2014

• #10

Re : VBA - Fonction qui ne marche plus du jour au lendemain ?

Ah non c'est un autre classeur, mais c'est la feuille active de l'autre classeur.
Je laisse tel quel alors.
Encore merci pour votre aide.

 

Vote positif 0 Vote négatif