Discussion :

[Gonteur]

Bonjour

J'ai un souci avec mon code, merci de m'aiguiller

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
    Dim iLigFin3 As Integer
    Dim iLig3 As Integer
    Dim iEcr3 As Integer
 
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Application.DisplayStatusBar = False
 
 
    If Target.Count = 1 Then
        If Target.AddressLocal = "$B$1" Then
 
            iLigFin3 = Range("e" & Rows.Count).End(xlUp).Row
 
 
            If iLigFin3 >= 26 Then
                Range("e26:o39" & iLigFin3).ClearContents
            End If
 
            iEcr3 = 26
            iLigFin3 = Sheets("Facturation_Détaillée").Range("A" & Rows.Count).End(xlUp).Row
 
 
             For iLig3 = 2 To iLigFin
                If Sheets("Facturation_Détaillée").Range("A" & iLig3).Value = Target.Value Then
                    Range("e" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("at" & iLig3).Value
                    Range("j" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("au" & iLig3).Value
                    Range("k" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("av" & iLig3).Value
                    Range("n" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("ar" & iLig3).Value
                    Range("o" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("aw" & iLig3).Value
                    iEcr3 = iEcr3 + 1
                End If
            Next iLig3
 
            Sheets("Facture").Range("e26:o39").SpecialCells(xlCellTypeBlanks).Delete xlUp
 
        End If
  End If
 
 
 
        Application.ScreenUpdating = True
        Application.EnableEvents = True
        Application.Calculation = xlCalculationAutomatic
        Application.DisplayStatusBar = True
 
 
End Sub

Mon soucis est que le contenu des cellules qui excède le range E26:O39 sont effacer

Merci de votre aide

[mfoxy]

Bonjour,

Sans analyser ton code dans le détail, il y a un souci dans ce bloc

Code :

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

1
2
3
4
 
  If iLigFin3 >= 26 Then
                Range("e26:o39" & iLigFin3).ClearContents
            End If

Devrait plutôt être

Code :

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

1
2
3
4
 
  If iLigFin3 >= 26 Then
                Range("e26:o" & iLigFin3).ClearContents
            End If

[Gonteur]

Merci mfoxy

cela cause une erreur d'exécution

" La méthode 'Range' de l'objet' Wooksheet' a échoué "

[mfoxy]

Re,

À vérifier dans ton code la valeur de ta variable dernière ligne

Indiqué la parentalite de ton range

Exemple :

Code :

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

1
2
 
Worksheets("Sheet1").Range("A1:G37").ClearContents

[Gonteur]

Merci mfoxy

J'ai le même résultat à l'exécution

Code :

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

 Worksheets("Facture").Range("e26:o39").ClearContents

[mfoxy]

Re,

Assez bizarre ton truc, la ligne de code fournie fonctionne bien chez moi.

Tu es sur de ton nom de feuille ? (espace, Majuscule, ou autre ?)

Si tu veux bien, exprime en français ce que tu aimerais que la macro fasse au juste, c'est bien souvent plus simple à comprendre que de "lire" un code sans explications.

Avec printscreen, noms des feuilles,...

L'utilisation de tableau structuré est aussi un grand plus.

( au pire tu peux aussi poster ton classeur anonymiser, certain membre les ouvrent, mais pas tous)

Bat