boucle avec si

Robert

XLDnaute Barbatruc

Repose en paix

• 9 Octobre 2009

• #2

Re : boucle avec si

Bonjour Tryssa, bonjour le forum,

Pas sûr d'avoir bien compris... Essaie ça :

Code:

Dim cel As Range
For Each cel In Range("C2:C" & Range("A65536").End(xlUp).Row)
    cel.FormulaR1C1 = "=IF(RC[-1]=""+"",RC[-2],-1*RC[-2])"
Next cel

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 9 Octobre 2009

• #3

Re : boucle avec si

Salut Robert, bonjour tryssa.🙂

C'est quoi une noobette ? 😕

 

Vote positif 0 Vote négatif

T

tryssa

Guest

• 9 Octobre 2009

• #4

Re : boucle avec si

Bonjour Robert,

J'ai essayé ta formule, mais elle est très longue à l'exécution.

Comment la modifier pour qu'elle s'arrête à la première cellule="" en colonne A ?

Merci encore 🙂

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 9 Octobre 2009

• #5

Re : boucle avec si

Bonjour le fil, bonjour le forum,

La solution que je t'ai proposée s'arrêtait déjà à la première cellule vide rencontrée en A. Je ne vois pas comment l'améliorer...

Code:

Dim cel As Range
For Each cel In Range("C2:C" & Range("[COLOR=red]A[/COLOR]65536").End(xlUp).Row)
    cel.FormulaR1C1 = "=IF(RC[-1]=""+"",RC[-2],-1*RC[-2])"
Next cel

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 9 Octobre 2009

• #6

Re : boucle avec si

Salut,

peut-être ne pas confondre "Do Until ... avec "Do While ..."

"Do Until..." : jusqu'à ce que ...
"Do While..." : tant que ...

Essaie

Code:

Dim i As Long
i = 2
Do [B]While[/B] Range("B" & i).Value <> ""
Range("C" & i).Value = "=IF(RC[-1]=""+"",RC[-2],-1*RC[-2])"
i = i + 1
Loop

Remarque -1*n change le signe de n. Si tu veux simplement un négatif, écris -n.

 

Vote positif 0 Vote négatif

T

tryssa

Guest

• 9 Octobre 2009

• #7

Re : boucle avec si

Merci à tous les deux.
J'ai testé les deux et elles se valent.
Ce sont mes fichiers qui sont énooOOOoooOOOrmes.

Je vous souhaite un excellent week-end et merci encore !
Bises

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 9 Octobre 2009

• #8

Re : boucle avec si

Bis,

si tes fichiers sont si énormes, pourquoi ne pas écrire les réponses plutôt que les formules (source de ralentissement) ?

Code:

For Each cel In Range("A2:A" & Range("A65536").End(xlUp).Row)
  If cel.Offset(, 1) = "+" Then cel.Offset(, 2) = -cel
Next

Remarque : je reprends le style de Robert. Le mien n'a d'intérêt que pour la distinction entre "While" et "Until".

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 9 Octobre 2009

• #9

Re : boucle avec si

Bonjour le fil, bonjour le forum,

Autre proposition je pense plus rapide avec AutoFill :

Code:

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
 
Set pl = Range("C2:C" & Range("A65536").End(xlUp).Row) 'définit la plage pl
Range("C2").FormulaR1C1 = "=IF(RC[-1]=""+"",RC[-2],-1*RC[-2])" 'place la formule en C2
Range("C2").AutoFill Destination:=pl 'recopie la formule dans la plage pl
End Sub

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 9 Octobre 2009

• #10

Re : boucle avec si

Bonsoir,

quand l'auto file, l'accident se produit plus vite 😉 !
Et ainsi ?

Code:

Sub Moins()
  Range("C2:C" & Range("A65536").End(xlUp).Row).FormulaR1C1 = _
      "=IF(RC[-1]=""+"",RC[-2],-1*RC[-2])"
End Sub

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 9 Octobre 2009

• #11

Re : boucle avec si

Bonsoir le fil, bonsoir le forum,

Bon sang ! mais c'est bien dur ! Bien vu Lii ! Comme disait Bruno sur un autre post : "pourquoi faire simple alors qu'on peut faire compliqué"...

 

Vote positif 0 Vote négatif