Appliquer la même macro sur chaque ligne

[STEFCAPU]

Bonjour,

Tout d'abord, merci à tous ceux qui prendront le temps de lire ma question.
Je cherche à réaliser une macro qui s'appliquerait a chaque ligne d'une même colonne tour à tour.

Le fichier concerne mon entreprise, c'est pourquoi je préfère vous poster un exemple très simple


Range("C1").Select
ActiveCell.FormulaR1C1 = "=+CONCATENATE(RC[-2],RC[-1])"
Range("C2").Select

End Sub

<Attention, en réalité la macro reprend plusieurs feuilles et des calculs complexes (je ne peux pas étirer ma formule malheureusement)
Comment faire pour que cette formule s'applique en C1 jusqu'à ce que C soit vide ?

For next ?
For each in ?

Que mettre après "next" ?

Merci beaucoup,
Cordialement,

 

[camarchepas]

Re : Appliquer la même macro sur chaque ligne

Bonjour ,

Une solution :

    'Trouve la dernière ligne selon une colonne de référence , arbitrairement j'ai pris A 
    lignefin = range("A" & rows.count).end(xlup).row
    Range("C1").FormulaR1C1 = "=+CONCATENATE(RC[-2],RC[-1])"
    Range("C1").AutoFill Destination:=Range("C1:C" & ligneFin)

 

[Pierrot93]

Re : Appliquer la même macro sur chaque ligne

Bonjour,

essaye peut être ceci :

Range("C1", Cells(Rows.Count, 3).End(xlUp)).FormulaR1C1 = "=+CONCATENATE(RC[-2],RC[-1])"

bon après midi
@+

 

[JBARBE]

Re : Appliquer la même macro sur chaque ligne

bonjour à tous,

La formule va être copiée de la cellule C1 à la cellule C65536( si moins de 65536 lignes (c'est long)>> changer)

Changer le Nom de la feuille s'il a lieu ( ici : Feuil1)

Option Explicit

Sub inserer()
Dim i As Long
Application.ScreenUpdating = False
Sheets("Feuil1").Select
For i = 1 To 65536
Cells(i, 3).FormulaR1C1 = "=+CONCATENATE(RC[-2],RC[-1])"
Next i
Application.ScreenUpdating = True
End Sub

bonne journée