Au secours, j'y comprends rien [VBA] Excel (Erreur 91)
Jesusdenazarrete
Messages postés102Date d'inscriptionjeudi 22 juillet 2010StatutMembreDernière intervention12 juin 2012
-
13 mars 2008 à 16:18
Jesusdenazarrete
Messages postés102Date d'inscriptionjeudi 22 juillet 2010StatutMembreDernière intervention12 juin 2012
-
14 mars 2008 à 08:36
Bonjour,
Donc voila je me bats avec ce programme depuis ce matin...
3 feuilles :
1 : Recherche qui contient les boutons et les champs de recherches on y colle les résultats à partir de la ligne 17
2 : Facturation qui contient les données
3 : Critères qui contient les colonnes qui alimentent mes menus déroulants
J'ai une erreur mais je ne sais pas d'ou elle vient (Erreur 91)
Public vligne As Long
-------------------------------------------------------------
Public Sub Recherche_initialize()
vligne = 17
'ici j'alimente le menu déroulant
worksheets("Critères").Activate
Dim vsecteur As Range
With Recherche.CCherchSecteur
vsecteur = Range("a1").End(xlDown).Address
.ColumnHeads = True
.RowSource = "a1:" & vsecteur
End With
'je fini d'alimenter
worksheets("Recherche").Activate
End Sub
--------------------------------------------------------------------------
Public Sub Bcherch_Click() (Cette partie fonctionne bien ne vous embettez pas)
Dim vtrouve As Range
With worksheets("Facturation")
.Activate
Set vtrouve = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Find(What:=Ccherch.Value)
If Nothing Is vtrouve Then
MsgBox "Non trouvé!"
Else
.Cells(vtrouve.Row, vtrouve.Column).EntireRow.Copy
worksheets("recherche").Activate
Cells(vligne, 1).Select
ActiveSheet.Paste
vligne = vligne + 1
End If
End With
End Sub
-------------------------------------------
Public Sub Ccherch2_Click() (c'est de la que viens le problème je pense)
Dim vtrouve As Range
If CCherchSecteur.Value <> "ESCADD" And CCherchSecteur.Value <> "SOCABU" And CCherchSecteur.Value <> "BCI" And CCherchSecteur.Value <> "SAS" And CCherchSecteur.Value <> "ECP" Then
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 13 mars 2008 à 16:27
Salut,
Aller un peu de couleur.
Il aurait utile de nous rapeler l'énoncé de l'erreur.
De plus tu peux nous dire sur quelle ligne apparait l'erreur
Variable objet ou variable bloc With non définie.
le plus souvent Cela apparait lorsqu'un objet n'est pas instancié
Public vligne As Long
'-------------------------------------------------------------
Public Sub Recherche_initialize()
vligne = 17
'ici j'alimente le menu déroulant
worksheets("Critères").Activate
Dim vsecteur As Range
With Recherche.CCherchSecteur
vsecteur = Range("a1").End(xlDown).Address
.ColumnHeads = True
.RowSource = "a1:" & vsecteur
End With
'je fini d'alimenter
worksheets("Recherche").Activate
End Sub<hr />'--------------------------------------------------------------------------
'(Cette partie fonctionne bien ne vous embettez pas)
Public Sub Bcherch_Click()
Dim vtrouve As Range
With worksheets("Facturation")
.Activate
Set vtrouve = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Find(What:=Ccherch.Value)
If Nothing Is vtrouve Then
MsgBox "Non trouvé!"
Else
.Cells(vtrouve.Row, vtrouve.Column).EntireRow.Copy
worksheets("recherche").Activate
Cells(vligne, 1).Select
ActiveSheet.Paste
vligne = vligne + 1
End If
End With
End Sub<hr />
Public Sub Ccherch2_Click() '(c'est de la que viens le problème je pense)
Dim vtrouve As Range
If CCherchSecteur.Value <> "ESCADD" And CCherchSecteur.Value <> "SOCABU" And CCherchSecteur.Value <> "BCI" And CCherchSecteur.Value <> "SAS" And CCherchSecteur.Value <> "ECP" Then
Jesusdenazarrete
Messages postés102Date d'inscriptionjeudi 22 juillet 2010StatutMembreDernière intervention12 juin 2012 14 mars 2008 à 08:21
Re bonjour et merci de vous etre penchés sur le problème...
J'ai donc repris les couleurs (c'est vrai que c'est plus clair ;))
Je vais vous indiquer en Jaune ou sont les erreurs et de quel type elles sont...
Public vligne As Long
'------------------------------------------------------------- Public Sub Recherche_initialize()
vligne = 17
'ici j'alimente le menu déroulant
worksheets("Critères").Activate
Dim vsecteur As Range
With Recherche.CCherchSecteur
vsecteur = Range("a1").End(xlDown).Address (Erreur 91)
.ColumnHeads = True
.RowSource = "a1:" & vsecteur
End With
'je fini d'alimenter
worksheets("Recherche").Activate
End Sub<hr />'-------------------------------------------------------------------------- '(Cette partie fonctionne bien ne vous embettez pas) Public Sub Bcherch_Click()
Dim vtrouve As Range
With worksheets("Facturation")
.Activate
Set vtrouve = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Find(What:= Ccherch.Value)
If Nothing Is vtrouve Then
MsgBox "Non trouvé!"
Else
.Cells(vtrouve.Row, vtrouve.Column).EntireRow.Copy
worksheets("recherche").Activate
Cells(vligne, 1).Select
ActiveSheet.Paste
vligne = vligne + 1 End If
End With
End Sub<hr />
Public Sub Ccherch2_Click() '(c'est de la que viens le problème je pense)
Dim vtrouve As Range
If CCherchSecteur.Value <> "ESCADD" And CCherchSecteur.Value <> "SOCABU" And CCherchSecteur.Value <> "BCI" And CCherchSecteur.Value <> "SAS" And CCherchSecteur.Value <> "ECP" Then
Jesusdenazarrete
Messages postés102Date d'inscriptionjeudi 22 juillet 2010StatutMembreDernière intervention12 juin 2012 14 mars 2008 à 08:36
Re bonjour et merci de vous etre penchés sur le problème...
J'ai donc repris les couleurs (c'est vrai que c'est plus clair ;))
Je vais vous indiquer en Jaune ou sont les erreurs et de quel type elles sont...
Public vligne As Long
'------------------------------------------------------------- Public Sub Recherche_initialize()
vligne = 17
'ici j'alimente le menu déroulant
worksheets("Critères").Activate
Dim vsecteur As Range
With Recherche.CCherchSecteur
vsecteur = Range("a1").End(xlDown).Address (Erreur 91)
.ColumnHeads = True
.RowSource = "a1:" & vsecteur
End With
'je fini d'alimenter
worksheets("Recherche").Activate
End Sub<hr />'-------------------------------------------------------------------------- '(Cette partie fonctionne bien ne vous embettez pas) Public Sub Bcherch_Click()
Dim vtrouve As Range
With worksheets("Facturation")
.Activate
Set vtrouve = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Find(What:= Ccherch.Value)
If Nothing Is vtrouve Then
MsgBox "Non trouvé!"
Else
.Cells(vtrouve.Row, vtrouve.Column).EntireRow.Copy
worksheets("recherche").Activate
Cells(vligne, 1).Select
ActiveSheet.Paste
vligne = vligne + 1 End If
End With
End Sub<hr />
Public Sub Ccherch2_Click() '(c'est de la que viens le problème je pense)
Dim vtrouve As Range
If CCherchSecteur.Value <> "ESCADD" And CCherchSecteur.Value <> "SOCABU" And CCherchSecteur.Value <> "BCI" And CCherchSecteur.Value <> "SAS" And CCherchSecteur.Value <> "ECP" Then