Discussion :

[jacksparot]

Bonjour,

J'ai deux valeurs dans deux cases d'excel.(par exemple 1 et 2)
Je souhaite remplir une plage de donnée de la case A1 à Ax par exemple et Ax à A20. Sur l'intervalle A1 - Ax,je souhaite que 1 s'affiche et sur l'intervalle Ax-A20, le deux s'affiche sur toute les cases. J'aurais bien entendu entré la valeur de X dans une case quelconque!
Comment est-ce que je peux exprimer cela sur VBA excel?

Merci de votre aide!!

Jack

[mercatog]

Bonjour

un exemple en G1: "Val1", en H1: "Val2" et en I1: x

Code :

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

1
2
3
4
5
6
7
Dim n As Integer
 
n = Val(Range("I1").Value)
If n > 0 And n < 20 Then
    Range("A1:A" & n).Value = Range("G1").Value
    Range("A" & n + 1 & ":A20").Value = Range("H1").Value
End If