OCell range

Bonsoir,

Je souhaiterai comprendre le fonctionnement de ce code VBA, en particulier à quoi correspond la ligne en gras pour l'adapter à mon fichier. Elle signifie selon moi que le code s'applique à toutes les "oCell" (cellules?) de la plage "facture", or je ne trouve pas à quoi cette plage correspond sur mon fichier initial.

Sub produit()

Dim oCell As Range

For Each oCell In Range("facture")

Dim VARIABLE As String

VARIABLE = "produit"

If oCell.Value = VARIABLE Then

Range("K7").Select

Do

If ActiveCell.Value = VARIABLE Then

Else: ActiveCell.Offset(1, 0).Select

End If

Loop Until ActiveCell.Value = VARIABLE

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = ActiveCell.Value + 1

Exit Sub

End If

Next

Range("K7").Select

Do

If ActiveCell.Value = "" Then

Else: ActiveCell.Offset(1, 0).Select

End If

Loop Until ActiveCell.Value = ""

ActiveCell.Value = VARIABLE

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = "1"

Range("A1").Select

End Sub

Merci d'avance

Bonjour,

regarder dans le Gestionnaire de Nom pour voir à quoi correspond la plage Facture.

Bonjour mirka, Isabelle,

à tout hasard, je précise que tu trouveras le "Gestionnaire de noms" sur l'onglet "Formules", groupe "Noms définis".

dhany