probleme de selection de cellule

[philh2008]

bonjour
quand je lance la macro il bloque sur la ligne de sélection des cellules
il me dit attendu expression

Sub ouverture_classeur()



Workbooks.Open ("C:\VBAPointeuse\porte101214.xlsx")

Derligne = Range("D1").End(xlDown).Row
Derligne1 = Range("H1").End(xlDown).Row

For I = 1 To Derligne
For j = 2 To Derligne1


If Range("D" & I).Value = Range("H" & j).Value Then

Workbooks.Open ("c:\VBAPointeuse" & "\" & Range("H" & j).Offset(0, -2).Value & Range("H" & j).Offset(0, -1).Value & (".xlsx"))
Workbooks("porte101214.xlsx").Activate
If Range("D" & I).Value = Range("H" & j).Value Then
Range("D" & I).Offset(0, -2).Value & Range("D" & I).Offset(0, -1).Value.Select '''il bloque sur cette ligne

Selection.Copy
Workbooks.Open("c:\VBAPointeuse" & "\" & Range("H" & j).Offset(0, -2).Value & Range("H" & j).Offset(0, -1).Value & (".xlsx")).Activate
Range("J1").Select
ActiveSheet.Paste
End If
End If

Next j
Next I

End Sub

 

[vgendron]

Re : probleme de selection de cellule

Bonjour

il y a un problème de syntaxe avec les .value

Range("D" & I).Offset(0, -2).Value & Range("D" & I).Offset(0, -1).Value.Select

à remplacer par

Range(Range("D" & I).Offset(0, -2), Range("D" & I).Offset(0, -1)).Select

 

[gosselien]

Re : probleme de selection de cellule

Bonjour,

comme souvent conseillé ici, tu devrais mettre un exemple non confidentiel et les chefs (pas moi donc) se pencheront sur le bébé; mais ta demande doit toujours la plus claire possible 🙂
P.

edit: c'est fait déjà 🙂 Bonjour à" Vgendron"

 

[philh2008]

Re : probleme de selection de cellule

merci cela fonctionne