Saleté de boucle !

Papou-net

XLDnaute Barbatruc

• 16 Novembre 2010

• #2

Re : Saleté de boucle !

Bonjour Jilde,

Peut-être comme ceci ?

Code:

Sub inverse()
For n = 1 To 100
  Range("g" & n) = StrReverse(Range("d" & n))
Next
End Sub

A présent, tu peux ôter ton bonnet d'âne !

Cordialement.

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 16 Novembre 2010

• #3

Re : Saleté de boucle !

Bonjour,

Nous sommes tous passés par là ...

Code:

Sub inverse()
Dim i As Integer
For i = 1 to 100
Range("g" & i ) = StrReverse(Range("d" & i))
Next i
End Sub

A +

 

Dernière édition: 16 Novembre 2010

Vote positif 0 Vote négatif

Jilde

XLDnaute Occasionnel

• 16 Novembre 2010

• #4

Re : Saleté de boucle !

MERCIIIIIIIIIIIII !!!!

IMPEC !!!

NICKEL CHROME !!!!

Bon, j'garde quand même mon bonet, ce sera ma punition ...

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Novembre 2010

• #5

Re : Saleté de boucle !

Bonjour à tous

Ou encore :

Code:

[B][COLOR=DarkSlateGray]Sub inverse()
Dim i&, Nb&, Dst$, Org$, Dat[COLOR=Red]()[COLOR=Black] [COLOR=DarkOrange]'Ajout suite à la remarque de Si...[/COLOR][/COLOR][/COLOR][/COLOR][/B][B][COLOR=DarkSlateGray]
  Org = "D1"
  Dst = "G1"
  Nb = 100
  Dat = Range(Org).Resize(Nb, 1).Value
  For i = 1 To Nb
    Dat(i, 1) = StrReverse(Dat(i, 1))
  Next i
  Range(Dst).Resize(Nb, 1).Value = Dat
End Sub[/COLOR][/B]

ROGER2327
#4535

Samedi 14 As 138 (Saint Pierre Bonnard, peintre des Phynances, SQ)
26 Brumaire An CCXIX
2010-W46-2T12:04:34Z

 

Dernière édition: 16 Novembre 2010

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 16 Novembre 2010

• #6

Re : Saleté de boucle !

salut

autre boucle

Code:

Sub inverse()
  Dim C As Range
  For Each C In Range("D1:D100")
    If C <> "" Then C.Offset(, 3) = StrReverse(C)
  Next 
End Sub

maintenant, si... le nombre de lignes est très important, passer par un tableau comme le fait ROGER2327, s'avère bien plus rapide.
Remarque (avec ma version limitée à 65000 lignes et des brouettes): plus rapide encore avec la déclaration de Dat en Tableau plutôt qu'en Variant, ainsi : Dat() !

 

Vote positif 0 Vote négatif

Jilde

XLDnaute Occasionnel

• 16 Novembre 2010

• #7

Re : Saleté de boucle !

Grand merci à tous pour vos réponses !!!

J'ai encore fais un grand pas en avant !!!!

Bon, j'espère juste ne pas être au bord d'un précipice ...

Vive le forum !!!

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Novembre 2010

• #8

Re : Saleté de boucle !

Re...

Si... à dit:

(…)
Remarque (avec ma version limitée à 65000 lignes et des brouettes): plus rapide encore avec la déclaration de Dat en Tableau plutôt qu'en Variant, ainsi : Dat() !

Cliquez pour agrandir...

Parfaitement exact ! Dans la précipitation, j'ai oublié cette parenthèse, qu'il faut ajouter…
Merci pour votre vigilance.
​

ROGER2327
#4537

Samedi 14 As 138 (Saint Pierre Bonnard, peintre des Phynances, SQ)
26 Brumaire An CCXIX
2010-W46-2T17:03:38Z

 

Vote positif 0 Vote négatif