Discussion :

[OBADJ]

Bonjour à tous je suis très embêté car je ne savais pas que quand tu insère un bouton pour lancer ta macro, elle reconnait pas les "With" donc du coup j'ai du les enlever et ma macro ne marche plus comme elle devrait... C'est à dire elle me faire tous bien sauf cette étape là : 'MONTANT TOTAL NON RECOUVRE SUR DOSSIER => COLONNE R

Voici le codage qui marche avec le With :

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
Sub Test()
With Sheets("SUIVTRANS EN COURS")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("M2:M" & Derligne).ClearContents
 
    Tablo = .Range("J2", "K" & .Range("K" & .Rows.Count).End(xlUp).Row)
 
    For j = 2 To Derligne
 
     somme = 0
        codeP = .Cells(j, "H")
        For i = LBound(Tablo, 1) To UBound(Tablo, 1)
            If .Cells(j, "J") = Tablo(i, 1) Then
                If .Cells(i + 1, "H") <> codeP Then
                    GoTo pasDeCommentaire
                Else
                    somme = somme + CDbl(Tablo(i, 2))
                End If
            End If
 
        Next i
 
 
        'MONTANT TOTAL NON RECOUVRE SUR DOSSIER => COLONNE R
       .Cells(j, 18) = somme
 
        'REGULARISATION ECART-TEMPLATE (2)
 
         If Cells(j, "R") >= -10 And Cells(j, "R") <= 10 And Cells(j, "R") <> 0 Then
            .Cells(j, 13) = "REGULARISATION ECART-TEMPLATE"
 
        'SOLDE CREDITEUR - A REMBOURSER (3)
 
        ElseIf Cells(j, "R") < -10 Then
            .Cells(j, 13) = "SOLDE CREDITEUR - A REMBOURSER"
 
 
        'REGLT CIE - SOLDE DEBITEUR (4)
 
         ElseIf .Cells(j, 9) = "REGLT" And Cells(j, "R") > 10 Then
            .Cells(j, 13) = "REGLT CIE-SOLDE-DEBITEUR"
 
        'ANNULATION TECHNIQUE (5)
        ElseIf Mid(.Cells(j, "F").Text, 5, 1) = "A" And Mid(.Cells(j, "F").Text, 1, 1) = "S" Then .Cells(j, "M").Value = "ANNULATION TECHNIQUE"
 
      End If
 
pasDeCommentaire:
 
    Next j
 
End With
End Sub

Voici la ligne qui me donne pas le résultat indiquer

Code :

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

 .Cells(j, 18) = somme

Voici LE CODE sans le With :

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
Sub testsia()
 
Sheets("SUIVTRANS EN COURS").Activate
 
    Derligne = Range("A" & Rows.Count).End(xlUp).Row
    Range("R3:R" & Derligne).ClearContents
 
    Tablo = Range("J3", "K" & Range("K" & Rows.Count).End(xlUp).Row)
 
    For j = 3 To Derligne
 
     somme = 0
        codeP = Cells(j, "H")
        For i = LBound(Tablo, 1) To UBound(Tablo, 1)
            If Cells(j, "J") = Tablo(i, 1) Then
                If Cells(i + 1, "H") <> codeP Then
 
                Else
                    somme = somme + CDbl(Tablo(i, 2))
                End If
            End If
 
        Next i
 
        'MONTANT TOTAL NON RECOUVRE SUR DOSSIER => COLONNE R
      Cells(j, 18) = somme
 
        'REGULARISATION ECART-TEMPLATE (2)
 
         If Cells(j, "R") >= -10 And Cells(j, "R") <= 10 And Cells(j, "R") <> 0 Then
            Cells(j, 13) = "REGULARISATION ECART-TEMPLATE"
 
        'SOLDE CREDITEUR - A REMBOURSER (3)
 
        ElseIf Cells(j, "R") < -10 Then
            Cells(j, 13) = "SOLDE CREDITEUR - A REMBOURSER"
 
 
        'REGLT CIE - SOLDE DEBITEUR (4)
               ElseIf Cells(j, 9) = "REGLT" And Cells(j, "R") > 10 Then
            'Cells(j, 13) = "REGLT CIE-SOLDE-DEBITEUR"
 
        'ANNULATION TECHNIQUE (5)
        ElseIf Mid(Cells(j, "F").Text, 5, 1) = "A" And Mid(Cells(j, "F").Text, 1, 1) = "S" Then Cells(j, "M").Value = "ANNULATION TECHNIQUE"
 
      End If
 
pasDeCommentaire:
 
    Next j
End Sub

[jpvba]

Peut etre suis-je un extra-terrestre, j'utilise des boutons pour lancer mes macro et j'ai des with

[OBADJ]

Peut etre suis-je un extra-terrestre, j'utilise des boutons pour lancer mes macro et j'ai des with

AHAHAH Sérieusement !! moi ça bloqué à cause des With....

[MarcelG]

Bonjour Obadj,

je ne savais pas que quand tu insère un bouton pour lancer ta macro, elle reconnait pas les "With"

Moi non plus!

Il faut savoir que si tu ne précises pas la feuille parent, alors celle considérée est la feuille active
Sans avoir regardé le code, je dirais que le problème pourrait y trouver sa cause.

Le rattachement des objets est essentiel, c'est pourquoi il faut toujours conserver la feuille parent qui peut faire l'objet d'un bloc With.

Pour quelle raison avances-tu la non reconnaissance du bloc With?

AHAHAH Sérieusement !!

Si, si!
Comme jpvba, que je salue, je vais passer pour un rigolo!

[OBADJ]

Regarde par exemple j'ai affecter cette macro simple à mon bouton et ça bloque sur la ligne orange il affiche la fameuse fléche jaune With :

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
 Sub FormuleL()
  
Dim d As Long

With Sheets("SUIVTRANS EN COURS")
   
    d = .Range("A" & Rows.Count).End(xlUp).Row

     .Range("L3").Select
    ActiveCell.FormulaR1C1 = _
    "=IF(RC[-3]="""",""PRINCIPAL ""&MID(RC[3],9,8),IF(LEFT(RC[-3],5)=""REGLT"",""REGLT"",IF(LEFT(RC[-3],1)=""G"",""TAXE DE GESTION"",IF(LEFT(RC[-3],1)=""P"",""PRINCIPAL ""&MID(RC[3],9,8),IF(LEFT(RC[-3],1)=""R"",""RECOURS ""&MID(RC[3],9,8),IF(LEFT(RC[-3],1)=""F"",""FRAIS""))))))"
    .Range("L3").AutoFill Destination:=Range("L3:L" & d)
    
    Calculate
End With
End Sub

[Menhir]

Comme jpvba ( ), j'ai des macros lancées par des boutons (que ce soit des boutons dans une feuille ou un ruban) contenant des With et qui fonctionnent très bien.

Je pense que tu as mal interprété le message d'erreur que t'a transmis l'exécution.

[OBADJ]

SA ME SOULEEEEE

QUAND JE FAIS AVEC F8 CA BLOQUE PAS ET QUAND J'appuie sur le BOUTON CA BLOQUE ! Il me dit maintenant, " La méthode select de la classe Range à échoué" ....

Code :

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

.Range("L3").Select

[MarcelG]

Quel est le code du bouton?
Juste un appel de procédure?

[OBADJ]

Quel est le code du bouton?
Juste un appel de procédure?

Le code du bouton est celui la :

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
 Sub FormuleL()
 
Dim d As Long
 
With Sheets("SUIVTRANS EN COURS")
    'Sheets("SUIVTRANS EN COURS").Activate
    d = .Range("A" & Rows.Count).End(xlUp).Row
 
    .Range("L3").Select
    ActiveCell.FormulaR1C1 = _
    "=IF(RC[-3]="""",""PRINCIPAL ""&MID(RC[3],9,8),IF(LEFT(RC[-3],5)=""REGLT"",""REGLT"",IF(LEFT(RC[-3],1)=""G"",""TAXE DE GESTION"",IF(LEFT(RC[-3],1)=""P"",""PRINCIPAL ""&MID(RC[3],9,8),IF(LEFT(RC[-3],1)=""R"",""RECOURS ""&MID(RC[3],9,8),IF(LEFT(RC[-3],1)=""F"",""FRAIS""))))))"
    .Range("L3").AutoFill Destination:=Range("L3:L" & d)
 
    Calculate
End With
End Sub

Maintenant ca bloque à cette ligne quand j'appui sur le bouton:

Code :

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

 .Range("L3").Select

Très relou car quand je le fait a la main avec F8 ca fonctionne très bien

[jpvba]

Lâche pas OBADJ, je suis sur que tu va trouvé bientôt ce qui cause cette embûche !!!


Salut la gang (Menhir, MarcelG )

[Menhir]

Il me dit maintenant, " La méthode select de la classe Range à échoué" ....

Code :

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

.Range("L3").Select

Juste avant cette ligne, vérifie quel est le classeur actif, par exemple avec :

Code :

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

Debug.Print ActiveWorkbook

Est-ce que c'est celui qui contient la feuille fédérée par ton With ?