B
Benlo
Guest
Bonjour tout le monde,
J'ai dans une feuille, en A2, A3, A4 etc... un code dans chaque cellule. Je cherche à faire une macro en boucle qui viendra mettre en B2, B3, B4 etc... une formule tant que la cellule A ne sera pas vide.
Note: Je ne sais pas d'avance combien de codes j'aurai de listés dans la colonne A.
Voici le bout de code que je tente d'adapter :
Sub Macro14()
'
Sheets('RapportCodesLettres').Range('A2').Select
'
'Déclaration des variables
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
'
'Détermine où sera la cellule courante
Set CelluleCourante = Sheets('RapportCodesLettres').Range('A2')
'
'Cette boucle s'exécutera tant que la cellule ne sera pas vide
Do While Not IsEmpty(CelluleCourante)
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
'
If CelluleCourante.Value <> '' Then
'
ActiveCell.Offset(0, 1).FormulaR1C1 = _
'=SUMPRODUCT((Données!R4C6:R11000C6=RC1)*(Données!R4C48:R11000C48=''sel'')*(Données!R4C40:R11000C40))'
'
End If
'
Set CelluleCourante = CelluleSuivante
Loop
End Sub
Quand j'exécute cette macro, la formule se met bien en B1 mais la macro s'arrête même si j'ai d'autre codes en A3, A4 etc...
Merci de votre aide !
J'ai dans une feuille, en A2, A3, A4 etc... un code dans chaque cellule. Je cherche à faire une macro en boucle qui viendra mettre en B2, B3, B4 etc... une formule tant que la cellule A ne sera pas vide.
Note: Je ne sais pas d'avance combien de codes j'aurai de listés dans la colonne A.
Voici le bout de code que je tente d'adapter :
Sub Macro14()
'
Sheets('RapportCodesLettres').Range('A2').Select
'
'Déclaration des variables
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
'
'Détermine où sera la cellule courante
Set CelluleCourante = Sheets('RapportCodesLettres').Range('A2')
'
'Cette boucle s'exécutera tant que la cellule ne sera pas vide
Do While Not IsEmpty(CelluleCourante)
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
'
If CelluleCourante.Value <> '' Then
'
ActiveCell.Offset(0, 1).FormulaR1C1 = _
'=SUMPRODUCT((Données!R4C6:R11000C6=RC1)*(Données!R4C48:R11000C48=''sel'')*(Données!R4C40:R11000C40))'
'
End If
'
Set CelluleCourante = CelluleSuivante
Loop
End Sub
Quand j'exécute cette macro, la formule se met bien en B1 mais la macro s'arrête même si j'ai d'autre codes en A3, A4 etc...
Merci de votre aide !