Bonjour, voici un bout de code qui permet de chercher une valeur dans le classeur (Acq et imput 2007.xls) et :
- Si elle existe copier la cellule située 2 colonnes à droite et la coller dans un
un autre classeur (BILAN 2007.xls) sous les données.
- Si elle n'existe pas coller dans un autre classeur (BILAN 2007.xls) sous les
données : 0
Remarque : cette valeur n'existe qu'une seule fois ou est absente.
Dim b As Byte
Dim avip(10) As Variant ' exemple NPBE
Dim plgacqui(10) As String 'exemple B225
Dim ded(10) As String 'exemple DOM
For b = 0 To 10
Windows("Acq et imput 2007.xls").Activate
Worksheets("acqui").Select
Cells.Find(What:=avip(b), After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If Selection.Value = avip(b) Then
ActiveCell.Offset(0, 2).Select
Selection.Copy
Windows("BILAN 2007.xls").Activate
Worksheets(ded(b)).Select
Range(plgacqui(b)).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Else
Windows("BILAN 2007.xls").Activate
Worksheets(ded(b)).Select
Range(plgacqui(b)).End(xlDown).Offset(1, 0).Select
Cells.Value = 0
End If
End If
Mon probléme est que l'instruction Cells.Find(What:=avip(b),... me renvoi
systematiquement une erreur d'execution '91' Variable objet ou variable de bloc with non defini.
Pouvez vous m'aider ?
- Si elle existe copier la cellule située 2 colonnes à droite et la coller dans un
un autre classeur (BILAN 2007.xls) sous les données.
- Si elle n'existe pas coller dans un autre classeur (BILAN 2007.xls) sous les
données : 0
Remarque : cette valeur n'existe qu'une seule fois ou est absente.
Dim b As Byte
Dim avip(10) As Variant ' exemple NPBE
Dim plgacqui(10) As String 'exemple B225
Dim ded(10) As String 'exemple DOM
For b = 0 To 10
Windows("Acq et imput 2007.xls").Activate
Worksheets("acqui").Select
Cells.Find(What:=avip(b), After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If Selection.Value = avip(b) Then
ActiveCell.Offset(0, 2).Select
Selection.Copy
Windows("BILAN 2007.xls").Activate
Worksheets(ded(b)).Select
Range(plgacqui(b)).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Else
Windows("BILAN 2007.xls").Activate
Worksheets(ded(b)).Select
Range(plgacqui(b)).End(xlDown).Offset(1, 0).Select
Cells.Value = 0
End If
End If
Mon probléme est que l'instruction Cells.Find(What:=avip(b),... me renvoi
systematiquement une erreur d'execution '91' Variable objet ou variable de bloc with non defini.
Pouvez vous m'aider ?