[Excel] Erreur incongrue
Résolu
deniooo
Messages postés
36
Statut
Membre
-
deniooo Messages postés 36 Statut Membre -
deniooo Messages postés 36 Statut Membre -
Bonjour,
Voilà j'ai cette erreur :
Erreur d'execution '438'
"Propriété ou méthode non gérée par cette objet"
à ce point de mon code (simple au demeurant) :
nom = ActiveWorkbook.Name
Set plage = Application.Workbook(nom).Worksheets("Feuil1").UsedRange.Columns(colonne).cells
La variable colonne est renvoyée par une inbox.
Je ne comprends pas d'où celà peut venir..
la suite du code où plage est utilisée :
For Each cel In plage
i = i + 1
If (cells(i, numCol).Value <> "") Then
n = n + 1
cells(i, numCol).Value = ""
ListeMOE (cells(i, numCol))
End If
Next
Avez-vous une idée ôôhh fidéle lecteur ?!
Voilà j'ai cette erreur :
Erreur d'execution '438'
"Propriété ou méthode non gérée par cette objet"
à ce point de mon code (simple au demeurant) :
nom = ActiveWorkbook.Name
Set plage = Application.Workbook(nom).Worksheets("Feuil1").UsedRange.Columns(colonne).cells
La variable colonne est renvoyée par une inbox.
Je ne comprends pas d'où celà peut venir..
la suite du code où plage est utilisée :
For Each cel In plage
i = i + 1
If (cells(i, numCol).Value <> "") Then
n = n + 1
cells(i, numCol).Value = ""
ListeMOE (cells(i, numCol))
End If
Next
Avez-vous une idée ôôhh fidéle lecteur ?!
A voir également:
- [Excel] Erreur incongrue
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel trier par ordre croissant chiffre - Guide
4 réponses
bonjour,
il faut un s à Workbooks et c'est Sheets et non Worksheets
essaie une de ces deux syntaxes
Set plage = Application.Workbooks(nom).Sheets("Feuil1").UsedRange.Columns(colonne).Cells
Set plage = Application.Workbooks(nom).Sheets("Feuil1").Columns(colonne).Cells
A+.
il faut un s à Workbooks et c'est Sheets et non Worksheets
essaie une de ces deux syntaxes
Set plage = Application.Workbooks(nom).Sheets("Feuil1").UsedRange.Columns(colonne).Cells
Set plage = Application.Workbooks(nom).Sheets("Feuil1").Columns(colonne).Cells
A+.
Salut,
WorbookS avec un S. Tu appelles un élément de la collection Workbooks.
Set plage = Application.WorkbookS(nom).Worksheets("Feuil1").UsedRange.Columns(colonne).cells
I.
WorbookS avec un S. Tu appelles un élément de la collection Workbooks.
Set plage = Application.WorkbookS(nom).Worksheets("Feuil1").UsedRange.Columns(colonne).cells
I.
Erreur débile effectivement mais aprés correction il me sort une autre erreur :
Erreur 9 : "L'indice n'appartient pas à la sélection"
Pour info le code complet utile
Sub Testing()
parcoursColonnes ("A")
End Sub
Function parcoursColonnes(ByVal colonne As String)
Dim plage As Range
Dim cel As Range
Dim n As Long
i = 2
numCol = Columns(colonne).Column
nom = ActiveWorkbook.Name
Set plage = Application.Workbooks(nom).Worksheets("Feuil1").UsedRange.Columns("A").cells
n = 0
For Each cel In plage
i = i + 1
If (cells(i, numCol).Value <> "") Then
n = n + 1
cells(i, numCol).Value = ""
ListeMOE (cells(i, numCol))
End If
Next
parcoursColonnes = i
End Function
Function ListeMOE(ByVal cel As Range)
listeval = "DSI, RES, DSI&RES, BULL, DSI&BULL, Diginext, Autre"
cel.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=listeval
End With
End Function
Certainement une erreur béte mais je ne vois pas laquelle..
Erreur 9 : "L'indice n'appartient pas à la sélection"
Pour info le code complet utile
Sub Testing()
parcoursColonnes ("A")
End Sub
Function parcoursColonnes(ByVal colonne As String)
Dim plage As Range
Dim cel As Range
Dim n As Long
i = 2
numCol = Columns(colonne).Column
nom = ActiveWorkbook.Name
Set plage = Application.Workbooks(nom).Worksheets("Feuil1").UsedRange.Columns("A").cells
n = 0
For Each cel In plage
i = i + 1
If (cells(i, numCol).Value <> "") Then
n = n + 1
cells(i, numCol).Value = ""
ListeMOE (cells(i, numCol))
End If
Next
parcoursColonnes = i
End Function
Function ListeMOE(ByVal cel As Range)
listeval = "DSI, RES, DSI&RES, BULL, DSI&BULL, Diginext, Autre"
cel.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=listeval
End With
End Function
Certainement une erreur béte mais je ne vois pas laquelle..
Ahahahah ahah ah a... ah?....
Ok je vais me coucher.. Merci cependant de m'avoir monter moné tourderie.. Je pensais avoir laissé sheet(1)..
Probléme résolu je met le bon code si certains ont ce probléme :
Sub Testing()
parcoursColonnes ("A")
End Sub
Function parcoursColonnes(ByVal colonne As String)
Dim plage As Range
Dim cel As Range
Dim n As Long
i = 2
numCol = Columns(colonne).Column
nom = ActiveWorkbook.Name
Set plage = Application.Workbooks(nom).Sheets(1).UsedRange.Columns("A").cells
n = 0
For Each cel In plage
i = i + 1
If (cells(i, numCol).Value <> "") Then
n = n + 1
cells(i, numCol).Value = ""
ListeMOE (cells(i, numCol))
End If
Next
parcoursColonnes = i
End Function
Function ListeMOE(ByVal cel As Range)
listeval = "DSI, RES, DSI&RES, BULL, DSI&BULL, Diginext, Autre"
cel.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=listeval
End With
End Function
Ok je vais me coucher.. Merci cependant de m'avoir monter moné tourderie.. Je pensais avoir laissé sheet(1)..
Probléme résolu je met le bon code si certains ont ce probléme :
Sub Testing()
parcoursColonnes ("A")
End Sub
Function parcoursColonnes(ByVal colonne As String)
Dim plage As Range
Dim cel As Range
Dim n As Long
i = 2
numCol = Columns(colonne).Column
nom = ActiveWorkbook.Name
Set plage = Application.Workbooks(nom).Sheets(1).UsedRange.Columns("A").cells
n = 0
For Each cel In plage
i = i + 1
If (cells(i, numCol).Value <> "") Then
n = n + 1
cells(i, numCol).Value = ""
ListeMOE (cells(i, numCol))
End If
Next
parcoursColonnes = i
End Function
Function ListeMOE(ByVal cel As Range)
listeval = "DSI, RES, DSI&RES, BULL, DSI&BULL, Diginext, Autre"
cel.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=listeval
End With
End Function
