Problème sur une macro : codage complexe

**OBADJ** · 25/01/2019, 14h27

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** · 25/01/2019, 14h38

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

**OBADJ** · 25/01/2019, 14h40

Envoyé par jpvba

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** · 25/01/2019, 14h42

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** · 25/01/2019, 14h51

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** · 25/01/2019, 14h51

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** · 25/01/2019, 15h01

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** · 25/01/2019, 15h03

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

**jpvba** · 25/01/2019, 15h04

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

Salut la gang (Menhir, MarcelG

)

**OBADJ** · 25/01/2019, 15h29

Envoyé par MarcelG

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

**MarcelG** · 25/01/2019, 15h37

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 :

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

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.

**jpvba** · 25/01/2019, 15h40

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 !!!!

**Menhir** · 25/01/2019, 15h41

Envoyé par OBADJ

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 ?

**OBADJ** · 25/01/2019, 15h42

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...

**jpvba** · 25/01/2019, 15h43

ESt-ce que tu pourrais me joindre ton fichier sans macro, sans élément confidentiel afin que je puisse tester.

**OBADJ** · 25/01/2019, 15h57

Voila le fichier sur quelque ligne que je t'ai fais et j'ai mis al formule en L2
Classeur1test.xlsx

**jpvba** · 25/01/2019, 16h09

Re-Bonjour si je prends ton fichier et je met la formule qui marchais avec les 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

Il n'y a pas le autofill

**OBADJ** · 25/01/2019, 16h12

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

Tu as essayé avec cette macro-là :

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 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

**jpvba** · 25/01/2019, 16h48

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 :

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 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

Nom : Sans titre.jpg
Affichages : 98
Taille : 17,0 Ko

**MarcelG** · 25/01/2019, 16h53

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.

Problème sur une macro : codage complexe [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager