Discussion :

[jejeaunet75]

Bonjour à tous,

Je me permets de revenir vers vous afin d'avoir de plus amples informations sur une procédure à suivre.

Dans l'un de mes fichier, je réalise par le biais de vba des vlookup me permettant de copier coller des données à partir d'une valeur de référence entre deux feuilles : Cf. code ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
   For i = 2 To DERNIERELIGNEUAI
 
    Range("C" & i).Value = Objmel
    Range("D" & i).Value = "Aucun"
    Range("E" & i).Value = Rep
    Range("F" & i).Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],Avenant!C[-5]:C[-4],2,FALSE)"
    Range("G" & i).Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[3],'Carte des formations'!C[-6]:C[-5],2,FALSE)"
    Range("H" & i).Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],TEST!C[-7]:C[-5],2,FALSE)"
 
    Next
 
    Range("F2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    MsgBox "L'import des données de fichier dans le tableau Excel a fonctionné", vbCritical + vbOKOnly, "Répartition..."
End Sub

Une boucle serait plus pratique puisque cela m'éviterai de passer par deux étapes : recherchev + copier coller valeur.

Je me permets donc de vous solliciter afin d'obtenir votre aide.

D'avance je vous remercie.

[Marc-L]

Bonjour, bonjour !

Aucun rapport avec du Général VBA mais c'est bien spécifique à Excel !
Vaudrait mieux alors poster dans le forum dédié au VBA Excel …

Au passage, une boucle est souvent plus longue qu'une formule interne à Excel !


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[jejeaunet75]

Tres bien je fais le nécessaire.

Merci pour l'information