Discussion :

[Guigui35160]

Bonjour a tous,

J'essaye de remplir des cellules au format d'une formule. Elles doivent être remplies si en colonne C, il y a un chiffre supérieur à 800 000. Le problème est que le code n'est pas exécuté. Sachant que les valeurs de chaque formules change de cellule en fonction de la ligne. En dessous du chiffre supérieur à 800000, nous avons un chiffre supérieur à 100000 puis une cellule vide. Cela se répète autant de fois qu'il y a de chiffre 800 000 et 100 000.
Les valeurs à récupérer sont en colonne B et la colonne précédant celle du calcul mais à la ligne en dessous.
Je souhaite faire le calcul sur la même ligne que la ligne du chiffre supérieur à 800 000 et le répéter sur l'ensemble des semaines de l'année ainsi que sur l'ensemble des chiffre supérieur à 800 000 qu'il y a en ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Do While semaine <= 58
    semaine = 0                 'Colonne
    m = 5                       'debut colonne pour 1 semaine
    l = 8                       'fin colone pour 1 semaine
    lignedebut = 9              'Ligne de départ
 
    Dim LastRowP As Integer     'Recherche du numéro de ligne
    Dim numeroligne As Integer  'numéro de ligne
 
    LastRowP = shH1.Range("C64555").End(xlUp).Row 'Recherche du nombre de ligne
    For numeroligne = 9 To LastRowP
        numeroligne = 9             ' Configuration du numéro de ligne
        Ligfabc1 = numeroligne      ' Ligne fabrication code 1
        Colfabc1 = m + 1            ' Colonne fabrication code 1
        Ligratio = numeroligne      ' Ligne ratio
        Colratio = 3                ' Colonne ratio
 
        If shH1.Range("C" & numeroligne).Value >= 800000 Then
         shH1.Cells(numeroligne + 1, m + 2).Interior.Color = RGB(224, 160, 96) And shH1.Cells(numeroligne + 1, m + 2).Value = "=Cells(Ligfabc1, Colfabc1) * Cells(Ligratio, Colratio)"   
 
        End If
        numeroligne = numeroligne + 1
        semaine = semaine + 1
 
        ' Refaire les formules toutes les 4 colonnes
        m = m + 4
        l = l + 4
 
    Exit For
    Next

Merci d'avance

[ARTURO83]

Bonjour,

Si j'ai bien compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If shH1.Range("C" & numeroligne).Value >= 800000 Then
    shH1.Cells(numeroligne + 1, m + 2).Interior.Color = RGB(224, 160, 96)
    shH1.Cells(numeroligne + 1, m + 2).FormulaR1C1 = "=R" & Ligfabc1 & "C" & Colfabc1 & "*" & "R" & Ligratio & "C" & Colratio
End If

Cdlt