Discussion :

[huître]

bonjour j'ai un probleme je voudrais inserer une formule excel dans une boucle en vba

par exemple
dans la feuille xxx
pour toutes les lignes pleine
dans la colonne ae
si ae1=ae2
alors mettre 0 sinon mettre 1 dans les lignes respectives de la colonne af ( j'aimerai la mettre sous la formule excel)

voila merci d'avance

[turbo_sophie]

je ne comprends pas très bien

pour toutes les lignes pleine

mais tu peux commencer avec ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Formule()
 
Dim rCell As Range
 
    For Each rCell In Range("AE2:AE100").Cells
         rCell.FormulaLocal = "=SI(" & rCell.Offset(-1, -1).Address & "=" & rCell.Offset(0, -1).Address & ";0;1)"
    Next rCell
 
 
End Sub

[huître]

alors merci pour ta réponse et il semble qu'elle fonctionne cela dit j'aimerai bien comprendre le

Code :

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

.address

alors les lignes pleines correspondent à toutes les lignes remplies enfaite je veux donner comme instruction "parcours la colonne jusqu'a ce que tu me trouve une cellule vide "
merci

[casefayere]

Bonsoir,
une autre solution sans boucle (plus rapide si tu manipules beaucoup de lignes)

Code :

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

1
2
3
4
5
6
7
Sub Formule()
 
Dim derlg  As Long
derlg = Range("AE" & Rows.Count).End(xlUp).Row
Range("AF1").FormulaR1C1 = "=IF(RC[-1]=R[1]C[-1],0,1)"
Range("AF1").AutoFill Destination:=Range("AF1:AF" & derlg), Type:=xlFillDefault
End Sub

[huître]

génial merci parcontre je vais être un peu chiant je voudrais savoir comment l'appliquer sur plusieur feuilles simultanement

j'utilise la formule suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Formule()
 
Dim derlg  As Long
Dim sh As Worksheet
 
For Each sh In Worksheets(Array("AAR35", "AAR", "RST", "PCH", "EXP DIF"))
 
derlg = sh.Range("AE" & Rows.Count).End(xlUp).Row
sh.Range("AF2").FormulaR1C1 = "=IF(RC[-1]=R[1]C[-1],0,1)"
sh.Range("AF2").AutoFill Destination:=sh.Range("AF1:AF" & derlg), Type:=xlFillDefault
Next sh
 
End Sub

pourquoi ça marche pas?

[casefayere]

Je n'ai pas vérifié pour le Array mais change cette ligne

Code :

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

derlg = sh.Range("AE" & Rows.Count).End(xlUp).Row

en

Code :

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

derlg = sh.Range("AE" & sh.Rows.Count).End(xlUp).Row