Problème sur une macro : codage complexe

Version imprimable

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:

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:

.Cells(j, 18) = somme

Voici LE CODE sans le With :

Code:

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

25/01/2019, 14h38
jpvba

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

:weird:
25/01/2019, 14h40
OBADJ

Citation:

Envoyé par jpvba

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

:weird:

AHAHAH Sérieusement !! moi ça bloqué à cause des With....
25/01/2019, 14h42
MarcelG

Bonjour Obadj,

Citation:

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?

Citation:

AHAHAH Sérieusement !!

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

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:

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

25/01/2019, 14h51
Menhir

Comme jpvba ( :coucou: ), 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.
25/01/2019, 15h01
OBADJ

SA ME SOULEEEEE:calim2::calim2::calim2:

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:

.Range("L3").Select
25/01/2019, 15h03
MarcelG

Quel est le code du bouton?
Juste un appel de procédure?
25/01/2019, 15h04
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 :coucou:)

Citation:

Envoyé par MarcelG

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

Le code du bouton est celui la :
Code:

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:

.Range("L3").Select

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

25/01/2019, 15h37
MarcelG

Citation:

Le code du bouton est celui la :

Sauf erreur, s'il s'agit d'un contrôle ActiveX, le code ne peut pas être celui-là.
Mais plutôt une procédure "évènementielle" du type

Code:

Private Sub Btn_labceformule_Click()

et, s'il te plaît, purge cette procédure de ces f... Select qui n'ajoutent rien, si ce n'est de la confusion.
25/01/2019, 15h40
jpvba

D'Accord avec Marcel,

de mon côté j'utilise seulement le bouton contrôle de formulaire jamais les activex ... pas mal plus simple et jamais eu de problème !!!!
25/01/2019, 15h41
Menhir

Citation:

Envoyé par OBADJ

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

Code:

.Range("L3").Select

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

Code:

Debug.Print ActiveWorkbook

Est-ce que c'est celui qui contient la feuille fédérée par ton With ?
25/01/2019, 15h42
OBADJ

Ca ne fonctionne toujours pas ! A savoir que mon bouton je l'ai mis sur une autre feuille vierge qui je pense de doit normalement pas posé de problème...
25/01/2019, 15h43
jpvba

ESt-ce que tu pourrais me joindre ton fichier sans macro, sans élément confidentiel afin que je puisse tester.
25/01/2019, 15h57
OBADJ

1 pièce(s) jointe(s)

Voila le fichier sur quelque ligne que je t'ai fais et j'ai mis al formule en L2
Pièce jointe 444463

Re-Bonjour si je prends ton fichier et je met la formule qui marchais avec les with

Code:

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

Il n'y a pas le autofill

QUOI j'ai pas compris là ? Ça marche pour toi ?

Tu as essayé avec cette macro-là :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub FormuleL1()
 
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

1 pièce(s) jointe(s)

Oui également avec celle que tu demande de testé en remplaçant bien sur le L3 par L2 et en appelant la feuil1 par SUIVTRANS EN COURS

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub FormuleL1()
 
Dim d As Long
 
With Sheets("SUIVTRANS EN COURS")
    'Sheets("SUIVTRANS EN COURS").Activate
    d = .Range("A" & Rows.Count).End(xlUp).Row
 
    .Range("L2").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("L2").AutoFill Destination:=Range("L2:L" & d)
 
    Calculate
End With
End Sub

Utilise le bouton

Pièce jointe 444487

25/01/2019, 16h53
MarcelG

Salut jp,

Ne vaudrait-il pas mieux de choisir un contrôle ActiveX?
Cette partie, de mémoire, concerne les anciennes versions d'Excel.

C'est juste un avis.
25/01/2019, 17h08
jpvba

Possible avec ActiveX,

Mais essayé sans, coûte pas trop cher ... je crois que notre ami a 2010 comme version et je pense que cela pourrais peut-être fonctionné sans activeX, dû moins je présume.

Bref si cela fonction ou fonctionne pas OBADJ fais nous signe !!!
25/01/2019, 17h36
OBADJ

Citation:

Envoyé par jpvba

Possible avec ActiveX,

Mais essayé sans, coûte pas trop cher ... je crois que notre ami a 2010 comme version et je pense que cela pourrais peut-être fonctionné sans activeX, dû moins je présume.

Bref si cela fonction ou fonctionne pas OBADJ fais nous signe !!!

C'est à dire c'est quoi activeX je remplace par quoi redonne moi le code complet stp avec le activeX
25/01/2019, 17h40
Menhir

Perso, pour créer un bouton dans une feuille qui lance une macro VBA, j'utilise une simple forme en y liant une macro.
Ca le fait très bien et on a beaucoup plus de possibilités esthétiques.
25/01/2019, 17h42
jpvba

Rebonjour OBADJ,

Ma façon est sans les activeX,

Donc j'ai pris les codes de départ et essaye en créant le bouton tel que la photo que j'ai mis .. comme cela on va en avoir le coeur nette !!!

Par la suite on va affecter une macro et bingo en théori cela va fonctionné (en théorie)
31/01/2019, 11h16
OBADJ

Désolé les amis mais j'y arrive toujours pas à résoudre ce problème ... :calim2::calim2::(:(8O

Ps : le bouton que j'ai crée, je l'ai inséré dans une autre feuille, je pense c'est pour ca que ca bloque

Bonjour,
Citation:
Envoyé par OBADJ
QUOI j'ai pas compris là ? Ça marche pour toi ?

Tu as essayé avec cette macro-là :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub FormuleL1() 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
Tu vas peut-être trouver que je suis tatillon mais pour supprimer toute source d'erreur éventuelle liée aux héritages et aux déclarations explicites :
- remplacer Sheets par Worksheets (il n'y a pas de range dans une sheet)
- Ajouter un point devant Rows.count i.e. .Rows.count pour compter le nombre de lignes de la feuille désignée plutôt que celui de la feuille active (qui n'est pas toujours identique).
- Pour les mêmes raisons, ajoutes un point devant Range("L3:L" & d), i.e. Destination:=.Range("L3:L" & d)
- Au lieu de .Range("L3").Select puis Activecell.FormulaR1C1 = ... , écris directement .Range("L3").FormulaR1C1 = ... Le select est parfaitement inutile, d'ailleurs il te pose problème !

Ceci dit ça ne résoudra peut-être pas ton problème mais ce code sera plus propre.

Tu ne nous as toujours pas dit quel type de bouton tu utilises : ActiveX, Formulaire , Shape, ... ?
Ton fichier exemple est un xlsx donc sans macro, où se situe ta macro ? dans un autre fichier ?

31/01/2019, 15h24
OBADJ

Merci pour t'es précision très pertinentes !

Concernant, le type de bouton est contrôle de formulaire, ce n'est pas ActiveX.
Mon fichier, est un fichier xlsm donc avec macro et ma macro se situe bien dans VBA du fichier
31/01/2019, 15h55
jpvba

1 pièce(s) jointe(s)

Essaye ça,

C'est ton fichier avec tes macro a part une modif. étant donné que ta formule est dans L2