Recherchev VBA avec données d'une autre feuille

Vba
Feuille

flavinou7263 Messages postés 32 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 23 juin 2016 à 15:31

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

Afficher la suite

A voir également:

Recherchev dans une autre feuille
Excel reporter des données sur une autre feuille avec conditions - Forum Excel
Feuille de score belote excel - Forum Excel
Recherchev texte ✓ - Forum Excel
Bruler une feuille de laurier - Guide
Recherchev + somme plusieurs lignes ✓ - Forum Excel

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 ??

flavinou7263 Messages postés 32 Date d'inscription Statut Membre Dernière intervention

Dernière ligne fait référence à une fonction que je n'ai pas mis mais qui est correcte
Mon erreur était dans les deux lignes de codes à l'intérieur de la boucle for
J'ai teste ton code. En enlevant les points devant les mots sélection cest ok mais tjr une erreur au niveau de la ligne avant next i

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > flavinou7263 Messages postés 32 Date d'inscription Statut Membre Dernière intervention

Bonjour,

Ok, mais quelle erreur ????????????????????????????????????????????????

Si valeur(s) cherchees n'existent pas erreur 1004, normal

flavinou7263 Messages postés 32 Date d'inscription Statut Membre Dernière intervention > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

Cest fin ou déboggage

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > flavinou7263 Messages postés 32 Date d'inscription Statut Membre Dernière intervention

Re,

Quoitece ??

Discussions similaires

Comparer deux colonnes de deux feuilles excel avec mise jour

Comment afficher le contenue d'une feuille excel userform Vba

chercher une valeur dans plusieurs feuilles excel

Impression PDF multiples depuis onglets Excel

vérifier si feuille existe

Macro importer des données d'un classeur externe

Votre réponse

Discussions similaires