Easy question je pense pour certain: coller une formule !!

[KINX]

Bonjour à tous,

je voudrais en fait tout simplement savoir comment appliquer une formule vba appliquée à une cellule sur tout une colonne
ex:
soit A et B 2colonnes :
Pour B1 : if range("A1").value = 3 then range("B1").value = 4
La question est comment appliquer cette fomule pour B2 par rapport à A2, B3 par rapoport à A3 etc etc...
MERCI BCP PAR AVANCE

Aurélien

 

[RENAUDER]

Re : Easy question je pense pour certain: coller une formule !!

Bonjour,
Pourquoi une formule VBA
En B1 : =SI(A1=3;4;"")

 Range([B1], [A65536].End(xlUp).Offset(0, 1)).Select
    Selection.FillDown
    Range("A1").Select

 

[mromain]

Re : Easy question je pense pour certain: coller une formule !!

bonjour KINX

à adapter et tester

For i = 1 to [COLOR=Red][B]5[/B][/COLOR]
     If Range("A" & i).Value = 3 Then Range("B" & i).Value = 4
Next i

edit: bonjour RENAUDER

a+

 

[mth]

Re : Easy question je pense pour certain: coller une formule !!

Bonjour,​

un essai :​

[LEFT]Sub macro1()
Dim derligne As Integer, i As Integer
derligne = Range("A65630").End(xlUp)
For i = 1 To derligne
 Range("B" & i) = Range("A" & i) + 1
Next i
End Sub[/LEFT]

@ +​

mth

Edit: sourire ... j'ai encore un métro de retard, mais bonjour tout le monde ​