formule excel dans un code vb

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

je ne comprends pas très bien

Citation:

---

pour toutes les lignes pleine

---

mais tu peux commencer avec ceci

Code:

---

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

---

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

Code:

---

.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

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

Code:

---

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

---

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:

---

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?

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

Code:

---

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

---

en

Code:

---

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

---

apparemment ça ne change rien lors du debogage l'erreur semble provenir de cette ligne

Code:

---

sh.Range("AF2").AutoFill Destination:=sh.Range("AF1:AF" & derlg), Type:=xlFillDefault

---

donc voilà si ça peut t'aider

Exact mais tu as mal regardé mon code :

Code:

---

Range("AF1").AutoFill Destination:=Range("AF1:AF" & derlg), Type:=xlFillDefault

---

a oui oups je suis un peu trop distrait je pense lol

un dernier truc donc en fonction de ce que je viens de faire c'est à dire l'affecation d'un 0 ou d'un 1 j'aimerais bien faire un tri dans cette colonne et selectionner les lignes contenant les 0 pour les supprimer d'un coup

car quand j'utilise cette procedure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub cleaner() Dim sh As Worksheet Dim Ligne As Long For Each sh In Worksheets(Array("AAR35", "AAR", "RST", "PCH", "EXP DIF")) Ligne = sh.Range("ae" & sh.Rows.Count).End(xlUp).Row Do Until Ligne = 1 If Application.CountIf(sh.Columns("AE:AE"), sh.Range("ae" & Ligne).Value) > 1 Then sh.Range("a" & Ligne).EntireRow.Delete End If Ligne = Ligne - 1 Loop Next End Sub

---

les lignes se supprimes les unes apres les autres et donc la procédure est beaucoup plus longue à charger (2 min)

donc si je selectionne une plage à partir d'un critere et que je supprime les lignes ou la plage d'un coup je pense que je vais gagner en temps

et le tri me permettrait de les regrouper pour faire un

Code:

---

do while ....loop

---

Si tu fais un tri, la formule ne donnera plus le même résultat, il faut donc passer par les valeurs, donc après cette ligne :

Code:

---

Range("AF1").AutoFill Destination:=Range("AF1:AF" & derlg), Type:=xlFillDefault

---

, tu remplaces par les valeurs et tu fais ton tri ensuite, soit

Code:

---

Range("AF1:AF" & derlg) = Range("AF1:AF" & derlg).value

---

okok
je vais essayer de faire un tri pour voir ce que ca donne

Sans trier, essayes ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

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 Range("AF1:AF" & derlg) = Range("AF1:AF" & derlg).Value Range("AE1:AF1").AutoFilter ActiveSheet.Range("$AE$1:$AF$" & derlg).AutoFilter Field:=2, Criteria1:="0" ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).Delete   End Sub

---

mais c'est genial ca
par contre comme je fais pour les appliquer à toute les feuilles

Je viens de m'apercevoir qu'en fin de compte, tu cherches à éliminer les doublons, dis-moi si j'ai tort, et si tu veux vraiment éliminer les doublons, il va falloir tout changer car la procédure ne pourra pas aller, commences par faire une recherche sur le site pour la gestion des doublons.

Dis-moi tout

oui effectivement c'est une suppression de doublons mais le problème c'est que bizarrement ca semble marché

enfaite j'ai deja été dans la rubrique gestion des doublons mais le problème c'est que toutes ces procédures sont longues a chargé dans une feuille contenant des milliers de donnée

je voudrais simplement une application qui supprime les doublons non pas ligne par ligne comme celle de la rubrique mais plutôt une procédure qui supprime les doublons (lignes) par tas d'où la formule excel avec 0 et 1 et la sélection des plage contenant dans la colonne AF le 0

bon visiblement je ne vois pas le problème dans ce que tu m'aas dit précedemment il supprime en effet bien les doublons ceci dit un problème persiste:

la procédure me supprime automatiquement la 1er ligne