Bonjour,

Je viens de confectionner une macro :

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
Sub Rempli_n°besoin()
'
' Rempli_n°besoin Macro
' Remplace les # des n° de besoin à partir de la "table" colonnes B & C
'
 ' Détermine le nombre de ligne du tableau
 Range("A4").Select
 Range(Selection, Selection.End(xlDown)).Select
 nomblignes = Selection.Rows.Count + 3
 
 '--------------------------------------------[  B] Détermine le numéro de besoin
 If Range("N5") = "Consommations sur Stocks" Then
 Range("T5").Value = "STOCKS"
 ElseIf Range("N5").Value = "Achats remboursés sur payes (Ex.HRG1)" Then
 Range("T5") = "HRG"
 Else
 Range("T5:T" & nomblignes).FormulaR1C1 = "=VLOOKUP(RC[-14],BDD!C[-18]:C[-17],2,FALSE)"
 End If
'------------------[/B]
Celle-ci fonctionne mais jai un soucis dans la partie qui est en gras. En effet, je souhaite que ma condition "SI" s'applique à toute les cellules de la colonne N et à toutes celles de la colonne T. J'ai (presque) tout essayé mais pas moyen d'étendre ma sélection.

Pouvez vous m'aider ?

Merci d'avance !
chloepllrdNouveau venu
Messages: 1Inscription: il y a 29 minutesVersion Excel: 2007 FR