Recherchev VBA avec données d'une autre feuille

Fermé

Vba
Feuille

flavinou7263 Messages postés 32 Date d'inscription mardi 9 février 2016 Statut Membre Dernière intervention 27 mars 2020 - 23 juin 2016 à 13:22
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 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

A voir également:

Vba 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
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Comment supprimer une feuille sur word - Guide
Feuille de pointage excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
23 juin 2016 à 13:56

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 mardi 9 février 2016 Statut Membre Dernière intervention 27 mars 2020
23 juin 2016 à 14:14

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 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > flavinou7263 Messages postés 32 Date d'inscription mardi 9 février 2016 Statut Membre Dernière intervention 27 mars 2020
Modifié par f894009 le 23/06/2016 à 15:09

Bonjour,

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

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

flavinou7263 Messages postés 32 Date d'inscription mardi 9 février 2016 Statut Membre Dernière intervention 27 mars 2020 > f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024
23 juin 2016 à 15:18

Cest fin ou déboggage

Re,

Quoitece ??

Discussions similaires

RECHERCHEV sur une autre feuille

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