Analyser des tendances

Sub Code()

Dim DL As Long, Début As String, Fin As String, Produit As String, DC As Long

Produit = InputBox("Entrer le nom du produit à analyser")

If Produit = "" Then Exit Sub

Début = InputBox("Entrer le numéro de la première semaine à analyser <sans le S, (exemple 1, 12)>")

If Début = "" Then Exit Sub

Fin = InputBox("Entrer le numéro de la dernière semaine à analyser <sans le S, (exemple 1, 12)>")

If Fin = "" Then Exit Sub

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'Si la colonne 1 est bien remplie jusqu'à la fin du tableau

DC = Cells(1, Application.Columns.Count).End(xlToLeft).Column 'si la ligne 1 est bien remplie jusqu'à la fin du tableau

For i = 2 To DL 'Si produits vont de la ligne 2 à la ligne xxx
For j = 2 To DC 'Les les semaines vont de la colonne 2 à la ligne xxx

If Range("A" & i).Value = Produit Then
    If Right(Cells(1, j), 2) >= Val(Début) Then
        If Right(Cells(1, j), 2) <= Val(Fin) Then
            Valeurs = Valeurs & "Résultats pour la SEMAINE " & Right(Cells(1, j), 2) & ":           " & Cells(i, j).Value * 100 & "%" & vbLf
        End If
    End If
End If

Next j
Next i

Résultat = MsgBox(Valeurs, vbOKOnly, "Résultats Produit : " & Produit & ".")

End Sub

Sub CalculPente()

Dim SemaineDebut As String
Dim SemaineFin As String



SemaineDebut = InputBox("Veuillez saisir la semaine de DÉBUT (sans le S, exemple : S41 = 41)")

If SemaineDebut = "" Then Exit Sub

SemaineFin = InputBox("Veuillez saisir la semaine de FIN (sans le S, exemple : S41 = 41)")

If SemaineFin = "" Then Exit Sub

'Formule PENTE


Range().Select
ActiveCell.FormulaR1C1 = "=SLOPE(RC[-10]:RC[-1],R[-1]C[-10]:R[-1]C[-1])"
Range().Select
Selection.AutoFill Destination:=Range()
Range().Select
Range().Select
    
End Sub

Il vaut mieux éviter la multiplication des commentaires, préférer répondre à la fin de la discussion, sinon, on ne sait plus où on en est