VBA Boucle

[Douane]

Salut à tous,

ça fait un moment que je tourne en rond. Dans une macro j'ai ceci :

Range("I2").Formula = "=F2&G2"
Range("H2") = Range("I2").Value

(Je copie pour obtenir la valeur de F2&G2 dans ma cellule et non pas =F2&G2 qui est dépendant des cellules en question...)

J'aimerais que ça fasse ça, mais pas que sur la ligne 2, sur les lignes 2 à 200 en l'occurence. Et je suis un peu perdu. Je ne comprend plus rien, trop d'excel tue l'esprit

Si vous aviez la gentilesse de m'éclairer...

Merci d'avance A+

 

[Guest]

Re : VBA Boucle

Bonjour,

Un classeur avec une feuille avec des données non sensibles serait le bienvenu pour comprendre excatement ce que tu veux.

Merci

 

[Douane]

Re : VBA Boucle

Bonjour,

Je n'arrive malheuresement pas à produire ça maintenant.

Ce que j'aimerais c'est :

Range("I2").Formula = "=F2&G2"
Range("H2") = Range("I2").Value

Range("I3").Formula = "=F3&G3"
Range("H3") = Range("I3").Value

Range("I4").Formula = "=F4&G4"
Range("H4") = Range("I4").Value

....

Range("I200").Formula = "=F200&G200"
Range("H200") = Range("I200").Value


Mais pas devoir le faire à la main

 

[RENAUDER]

Re : VBA Boucle

Bonjour,
Cela peut-être

 Range("I2:I200").Select
    Compteur = Selection.Rows.Count
    For i = 1 To Compteur
        ActiveCell.Offset(i - 1, 0).FormulaR1C1 = "=RC[-3]&RC[-2]"
        ActiveCell.Offset(i - 1, -1).Value = ActiveCell.Offset(i - 1, 0).Value
    Next i

 

[Guest]

Re : VBA Boucle

Re bonjour,

Sub Go()
    Dim i As Integer
    Dim c As Range
    For i = 2 To 200
        Set c = Range("I" & i)
        c.Formula = "=F" & i & "&G" & i
        Range("H" & i) = c.Value
    Next i
End Sub

 

[Douane]

Re : VBA Boucle

Merci bien, je test et donnerais des nouvelles.

*Edit ça a l'air tout bon merci beaucoup !