Discussion :

[jad73]

bonjour le forum

j'ai une macro et je voudrais y inserer une formule dont les valeurs change a chaque clique de macro.Cette formule c'est "=NB.SI(Feuil1!$B$2:$F$41;A6)"les valeurs qui doivent changer sont le 2 et 41 qui passeront a 3 et 42.Voici le code,le code doit s'inserer entre "End With" et "Range("A6:B54").Copy".
Mais comment inscrire ce code.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub Macro4()
' Macro4 - 40-Auto
Dim plg As Byte
Dim dlg As Integer, vligne As Integer
dlg = Range("L" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = True
For plg = 34 To dlg
    With Range("H" & plg & ":L" & plg)
        .Copy Range("C1")
        .ClearContents
    End With
 
    Range("A6:B54").Copy
    Range("C6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    With ActiveWorkbook.Worksheets("40").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("D6:D54"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("C6:D54")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Calculate
    'Range("G5").Select
    vligne = Range("AD65536").End(xlUp).Row + 1
    Range("C3:G3").Copy
    Range("AD" & vligne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Dim Cellule As Range
Dim Plage As Range
 
Dim i, l, c As Integer
i = 6
Set Plage = Range("C1:G1")
While IsEmpty(Range("A" & i)) = False
     For Each Cellule In Plage
      If Range(Cellule.Address).Value = Range("C" & i).Value Then
      l = Range("E" & i).Value + 8
      c = Range("F" & i).Value + 10
      Cells(c, l) = Cells(c, l) + 1
      End If
     Next Cellule
      i = i + 1
Wend
Next
Application.ScreenUpdating = False
Range("G5").Select
End Sub

merci

[jfontaine]

Bonjour,

J'ai du mal à comprendre la finalité.

Ou doit être positionnée la formule? (quelle colonne ou quelle cellule)
Au clic suivant on remplace la formule ou on la place dessous la précédente?

[jad73]

bonjour jfontaine,le forum

je me suis mal exprimer,mormalement je le fait manuellement par les macros 1,2,3 dans le fichier joint.j'ai créé une 4eme macro qui regroupe les 3 macros mais il manque une étape celle d'aller chercher dans la BdD une partie de la plage de donnéés des lignes 2 a 41 dela formule c'est la partie de la feuille "40" en B6:B54.Quand je le fais manuellement je modifie la formule en cel B6,je change les valeurs 2 et 41 en 3 et 42 que je recopie jusqu'en B54.C'est cette opérationque je voudrais inscrire dans le code la "macro 4 auto".Cette opération doit modifier a chaque fois que je clique sur la macro 4,les valeurs 2 et 41 en 3 et 42 puis quand je reclique en 4 et 43,c'est ce code qui doit etre inscrit entre les lignes 11 et 13 ou aprés "End With et avant "Range("A6:B54").Copy
je joint le fichier
merci

[jfontaine]

Essais le code ci dessous. Je pense qu'il fait ce que tu souhaites

Code :

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

1
2
3
4
5
6
7
8
9
Dim Ligne As Integer
Dim str() As String
 
'Recherche du dernier numéro de référence de la formule
str = Split(Sheets("40").Range("B6").FormulaLocal, "$")
Ligne = Split(str(2), ":")(0) + 1
 
'Mise en place de la nouvelle formule
Sheets("40").Range("B6:B54").FormulaLocal = "=NB.SI(BdD!$B$" & Ligne & ":$F$" & Ligne + 39 & ";A6)"

[jad73]

bonjour jfontaine,le forum

merci pour le code
bonne journée