Dolichotis
XLDnaute Occasionnel
Bonjour !
Je viens de faire ma première vraie macro et là quand je l'exécute : erreur d'exécution 9 : l'indice n'appartient pas à la sélection.
Cette macro permet de prendre les informations dans une base de données et de les mettre dans l'outil pour permettre le calcul.
Je mets le bout de code...
Merci de votre aide !
Je viens de faire ma première vraie macro et là quand je l'exécute : erreur d'exécution 9 : l'indice n'appartient pas à la sélection.
Cette macro permet de prendre les informations dans une base de données et de les mettre dans l'outil pour permettre le calcul.
Je mets le bout de code...
Code:
Sub Ajout_composant()
' ajout_comp Macro
' Macro enregistrée le 07/05/2008 par
Range("A21:I21").Select
Selection.Copy
Rows("21:21").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Private Sub CommandButton2_Click()
'déclaration des variables
Dim i As Integer
Dim j As Integer
Dim DerL As Integer
Dim Nombrecomposants As Integer
'initialisation des variables
DerL = Workbooks(" essaiBase.xls ").Sheets("CI").Range("A" & (Feuil1.Rows.Count)).End(xlUp).Row
For i = 3 To DerL
Workbooks.Open Filename:="X:\Real\essaiBase.xls"
Windows("essaiOutil.xls").Activate
Nombrecomposants = DerL - i + 1
for j=1 to Nombrecomposants
Call Ajout_composant
next j
If (Workbooks("essaiBase.xls").Sheets("alpha").Range("B" & i) = Workbooks("essaiOutil.xls").Sheets("alpha").Range("C5")) Then
Range("A" & i, "B" & DerL).Select 'a verifier
'si code AD de l'outil = code AD de la base
Selection.Copy
Range("B" & (i + 2)).Select
ActiveSheet.Paste
Windows("essaiBase.xls").Activate
Range("C" & i, "B" & DerL).Select 'a verifier
Selection.Copy
Windows("essaiOutil.xls").Activate
Range("F" & (i + 2)).Select
ActiveSheet.Paste
Windows("essaiBase.xls").Activate
End If
Next
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Merci de votre aide !
Dernière édition: