correction code vba

[BIGOKOU]

bonjour je viens d ecrire un code mais lorsque je le lance j ai un probleme qui peut me le corriger avec des explication ca serait cool merci 🙂

 

[Roland_M]

Re : correction code vba

bonjour,

ce serait bien si tu nous donnez déjà tes explications !?
quel est le problème ?

car on ne peut pas toujours exécuter le code sur un autre ordi sans savoir !

 

[Gelinotte]

Re : correction code vba

Bonjour,

Avais-tu essayé d'exécuter en pas-à-pas (touche F8) ??

Sub Macro3()
'
' Macro3 Macro
'
Dim NN As Integer
NN = Range("A65536").End(xlUp).Row
'
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],GLOBAL!R1:R1048576,4,0)"
    Selection.AutoFill Destination:=Range("B1:B" & NN)
    Range("B1:B" & NN).Select
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],GLOBAL!R1:R1048576,10,0)"
    Selection.AutoFill Destination:=Range("C1:C" & NN)
    Range("C1:C" & NN).Select
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],GLOBAL!R1:R1048576,2,0)"
    Range("D1").Select
    Selection.AutoFill Destination:=Range("D1:D" & NN)
    Range("D1:D" & NN).Select
End Sub

NN n'est pas déclaré et n'a pas de valeur.
Aussi (Range("D1:" & NN).Select) ne peut pas fonctionner le "Range" n'est pas complet.

Teste cela. 8- ))

G

 

[BIGOKOU]

Re : correction code vba

Merci ca fonction sauf a la fin pour le range d1:d ca bloque !!!

 

[Gelinotte]

Re : correction code vba

Bonjour,

Le code que j'ai mis au post #3 fonctionne sur ma machine.

Qu'est qui ne fonctionne pas exactement ? Que se passe-t-il ou ne se passe pas ?

À moins que ce soit l'action de que espère qui n'est pas claire.

G

 

[BIGOKOU]

Re : correction code vba

si ca marche merci niquel pouvais m aider sur une autre que j ai faite plus recement je n ai pas eu d aide snif lol