Recherchev VBA avec données d'une autre feuille
flavinou7263
Messages postés
32
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour
quelqu'un peut il me dire ce qui ne va pas dans le code suivant ?
Sub ajoutcoldaniel()
With Sheets("Synthese_Projet_Specialite")
Range("B1").Select
Selection.EntireColumn.Insert
Range("B7") = "Nature op."
Range("F1").Select
Selection.EntireColumn.Insert
Range("F7") = "Code chantier"
For i = 8 To derniereligne
Range("B" & i) = Application.WorksheetFunction.VLookup(Range("D" & i).Value, Sheets("Rapport48_Origine").Range("J8:K30000"), 2, False)
Range("F" & i) = Application.WorksheetFunction.VLookup(Range("E" & i).Value, Sheets("Rapport48_Origine").Range("L8:AH30000"), 23, False)
Next i
End With
End Sub
J'ai une erreur dans ma boucle for
Merci
quelqu'un peut il me dire ce qui ne va pas dans le code suivant ?
Sub ajoutcoldaniel()
With Sheets("Synthese_Projet_Specialite")
Range("B1").Select
Selection.EntireColumn.Insert
Range("B7") = "Nature op."
Range("F1").Select
Selection.EntireColumn.Insert
Range("F7") = "Code chantier"
For i = 8 To derniereligne
Range("B" & i) = Application.WorksheetFunction.VLookup(Range("D" & i).Value, Sheets("Rapport48_Origine").Range("J8:K30000"), 2, False)
Range("F" & i) = Application.WorksheetFunction.VLookup(Range("E" & i).Value, Sheets("Rapport48_Origine").Range("L8:AH30000"), 23, False)
Next i
End With
End Sub
J'ai une erreur dans ma boucle for
Merci
1 réponse
-
Bonjour,
les ranges a l'interieur du With doivent etre precedes d'un point
Sub ajoutcoldaniel() With Sheets("Synthese_Projet_Specialite") .Range("B1").Select Selection.EntireColumn.Insert .Range("B7") = "Nature op." .Range("F1").Select .Selection.EntireColumn.Insert .Range("F7") = "Code chantier" For i = 8 To derniereligne .Range("B" & i) = Application.WorksheetFunction.VLookup(.Range("D" & i).Value, Sheets("Rapport48_Origine").Range("J8:K30000"), 2, False) .Range("F" & i) = Application.WorksheetFunction.VLookup(.Range("E" & i).Value, Sheets("Rapport48_Origine").Range("L8:AH30000"), 23, False) Next i End With End Sub
derniereligne n'est pas defini !!!
Sur quelle ligne est l'erreur ??
