Re : VBA regroupement par lot avec boucle et variable
Salut Papou
Ben oui je le concède, j'ai confondu colonne et ligne...
Je suis parvenu à trouver tout seul la solution avec une autre synthaxe.
Range("F65536").Select
If ActiveCell.Row = 30 Then Exit Sub
top:
Selection.End(xlUp).Select
Selection.End(xlUp).Select
ActiveCell.Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = "=+R[1]C"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=+R[1]C"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "PR__PA"
ActiveCell.Offset(0, -2).Select
If Not ActiveCell.Row = 30 Then GoTo top
C'est gratifiant d'arriver à faire fonctionner le bouzin, même si c'est du ultra basique ;-)
Bonne journée
Moof